ファイルリストの印刷(Microsoft Word)
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の古いメニューインターフェイス:
linkファイルリストの印刷。