Riktige linjenummer ved utskrift Selections

August 14  by Eliza

Word kan du legge til linjenumre i et dokument. Det betyr akkurat det som står-hver linje i dokumentet er nummerert fra begynnelse til slutt. Dette kan være svært nyttig når du oppretter spesielle dokumenter, for eksempel juridiske dokumenter, eller ved utskrift av en papirkopi for senere referanse på en linje for linje basis.

Når du skriver ut et dokument med kontinuerlige linjenumre slått på, Word tall hver linje fra start til slutt. Men hvis du bare skrive ut et utvalg (foreta et valg, viser dialogboksen Skriv ut, og sørg for at Selection er spesifisert som hva du skriver), deretter Word ikke ut linjenumre riktig. Word tall linjene i utvalget som om det var hele dokumentet-starter på ett og fortsetter gjennom valg. En skulle tro at en bedre tilnærming ville være for Word til å skrive ut linjenumrene i henhold til hva utvalget egentlig representerer i dokumentet. For eksempel, hvis du valgte linjer 57 gjennom 72 som ditt valg og deretter skrevet det, bør Word skrive tallene 57 til og med 72 på venstre side av utskriften, snarere enn en til 15.

Det er ingen enkel vei rundt dette problemet, dessverre. En løsning er å ikke skrive ut valg. (Dette forslaget kan høres mer fleipete enn hva som menes.) I stedet, utskriftssider. I dialogboksen Skriv ut, angir du et sideområde som skal skrives ut, i stedet for et utvalg. Word holder linjen nummerering riktig, som om du skulle nummerering fra begynnelsen av dokumentet.

Et annet alternativ er å stole på en makro til å gjøre det "grovarbeidet" for deg. Du kan bruke en makro for å tilbake begynnelsen linjenummeret som brukes for ditt valg. Følgende er en enkel makro som ber deg for en begynnelse linjenummer, og skriver valget med at linjenummer som det første nummeret trykt på venstre da. (Merk at denne makroen ikke begynner å skrive med linjenummeret du spesifiserer-det bruker antallet du angir som startstreken antall ditt valg.)

Sub LineNumbersPrint ()
Dim LineNumberStart As Integer
On Error GoTo getout

LineNumberStart = InputBox ("First linjenummer for utskrift?", _
"Linje Numbers Utskrift")

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

ActiveDocument.PrintOut, Range: = wdPrintSelection

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

Getout:
End Sub

Ved hjelp av denne makroen forutsetter at du ser opp startstreken antall valget ditt før du faktisk skriver ut. Dette kan gjøres ved hjelp av Print Preview funksjonen i Word, men kan bli kjedelig etter en stund. Hvis du gjør ganske mye utvalg utskrift, vil følgende makro være av mer interesse for deg. Det er mer komplisert, men det avgjør automatisk riktig linjenummer til bruk ved starten av utvalget, og deretter skriver utvalget.

Sub Correct_Line_Numbers ()
Dim myRng Som Range
Dim StartRng Som Range
Dim iCount As Integer

"Hvis du inkluderer avsnittsmerket i utvalget, deretter Word
'Skriver den påfølgende linjenummer; ikke hele linjen, bare den
'Linjenummer; Derfor, hvis det siste tegnet i den aktuelle
'Utvalg er et avsnittsmerke, og flytt deretter enden stilling
'Valget til venstre med ett tegn
Hvis Selection.Characters.Last = Chr (13) Deretter
Selection.MoveEnd Count: = - 1
End If

'Sette gjeldende utvalg til en variabel
Satt myRng = Selection.Range

'Sett starten av dokumentet til en variabel
Satt StartRng = ActiveDocument.Paragraphs (1) .Range

Med markering
"Gå til begynnelsen av linjen for gjeldende valg og
'Sette iCount variabel slik at det teller den aktuelle linjen
.HomeKey Enhet: = wdLine
iCount = 1

'Hvis markøren ikke på begynnelsen av dokumentet
'Flytt deretter markøren opp av en linje
'Tilvekst iCount med én hver gang markøren ikke på
'Begynnelsen av dokumentet
Mens Not Selection.InRange (StartRng)
.MoveUp Enhet: = wdLine
iCount = iCount + 1
'Hvis markøren er i en tabell, så makroen bør
'Redusere iCount; Ord teller en hel tabell som én linje
Hvis Selection.Rows.Count> 0 Then
iCount = iCount - 1
End If
Wend
Avslutt med

'Reset startstreken nummer, slik at det er lik
'Antall ganger markøren er flyttet opp av en linje
ActiveDocument.PageSetup.LineNumbering.StartingNumber = iCount

'Reselect det opprinnelige utvalget
myRng.Select

'Skrive ut bare den opprinnelige utvalg
ActiveDocument.PrintOut Range: = wdPrintSelection

'Nullstille linjenummer (ved "angre" de to siste handlinger
'[Felt oppdatering og endring linjenummer])
'Slik at linjen begynner nummereringen ved en
ActiveDocument.Undo
ActiveDocument.Undo

'Reselect det opprinnelige utvalget
myRng.Select
End Sub

Det er en påminnelse med denne makroen. Hvis du har skjult tekst i dokumentet, og at skjult tekst vises, men er ikke satt opp til å skrive ut, så dette makro fortsatt teller disse tekstlinjer som om de ville skrive ut. Med andre ord, antar makro du skriver den skjulte teksten hvis du har det som vises på skjermen.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1525) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Riktig linjenummer når Skrive Selections.