Deena hat ein Dokument, das so formatiert ist, dass es drei Spalten verwendet. Sie möchte eine Möglichkeit, automatisch eine Spaltennummer am oberen Rand jeder Spalte anzuzeigen und zu drucken. Somit würden die Spalten auf Seite 1 von 1 bis 3 nummeriert, die auf Seite 2 von 4 bis 6 usw.

Es gibt keine Möglichkeit, dies automatisch zu tun. Eine Problemumgehung besteht darin, ein Makro zu erstellen, das das Dokument mit den Spaltennummern im Seitenkopf druckt. Sie müssen lediglich sicherstellen, dass in der Kopfzeile Tabulatoren so eingestellt sind, dass sie mit der Stelle übereinstimmen, an der die Spaltennummern angezeigt werden sollen.

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

' Get total pages     tp = ActiveDocument.Content.ComputeStatistics(wdStatisticPages)

' Get number of columns     tc = ActiveDocument.Sections(1).PageSetup.TextColumns.Count     ' Save current header     ch = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text

For p = 1 To tp         h = ""

For c = 1 To tc             h = h & Trim(Str(p + (c - 1) + (2 * p - 2))) & vbTab         Next c         h = Left(h, Len(h) - 1)

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = h         ActiveDocument.PrintOut Range:=wdPrintFromTo, _           From:=Trim(Str(p)), To:=Trim(Str(p))

Next p          If Len(ch) > 1 Then         ' Restore previous header         ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = ch     Else         ' There is no previous header         ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Delete     End If End Sub

Das Makro druckt tatsächlich jede Seite des Dokuments einzeln aus. Es wird davon ausgegangen, dass das Dokument nur einen einzigen Abschnitt enthält. Die Anzahl der Spalten für diesen einzelnen Abschnitt wird bestimmt, und diese Anzahl wird dann verwendet, um die Kopfzeile für jede Seite zusammenzustellen. Die Kopfzeile besteht aus den durch Tabulatoren getrennten Spaltennummern. Der Header wird für jede Seite erstellt, und dann wird jede Seite gedruckt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (12826) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.