WordPerfect的用户可能熟悉允许您打印目录内容的功能。确实，在目录中打印所有文档可能非常方便。不幸的是，Word没有内在的命令可以让您完成相同的任务。但是，有两种方法可以解决此问题。

第一种是古老的，久经考验的DIR方法，自DOS时代以来，“技术人员”就一直在使用它。只需打开命令提示符窗口，找到想要列表的目录，然后键入以下命令：

dir /b > mydir.txt

这将创建一个仅包含目录中文件名的文本文件（mydir.txt）。然后，您可以在Word中找到文件并将其作为文档加载。尽管此方法并非一步之遥，但也不是特别困难。

如果您想使用宏解决方案，可以使用以下方法。它显示标准的“打开”对话框，您可以在其中浏览想要列表的目录。当您在该目录中选择一个文件并单击“打开”时，宏将创建一个新的Word文档，其中列出了该目录包含的所有文件。请注意，您必须从目录中选择一个文件。

Sub ListFiles()

Dim PathWanted As String     Dim FName As String     Dim Temp As String

With Dialogs(wdDialogFileOpen)

.Name = "."

If .Display = -1 Then             Documents.Add             PathWanted = Options.DefaultFilePath(wdDocumentsPath)

Selection.TypeText "Files in " & PathWanted & ":" & vbCrLf

ChDir PathWanted             FName = Dir(".")

While FName <> ""

Temp = FName                 While InStr(Temp, "\") > 0                     Temp = Mid(Temp, InStr(Temp, "\") + 1)

Wend                 Selection.TypeText Temp & vbCrLf                 FName = Dir             Wend         End If     End With End Sub

如果要限制宏返回的文件（例如，仅以.DOCX结尾的文件），则可以在两个程序行中更改文件规范（“。”）。

注意：

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

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

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

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

打印文件列表。