Weergeven van een kolomnummer

Deena heeft een document dat wordt opgemaakt om drie kolommen te gebruiken. Zij zou een manier weergeven en afdrukken, automatisch een kolomnummer boven aan elke kolom. Zo zou de kolommen op pagina 1 worden genummerd van 1 tot 3, zouden die op pagina 2 zijn 4 tot en met 6, enz.

Er is geen manier om dit automatisch te doen, maar een tijdelijke oplossing is om een ​​macro die het document met kolom getallen in de koptekst van de pagina wordt afgedrukt creëren. Het enige wat u hoeft te doen is ervoor zorgen dat de header heeft tabstops set aan te passen waar u wilt dat de kolom nummers te verschijnen.

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

'Get totaal aantal pagina's
tp = ActiveDocument.Content.ComputeStatistics (wdStatisticPages)
'Krijg aantal kolommen
tc = ActiveDocument.Sections (1) .PageSetup.TextColumns.Count
'Save current header
l = ActiveDocument.Sections (1) .Headers (wdHeaderFooterPrimary) .Range.Text

Voor p = 1 To tp
h = ""
Bij c = 1 Om tc
h = h & Trim (Str (p + (c - 1) + (2 * p - 2))) & vbTab
Volgende c
h = Linker (u, Len (h) - 1)
ActiveDocument.Sections (1) .Headers (wdHeaderFooterPrimary) .Range.Text = h
ActiveDocument.PrintOut Range: = wdPrintFromTo, _
Van: = Trim (Str (p)), naar: = Trim (Str (p))
Volgende p

Als Len (ch)> 1 Dan
'Herstel vorige header
ActiveDocument.Sections (1) .Headers (wdHeaderFooterPrimary) .Range.Text = ch
Anders
'Er is geen vorige header
ActiveDocument.Sections (1) .Headers (wdHeaderFooterPrimary) .Range.Delete
End If
End Sub

De macro eigenlijk drukt elke pagina van het document apart. Het gaat ervan uit dat slechts één sectie in het document. Het aantal kolommen voor die enkele sectie wordt bepaald, en vervolgens deze telling gebruikt bij het samenstellen van de koptekst voor elke pagina. De kop bestaat uit de getallen kolom gescheiden door tabs. De header is gebouwd voor elke pagina, en vervolgens elke pagina wordt afgedrukt.

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (12.826) is van toepassing op Microsoft Word 2007, 2010 en 2013.