Mit Word können Sie einem Dokument Zeilennummern hinzufügen. Dies bedeutet genau das, was darin steht – jede Zeile im Dokument ist von Anfang bis Ende nummeriert. Dies kann sehr hilfreich sein, wenn Sie spezielle Dokumente erstellen, z. B. juristische Dokumente, oder wenn Sie eine Hardcopy drucken, um sie zeilenweise nachschlagen zu können.

Wenn Sie ein Dokument mit aktivierten fortlaufenden Zeilennummern drucken, nummeriert Word jede Zeile von Anfang bis Ende. Wenn Sie jedoch nur eine Auswahl drucken (eine Auswahl treffen, das Dialogfeld Drucken anzeigen und sicherstellen, dass Auswahl als das angegeben ist, was Sie drucken), druckt Word die Zeilennummern nicht korrekt. Word nummeriert die Zeilen in der Auswahl so, als wäre es das gesamte Dokument – beginnend bei eins und weiter durch die Auswahl. Man würde denken, dass ein besserer Ansatz für Word wäre, die Zeilennummern entsprechend der tatsächlichen Auswahl im Dokument zu drucken. Wenn Sie beispielsweise die Zeilen 57 bis 72 als Ihre Auswahl ausgewählt und dann gedruckt haben, sollte Word die Nummern 57 bis 72 auf der linken Seite des Ausdrucks anstatt von 1 bis 15 drucken.

Es gibt leider keinen einfachen Weg, um dieses Problem zu umgehen. Eine Problemumgehung besteht darin, keine Auswahl zu drucken. (Dieser Vorschlag klingt möglicherweise flippiger als gemeint.) Drucken Sie stattdessen Seiten. Geben Sie im Dialogfeld Drucken einen zu druckenden Seitenbereich anstelle einer Auswahl an. Word behält die Zeilennummerierung bei, als würden Sie vom Anfang des Dokuments an nummerieren.

Eine andere Möglichkeit besteht darin, sich auf ein Makro zu verlassen, um die „Drecksarbeit“ für Sie zu erledigen. Sie können ein Makro verwenden, um die für Ihre Auswahl verwendete Anfangszeilennummer zurückzusetzen. Das folgende Makro fragt Sie nach einer Anfangszeilennummer und druckt dann Ihre Auswahl unter Verwendung dieser Zeilennummer als erste links gedruckte Nummer. (Beachten Sie, dass dieses Makro nicht mit der von Ihnen angegebenen Zeilennummer gedruckt wird. Es verwendet die von Ihnen angegebene Nummer als Startzeilennummer Ihrer Auswahl.)

Sub LineNumbersPrint()

Dim LineNumberStart As Integer     On Error GoTo GetOut

LineNumberStart = InputBox("First line number for printout?", _       "Line Numbers Printout")



With ActiveDocument.PageSetup         With .LineNumbering             .Active = True             .StartingNumber = LineNumberStart         End With     End With

ActiveDocument.PrintOut , Range:=wdPrintSelection

With ActiveDocument.PageSetup         With .LineNumbering             .Active = True             .StartingNumber = 1         End With     End With

GetOut:

End Sub

Bei Verwendung dieses Makros wird davon ausgegangen, dass Sie die Startzeilennummer Ihrer Auswahl nachschlagen, bevor Sie tatsächlich drucken. Dies kann mithilfe der Druckvorschau von Word erfolgen, kann jedoch nach einer Weile mühsam werden. Wenn Sie viel Auswahl drucken, ist das folgende Makro für Sie von größerem Interesse. Es ist komplexer, ermittelt jedoch automatisch die richtige Zeilennummer, die zu Beginn der Auswahl verwendet werden soll, und druckt dann die Auswahl.

Sub Correct_Line_Numbers()

Dim myRng As Range     Dim StartRng As Range     Dim iCount As Integer

'if you include the paragraph mark in your selection, then Word 'prints the subsequent line number; not the entire line, just the 'line number; therefore, if the last character of the current 'selection is a paragraph mark, then move the end position of 'the selection to the left by one character     If Selection.Characters.Last = Chr(13) Then         Selection.MoveEnd Count:=-1     End If

'set the current selection to a variable     Set myRng = Selection.Range

'set the start of the document to a variable     Set StartRng = ActiveDocument.Paragraphs(1).Range

With Selection         'go to the beginning of the line for the current selection and         'set the iCount variable so that it counts the current line         .HomeKey unit:=wdLine         iCount = 1

'if the cursor is not at the beginning of the document         'then move the cursor up by one line         'increment iCount by one each time the cursor is not at         'the beginning of the document         While Not Selection.InRange(StartRng)

.MoveUp unit:=wdLine             iCount = iCount + 1             'if the cursor is in a table, then the macro should             'reduce iCount; Word counts an entire table as one line             If Selection.Rows.Count > 0 Then                 iCount = iCount - 1             End If         Wend     End With

'reset the starting line number so that it equals the     'number of times the cursor was moved up by a line     ActiveDocument.PageSetup.LineNumbering.StartingNumber = iCount

'reselect the original selection     myRng.Select

'print out only the original selection     ActiveDocument.PrintOut Range:=wdPrintSelection

'reset the line number(by "undoing" the last two actions     '[fields update and change line number])

'so that line numbering begins at one     ActiveDocument.Undo     ActiveDocument.Undo

'reselect the original selection     myRng.Select End Sub

Es gibt eine Einschränkung bei diesem Makro. Wenn Sie versteckten Text in Ihrem Dokument haben und dieser versteckte Text angezeigt wird, aber nicht zum Ausdrucken eingerichtet ist, zählt dieses Makro diese Textzeilen weiterhin so, als würden sie gedruckt. Mit anderen Worten, das Makro geht davon aus, dass Sie den ausgeblendeten Text drucken, wenn er auf dem Bildschirm angezeigt wird.

_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.

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

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1525) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier: