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

第一种是古老的，久经考验的DIR方法，自DOS时代以来，“技术人员”就一直在使用它。只需打开命令提示符（MS-DOS）

窗口中，找到您想要列表的目录，然后键入以下命令：

dir /b > mydir.txt

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

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

Sub ListFiles()

Dim PathWanted As String     Dim Temp As String     Dim i As Integer

With Dialogs(wdDialogFileOpen)

.Name = "."

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

Selection.TypeText "Files in " & PathWanted & ":" & vbCrLf             With Application.FileSearch                 .LookIn = PathWanted                 .FileName = "."

If .Execute > 0 Then                     For i = 1 To .FoundFiles.Count                         Temp = .FoundFiles(i)

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

Wend                         Selection.TypeText Temp & vbCrLf                     Next                 End If             End With         End If     End With End Sub

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

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1148）适用于Microsoft Word 97、2000、2002和2003。您可以在Word（Word 2007）的功能区界面中找到此技巧的版本。和更高版本）在这里：

打印文件列表。