スチュアートは、多くの異なるテキストファイルを単一のWord文書に統合する必要性について書いています。ファイルを手動で挿入するのは、特に20または30の異なるテキストファイルを組み合わせる場合は、面倒であることがわかりました。

スチュアートにとって幸いなことに、彼のファイル名は予測可能でした：C1000.TXT、C1001.TXTなど。これにより、マクロをまとめて統合を行うのがかなり簡単になります。次の例では、すべてC：\ディレクトリにあるファイルC1000.TXTからC1030.TXTを検索し、それらを現在のドキュメントに結合します。

Sub CombineFiles()

Dim J As Integer     Dim sFile As String     For J = 1000 To 1030         sFile = "c:\c" & Trim(Str(J)) & ".txt"

If (Dir(sFile) > "") Then             Selection.InsertFile FileName:=sFile, ConfirmConversions:=False             Selection.TypeParagraph         End If     Next End Sub

挿入されるファイルの範囲を変更する場合は、For …​ Nextループの先頭で値を変更するだけです。ファイルが別のディレクトリにある場合は、sFileが設定されている次のコード行で使用されるパスを変更できます。範囲内のファイルが欠落している場合、そのファイルは自動的にスキップされます。

ファイルを結合するさらに簡単な方法がありますが、Wordを使用する必要はありません。 Windowsコマンドプロンプトで次のコマンドを使用できます：

copy C1???.txt single.txt

これにより、最大1000個のファイル（C1000.TXTからC1999.TXT）がSINGLE.TXTと呼ばれる単一のテキストファイルに結合されます。元のファイルは変更されません。

少数のファイルを結合する場合は、次の形式を使用できます：

copy C1020.txt+C1021.txt+C1022.txt+C1023.txt single.txt

この使用法により、C1020.TXTからC1023.TXTまでの4つのファイルがSINGLE.TXTに結合されます。この方法で、必要な数のファイルを一緒に追加できます。

ただし、この手法には1つの注意点があります。 copyコマンドを実行すると、ファイルに余分な文字が追加されることはありません。つまり、C1021.TXTの内容はC1020.TXTの直後に配置されます。たとえば、C1020.TXTに「テキスト1020」が含まれ、C1021.TXTに「テキスト1021」が含まれている場合、SINGLE.TXTには「テキスト1020テキスト1021」が含まれます。これを回避する唯一の方法は、各ソースファイルを編集してキャリッジリターンで終了することを確認するか、前に示したマクロを使用することです。

注：

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（9807）は、Microsoft Word 2007、2010、2013、および2016に適用されます。Wordの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。 linkCombiningDocuments。