有时候，Larry绝对需要创建四个或更多新的空白文档。他想知道是否有一种方法可以一次创建四个新的空白文档（最好输入需要多少个空白文档）。

有几种方法可以解决此问题。如果您要做的只是基于Normal模板创建四个新文档，最简单的方法就是简单地按Ctrl + N四次。 （实际上，您可以按住Ctrl键并按N四次。）结果是准备使用四个空白文档。

如果您的文档需要基于与普通模板不同的模板，则最好使用宏。下面的宏提示用户应该创建多少文档，然后根据BusinessReport模板创建它们。

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

可以将宏分配给快捷键或工具栏上的按钮，以准备创建文档。您也可以对相同的代码采取略有不同的方法。基于所需的模板（例如BusinessReport模板）创建一个新文档，然后将此宏添加到模板中：

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

用“ MultipleDocs.docm”之类的名称保存文档。宏的基础与上一个相同。区别在于为宏指定的名称。由于它使用特殊的AutoOpen名称，因此每当随后打开MultipleDocs文档时，该宏就会自动运行，并询问用户要创建多少个其他文档。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（11237）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

一步创建多个空白文档。