Loading
Word.Tips.Net WordTips (Menu Interface)

Creating Multiple Blank Documents in One Step

Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Creating Multiple Blank Documents in One Step.

There are times when Larry absolutely needs to create four or more new blank documents. He wonders if there is a way to create four new blank documents (it would be nice to input how many blank documents needed) at once.

There are a few ways you can approach this problem. If all you want to do is create four new documents, all based on the Normal template, the easiest way is to simply press Ctrl+N four times. (Actually, you can hold down the Ctrl key and press N four times.) The result is four blank documents, ready to be used.

If your documents need to be based on a different template than the Normal template, then it is best to use a macro. The following macro prompts the user for how many documents should be created, and then creates them based on the BusinessReport template.

Sub NewDocuments()
    Dim Answer As Variant
    Dim iNewDocs As Integer
    Dim J As Integer

    Answer = InputBox("How many new documents?")
    iNewDocs = CInt(Answer)
    For J = 1 to iNewDocs
        Documents.Add Template:="BusinessReport", NewTemplate:=False, _
          DocumentType:=wdNewBlankDocument
    Next J
End Sub

The macro could be assigned to a shortcut key or to a button on a toolbar, ready to create your documents. You could also take a slightly different approach with the same code. Create a new document based on the desired template (such as the BusinessReport template), and then add this macro to the template:

Sub AutoOpen()
    Dim Answer As Variant
    Dim iNewDocs As Integer
    Dim J As Integer

    Answer = InputBox("How many more docs?", "Doc Count")
    iNewDocs = CInt(Answer)
    For J = 1 To iNewDocs
        Documents.Add Template:="BusinessReport", NewTemplate:=False, _
          DocumentType:=wdNewBlankDocument
    Next
End Sub

Save the document under a name such as "MultipleDocs.doc." The basis of the macro is the same as the previous one. The difference is the name given to the macro. Since it uses the special AutoOpen name, then whenever the MultipleDocs document is subsequently opened, the macro is automatically run and the user is asked how many additional documents to create.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (11236) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Creating Multiple Blank Documents in One Step.

Related Tips:

Comprehensive VBA Guide Visual Basic for Applications (VBA) is the language used for writing macros in all Office programs. This complete guide shows both professionals and novices how to master VBA in order to customize the entire Office suite for their needs. Check out Mastering VBA for Office 2010 today!

 

Leave your own comment:

*Name:
Email:
  Notify me about new comments ONLY FOR THIS TIP
Notify me about new comments ANYWHERE ON THIS SITE
Hide my email address
*Text:
*What is 5+3 (To prevent automated submissions and spam.)
 
 
           Commenting Terms

Comments for this tip:

Bradley Steffens    19 May 2015, 07:06
OMG! Am I the only idiot who did not know about Ctrl+N? I am a professional writer who has been using this piece of a crap with a "ribbon" since it came out, and I have opened every new document by clicking the color ball once, clicking "New" once, and then--worst of all--having to click the idiotic choice between "Blank document" and "Blog post", not just once but twice. I have done this thousands of times--no exaggeration. So, um, thanks hardly does it justice, but thanks!
 
 

Our Company

Sharon Parq Associates, Inc.

About Tips.Net

Contact Us

 

Advertise with Us

Our Privacy Policy

Our Sites

Tips.Net

Beauty and Style

Cars

Cleaning

Cooking

DriveTips (Google Drive)

ExcelTips (Excel 97–2003)

ExcelTips (Excel 2007–2016)

Gardening

Health

Home Improvement

Money and Finances

Organizing

Pests and Bugs

Pets and Animals

WindowsTips (Microsoft Windows)

WordTips (Word 97–2003)

WordTips (Word 2007–2016)

Our Products

Helpful E-books

Newsletter Archives

 

Excel Products

Word Products

Our Authors

Author Index

Write for Tips.Net

Copyright © 2016 Sharon Parq Associates, Inc.