Korrekte linjenumre ved udskrivning Selections

Word lader dig tilføje linjenumre til et dokument. Det betyder, hvad det siger, hver linje i dokumentet er nummereret fra start til slut. Dette kan være meget nyttigt, når du opretter særlige dokumenter såsom juridiske dokumenter, eller når der udskrives et hardcopy til efterfølgende reference på en linje for linje.

Når du udskriver et dokument med kontinuerlige tal line tændt, Word numre hver linje fra start til slut. Men hvis du kun udskrive en markering (foretage et valg, vise dialogboksen Udskriv, og sørg for, at Selection er angivet som hvad du udskriver), så Word udskriver ikke linjenumre korrekt. Word numre linjerne i markeringen, som om det var det hele dokumentet-start på en og fortsætter gennem valget. Man skulle tro, at en bedre fremgangsmåde ville være til Word til at udskrive linjenumre efter hvad valget egentlig repræsenterer i dokumentet. For eksempel, hvis du valgte linier 57 gennem 72 som dit valg og derefter trykt det, bør Word udskrive numrene 57 gennem 72 på venstre side af udskriften, i stedet for 1 til 15.

Der er ingen nem vej uden om dette problem, desværre. En løsning er at ikke udskrive valg. (Dette forslag kan lyde mere flabet end, hvad der menes.) I stedet udskrive sider. I udskrivningsdialogboksen, angive en side der skal udskrives, i stedet for et valg. Word holder linjenummerering korrekt, som hvis du nummerering fra begyndelsen af ​​dokumentet.

En anden mulighed er at stole på en makro til at gøre det "beskidte arbejde" for dig. Du kan bruge en makro til at nulstille begyndelsen linjenummer bruges til dit valg. Følgende er en simpel makro, der beder dig om en begyndelse linjenummer, og udskriver derefter dit valg ved hjælp af denne linje nummer som det første tal trykt til venstre. (Bemærk, at denne makro ikke starter udskrivningen med linjenummeret du angiver-det bruger det nummer, du angiver som startlinjen antal dit valg.)

Sub LineNumbersPrint ()
Dim LineNumberStart As Integer
Ved fejl GoTo GetOut

LineNumberStart = InputBox ("Første linjenummer til udskrift?", _
"Linjenumre Udskrift")

Med ActiveDocument.PageSetup
Med .LineNumbering
.Active = True
.StartingNumber = LineNumberStart
End med
End med

ActiveDocument.PrintOut, Range: = wdPrintSelection

Med ActiveDocument.PageSetup
Med .LineNumbering
.Active = True
.StartingNumber = 1
End med
End med

GetOut:
End Sub

Brug af denne makro forudsætter, at du ser op startlinjen antal dit valg, før du faktisk udskriver. Dette kan gøres ved hjælp af udskrift i Word, men kan få kedelige efter et stykke tid. Hvis du gør en hel del af valg udskrivning, vil den følgende makro have mere interesse. Det er mere kompliceret, men det bestemmer automatisk den korrekte linjenummer til brug i starten af ​​markeringen, og derefter udskriver valget.

Sub Correct_Line_Numbers ()
Dim myRng Som Range
Dim StartRng Som Range
Dim iTæller As Integer

»Hvis du medtager afsnitstegn i dit valg, så Word
"Udskriver den efterfølgende linje nummer; ikke hele linjen, bare
'Line nummer, Derfor, hvis det sidste tegn i den aktuelle
»Udvælgelse er et stykke mark, derefter flytte slutposition
»Markeringen til venstre ved et tegn
Hvis Selection.Characters.Last = Chr (13) Derefter
Selection.MoveEnd Count: = - 1
End hvis

'Sæt den aktuelle markering til en variabel
Set myRng = Selection.Range

'Sæt begyndelsen af ​​dokumentet til en variabel
Set StartRng = ActiveDocument.Paragraphs (1) .Range

Med Selection
»Gå til begyndelsen af ​​linjen for det aktuelle valg og
'Sæt den iTæller variable, så det tæller den aktuelle linje
.HomeKey Enhed: = wdLine
iTæller = 1

»Hvis markøren ikke er i starten af ​​dokumentet
"Flyt derefter markøren op af en linje
»Tilvækst iTæller med én hver gang markøren er slet ikke
»Begyndelsen af ​​dokumentet
Mens ikke Selection.InRange (StartRng)
.MoveUp Enhed: = wdLine
iTæller = iTæller + 1
»Hvis markøren er i en tabel, så makroen skal
»Reducere iTæller; Word tæller en hel tabel som én linje
Hvis Selection.Rows.Count> 0 Derefter
iTæller = iTæller - 1
End hvis
Wend
End med

"Nulstille startlinjen nummer, så det svarer til det
»Antal gange markøren blev flyttet op af en linje
ActiveDocument.PageSetup.LineNumbering.StartingNumber = iTæller

'Genvælge den oprindelige udvælgelse
myRng.Select

"Udskrive kun den originale udvælgelse
ActiveDocument.PrintOut Range: = wdPrintSelection

"Nulstille linjenummer (med" undergang "de sidste to handlinger
»[Felter opdatere og ændre linjenummer])
»Så linjenummerering begynder ved én
ActiveDocument.Undo
ActiveDocument.Undo

'Genvælge den oprindelige udvælgelse
myRng.Select
End Sub

Der er en advarsel med denne makro. Hvis du har skjult tekst i dit dokument, og at skjult tekst vises, men er ikke sat op til at udskrive, så er denne makro stadig tæller de tekstlinjer, som om de ville udskrive. Med andre ord, makroen antager du udskriver den skjulte tekst, hvis du har det vist på skærmen.

WordTips er din kilde til omkostningseffektiv Microsoft Word træning. (Microsoft Word er det mest populære tekstbehandlingsprogram i verden.) Dette tip (1525) gælder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til menufaner Word (Word 2007 og nyere) her: Korrekt linjenumre ved udskrivning Selections.