Visar en kolumn Antal

May 7

Deena har ett dokument som är formaterat för att använda tre kolumner. Hon vill ha en sätt att visa och skriva ut, automatiskt, ett kolumnnummer längst upp i varje kolumn. Således skulle kolumnerna på sidan 1 vara numrerade från 1 till 3, skulle de på sidan 2 vara 4 till 6 mm

Det finns inget sätt att göra detta automatiskt, men en lösning är att skapa ett makro som ska skriva ut dokumentet med kolumnnummer i sidhuvudet. Allt du behöver göra är att se till att huvudet har tabbstopp inställd för att matcha där du vill kolumnnumren ska visas.

Sub ColumnHeaders ()
Dim p As Long
Dim tp As Long
Dim c As Integer
Dim tc As Integer
Dim h As String
Dim ch As String

"Få totala sidor
tp = ActiveDocument.Content.ComputeStatistics (wdStatisticPages)
"Få antal kolumner
tc = ActiveDocument.Sections (1) .PageSetup.TextColumns.Count
"Spara nuvarande header
CH = ActiveDocument.Sections (1) .Headers (wdHeaderFooterPrimary) .Range.Text

För p = 1 Till tp
h = ""
För c = 1 Till tc
h = h & Trim (Str (p + (c - 1) + (2 * p - 2))) & vbTab
Nästa c
h = Vänster (h, Len (h) - 1)
ActiveDocument.Sections (1) .Headers (wdHeaderFooterPrimary) .Range.Text = h
ActiveDocument.PrintOut Range: = wdPrintFromTo, _
Från: = Trim (Str (p)), Att: = Trim (Str (p))
Nästa p

Om Len (lm)> 1 Sedan
"Restore föregående header
ActiveDocument.Sections (1) .Headers (wdHeaderFooterPrimary) .Range.Text = lm
Else
"Det finns ingen tidigare header
ActiveDocument.Sections (1) .Headers (wdHeaderFooterPrimary) .Range.Delete
End If
End Sub

Makrot faktiskt skriver ut varje sida i dokumentet individuellt. Det förutsätter att det finns endast en enda sektion i dokumentet. Antalet kolumner för denna enda sektion bestäms, och sedan detta räknevärde som används i att sätta ihop sidhuvudet för varje sida. Huvudet består av kolumnnumren separerade med flikar. Huvudet är konstruerad för varje sida, och därefter varje sida skrivs ut.

WordTips är din källa för kostnadseffektiv Microsoft Word utbildning. (Microsoft Word är det mest populära ordbehandlingsprogram i världen.) Detta tips (12826) gäller Microsoft Word 2007, 2010, och 2013.