Richtige Zeilennummern beim Drucken von Auswahlen (Microsoft Word)
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: