WordファイルをVBAで簡単に結合する方法

皆さん、こんにちは。今日は、複数のWordファイルを一つにまとめる方法についてお話しします。特に、パソコンやスマホの操作がちょっと苦手な方でも、簡単にできる方法をご紹介しますので、ぜひ最後までご覧ください。

はじめに複数のWordファイルを結合する必要性
VBAとは？
VBAを使ってWordファイルを結合する手順
よくある質問や疑問
1. Q1: マクロを実行しても何も起こらないのですが、どうすればいいですか？
2. Q2: 結合するファイルの順番を指定することはできますか？
今すぐ解決したい！どうしたらいい？
まとめ

はじめに複数のWordファイルを結合する必要性

Wordのイメージ

例えば、旅行の計画を立てるときに、日程表や宿泊先の情報、観光地のリストなど、複数のWordファイルができてしまうことがありますよね。これらを一つのファイルにまとめておけば、見やすくて便利です。でも、手作業でコピー＆ペーストするのは大変です。そこで、VBAという機能を使って、自動的にファイルを結合する方法をご紹介します。

VBAとは？

まず、VBA（Visual Basic for Applications）について簡単に説明します。これは、Microsoft Office製品に組み込まれているプログラミング言語で、WordやExcelの操作を自動化することができます。難しそうに聞こえるかもしれませんが、基本的な使い方を覚えれば、作業効率がぐっと上がります。

VBAを使ってWordファイルを結合する手順

では、具体的な手順をご紹介します。

Wordを開き、「Alt」キーと「F11」キーを同時に押して、VBAエディタを起動します。
メニューから「挿入」→「標準モジュール」を選択します。
表示されたウィンドウに、以下のコードをコピー＆ペーストします。

vba

Sub ファイルの統合()

    Dim fld As FileDialog

    Dim myFileName As String

    Dim myFilePath As String

    Dim mySecNum As Integer
    'フォルダの選択

    Set fld = Application.FileDialog(msoFileDialogFolderPicker)

    If fld.Show = 0 Then Exit Sub
    myFilePath = fld.SelectedItems(1)

    myFileName = Dir(myFilePath & "\*.doc*")

    If myFileName = "" Then MsgBox "選択したフォルダ内に、Wordファイルがありません。": Exit Sub
    '記録用の新規文書を開く

    Documents.Add
    'ファイルのコピー

    Do While myFileName <> ""

        With Selection

            'セクション番号取得

            mySecNum = ActiveDocument.Range(0, Selection.Sections(1).Range.End).Sections.Count

            With ActiveDocument.Sections(mySecNum)

                'ヘッダー名追加

                With .Headers(wdHeaderFooterPrimary)

                    .LinkToPrevious = False

                    If mySecNum Mod 2 = 0 Then

                        .Range.Font.ColorIndex = wdBlue

                    Else

                        .Range.Font.ColorIndex = wdRed

                    End If

                    .Range.Text = myFileName

                End With

            End With

'ファイルの内容を文書末尾に追記 .InsertFile FileName:=myFilePath & "\" & myFileName .InsertParagraphAfter .InsertBreak Type:=wdSectionBreakNextPage End With myFileName = Dir() Loop End Sub