複数のWord 2010文書を結合する

Word 2010は、基本的な編集ツールやグラフ作成スタイルに加え、文書を自由にカスタマイズできるオプションも備えており、文句なしに最高のWordエディタです。Word 2010には、デフォルトで隠されている機能を追加するためのオプションが用意されています。例えば、数行のコードを挿入するだけで、専用のサードパーティ製アプリを使わずにWord文書を結合できます。この記事では、数行のコードを挿入するだけで、同じフォルダにあるすべての文書の内容を結合し、新しいフォルダに表示する方法を説明します。

まず、すべてのファイルを同じフォルダに保存し、Wordのバージョン（DocまたはDocx）が同じであることを確認してください。下のスクリーンショットに示すように、結合する2つの文書を開いています。

複数のWord 2010文書を結合する

次に、任意の Word 文書を開き、マクロ有効文書として保存します。そのためには、[ファイル] メニューに移動して [名前を付けて保存] をクリックします。

複数のWord 2010文書を結合する

ダイアログが表示されるので、「ファイルの種類」から「Word マクロ有効テンプレート」をクリックし、「保存」をクリックします。

複数のWord 2010文書を結合する

VBエディタを使用するため、まずWordウィンドウに「開発」タブが表示されるようにする必要があります。 「開発」タブが見つからない場合は、「ファイル」メニューの「オプション」をクリックし、左側のペインで「リボンのユーザー設定」をクリックします。右側のペインで「開発」チェックボックスをオンにします。「OK」をクリックすると、リボンに「開発」タブが表示されます。

複数のWord 2010文書を結合する

次に、[開発]タブに移動して[Visual Basic] をクリックします。

複数のWord 2010文書を結合する

VBエディタダイアログが表示されます。左側のサイドバーから「ThisDocument」をダブルクリックしてVB編集ウィンドウを開きます。右側にコードウィンドウが表示されますので、そこに以下のコードを入力してください。

注：これらのコード行にある文書が保存されているフォルダのパスとWord文書のバージョンを忘れずに変更してください。作業を容易にするため、コードの前にもこの注意事項を追加しています。

サブ MergeDocs()

暗くする範囲

MainDoc をドキュメントとして暗黙的に記述する

Dim strFile As String

Const strFolder = “C:\Users\Usman Javaid\Desktop\Word documents\” ||| (ドキュメントが保存されているパスを変更します)

MainDoc = Documents.Add を設定します

strFile = Dir$(strFolder & “*.docx”) ||| (Word 97-03バージョンの場合はファイル拡張子を.docに変更してください)

strFile = “” まで実行する

rng = MainDoc.Range を設定します。

rng.Collapse wdCollapseEnd

rng.InsertFile strFolder & strFile

strFile = Dir$()

ループ

終了サブ