Ved hjelp Sekvensiell Dokumentserienumre

November 28  by Eliza

Hvis du har behov for å skape serienumre i dokumentene, og de er svært enkle i naturen, kan du gjøre det ved hjelp av en makro. Denne tilnærmingen til serienumre er flott hvis serienumre er sekvensielle (1, 2, 3 osv) eller vanlig i deres forekomst (3, 5, 7, osv).

Til å begynne, bør du gå inn i makro som skal styre endringen av serienummer og utskrift av dokumentet. Du kan bruke følgende makro:

Sub MySerial ()
Dim rngSerialLocation Som Range
Dim intSerialNum As Integer
Dim strSerialNum As String
Dim docCurrent Som Document
Dim intNumCopies As Integer
Dim intCount As Integer

'Satt ref til dagens aktive doc
Satt docCurrent = Application.ActiveDocument
'Satt ref til den bokmerkede serienummer
Satt rngSerialLocation = docCurrent.Bookmarks ("Serial"). Range

"Få startnummer
intSerialNum = Val (rngSerialLocation.Text)
'Få antall eksemplarer som kreves
intNumCopies = Val (InputBox $ ("Hvor mange kopier?", _
"Skriv Serialisert", "1"))

For intCount = 1 Til intNumCopies
'Skrive ut dokumentet
docCurrent.PrintOut Range: = wdPrintAllDocument
'Øke serienummeret
intSerialNum = intSerialNum + 1
"Sette inn formatert versjon
strSerialNum = Format (intSerialNum, "00000")
"Ting til riktig sted
rngSerialLocation.Text = strSerialNum
Neste intCount

'Reset bokmerket, siden oppdateringsprosedyren
'Visker ut den gamle
docCurrent.Bookmarks.Add Navn: = "Serial", _
Range: = rngSerialLocation
End Sub

Det er bare én forutsetning for å bruke makro: du må sørge for at dokumentet inneholder et bokmerke som heter Serial. Dette bokmerket bør referere serienummeret i dokumentet, som du vil at det skal vises i den første trykte dokumentet. (Når du er gjennom å kjøre makroen, kan du lagre dokumentet og serienummeret vil være klar til neste gang du ønsker å bruke den.)

Makroen forutsetter også at serienummeret består i hovedsak av noen numerisk verdi som endres for hver iterasjon. Du kan endre inkrementeringen av serienummeret, så vel som dens formatering, i For ... Neste sløyfe innenfor makro.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1747) 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: Bruke Sekvensiell Dokumentserienumre.