WordPerfectのユーザーは、ディレクトリの内容を印刷できる機能に精通しているかもしれません。実際、ディレクトリ内のすべてのドキュメントを印刷しておくと非常に便利です。残念ながら、Wordには、同じタスクを実行できる組み込みコマンドがありません。ただし、この問題に取り組む方法はいくつかあります。

1つ目は、DOSの時代から「技術者」によって使用されてきた、古くからの実証済みのDIRメソッドです。コマンドプロンプトを開くだけです（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で終わるファイルのみに）、2つのプログラム行でファイル仕様（ “。”）を変更できます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1148）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

link：/ wordribbon-Printing_a_File_List [ファイルリストの印刷]。