Opprette flere Blanke dokumenter i One Step

May 27  by Eliza

Det er tider når Larry absolutt behov for å opprette fire eller flere nye tomme dokumenter. Han lurer på om det er en måte å opprette fire nye tomme dokumenter (det ville være fint å legge inn hvor mange tomme dokumenter nødvendig) på en gang.

Det er noen måter du kan nærme seg dette problemet. Hvis alt du ønsker å gjøre er å opprette fire nye dokumenter, alt basert på Normal-malen, er den enkleste måten å bare trykke Ctrl + N fire ganger. (Egentlig kan du holde nede Ctrl-tasten og trykk på N fire ganger.) Resultatet er fire tomme dokumenter, klar til å brukes.

Hvis dokumentene må være basert på en annen mal enn Normal-malen, så er det best å bruke en makro. Følgende makro ber brukeren om hvor mange dokumenter skal opprettes, og deretter skaper dem basert på BusinessReport mal.

Sub NewDocuments ()
Dim Svar Som Variant
Dim iNewDocs As Integer
Dim J As Integer

Svar = InputBox ("Hvor mange nye dokumenter?")
iNewDocs = Cint (Svar)
For J = 1 til iNewDocs
Documents.Add Mal: ​​= "BusinessReport", NewTemplate: = False, _
Dokumenttype: = wdNewBlankDocument
Neste J
End Sub

Makroen kan bli tildelt en hurtigtast eller til en knapp på en verktøylinje, klar til å opprette dokumenter. Du kan også ta en litt annen tilnærming med samme kode. Opprett et nytt dokument basert på ønsket mal (for eksempel BusinessReport mal), og deretter legge til denne makroen til malen:

Sub Autoopen ()
Dim Svar Som Variant
Dim iNewDocs As Integer
Dim J As Integer

Svar = InputBox ("Hvor mange flere dokumenter?", "Doc Count")
iNewDocs = Cint (Svar)
For J = 1 Til iNewDocs
Documents.Add Mal: ​​= "BusinessReport", NewTemplate: = False, _
Dokumenttype: = wdNewBlankDocument
Neste
End Sub

Lagre dokumentet under et navn som "MultipleDocs.docm." Grunnlaget for den makro er den samme som den forrige. Forskjellen er navnet gitt til makroen. Siden den bruker den spesielle Autoopen navn, så når den MultipleDocs dokumentet senere blir åpnet, makroen kjøres automatisk, og brukeren blir spurt om hvor mange ytterligere dokumenter for å skape.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (11237) gjelder for Microsoft Word 2007 og 2010. Du kan finne en versjon av dette tipset for den eldre menygrensesnittet i Word her: Opprette flere blanke dokumenter i One Step.