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

1つ目は、DOSの時代から「技術者」によって使用されてきた、古くからの実証済みのDIRメソッドです。コマンドプロンプトウィンドウを開き、リストが必要なディレクトリを見つけて、次のコマンドを入力するだけです。

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で終わるファイルのみ)、2つのプログラム行でファイル仕様( “。”)を変更できます。

注:

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

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

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(1466)は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス: