Word VBAでヘッダー・フッターを設定する方法｜初心者でもできる簡単マクロ解説

Wordの文書作成で、ヘッダーやフッターに日付やページ番号、ファイル名などを自動で挿入したいと思ったことはありませんか？特に、毎回手動で入力するのは面倒ですよね。そんなときに役立つのが、Word VBA（マクロ）です。

今回は、初心者の方でもわかりやすいように、Word VBAを使ってヘッダーやフッターを設定する方法を、実際のコードとともに解説します。

ヘッダー・フッターの基本
VBAでヘッダー・フッターを設定する基本的なコード
セクションごとの設定
ページごとの設定
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

ヘッダー・フッターの基本

Wordのイメージ

まず、ヘッダーとフッターの違いを簡単におさらいしましょう。

ここがポイント！

ヘッダー文書の上部に表示される部分で、通常は章タイトルや文書タイトルなどを記載します。
フッター文書の下部に表示される部分で、ページ番号や作成日などを記載します。

これらは、文書全体またはセクションごとに設定できます。VBAを使うことで、これらの設定を自動化できます。

VBAでヘッダー・フッターを設定する基本的なコード

以下のコードは、文書の最初のセクションのヘッダーとフッターに、それぞれファイル名とページ番号を挿入する例です。

Sub ヘッダーとフッターを設定する()
    ' ヘッダーにファイル名を挿入
    With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
        .Range.Fields.Add Range:=.Range, Type:=wdFieldFileName
        .Range.InsertBefore Text:="ファイル名"
        .Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
        .Range.Underline = wdUnderlineSingle
    End With

    ' フッターにページ番号を挿入
    With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
        .Range.Text = "ページ数/全ページ数"
        .Fields.Add Range:=.Words(1), Type:=wdFieldPage
        .Fields.Add Range:=.Words(3), Type:=wdFieldNumPages
        .Paragraphs.Alignment = wdAlignParagraphCenter
    End With
End Sub

このコードを実行すると、ヘッダーに「ファイル名」と現在のファイル名が挿入され、フッターには「ページ数/全ページ数」という形式でページ番号が挿入されます。

セクションごとの設定

Wordでは、文書をセクションに分けて、それぞれに異なるヘッダーやフッターを設定することができます。例えば、目次のページだけヘッダーを変更したい場合などに便利です。

以下のコードは、すべてのセクションのヘッダーとフッターを、前のセクションと同じ内容に設定する例です。

Sub セクションのヘッダーとフッターを統一する()
    Dim sec As Section
    For Each sec In ActiveDocument.Sections
        sec.Headers(wdHeaderFooterPrimary).LinkToPrevious = True
        sec.Footers(wdHeaderFooterPrimary).LinkToPrevious = True
    Next sec
End Sub

このコードを実行すると、すべてのセクションのヘッダーとフッターが、前のセクションと同じ内容になります。

ページごとの設定

さらに、ページごとにヘッダーやフッターを変更することもできます。例えば、奇数ページと偶数ページで異なるヘッダーを設定したい場合などです。

以下のコードは、奇数ページと偶数ページで異なるヘッダーを設定する例です。

Sub 奇数偶数ページでヘッダーを変更する()
    With ActiveDocument.PageSetup
        .OddAndEvenPagesHeaderFooter = True
    End With

    With ActiveDocument.Sections(1)
        .Headers(wdHeaderFooterOddPages).Range.Text = "奇数ページのヘッダー"
        .Headers(wdHeaderFooterEvenPages).Range.Text = "偶数ページのヘッダー"
    End With
End Sub

このコードを実行すると、奇数ページには「奇数ページのヘッダー」、偶数ページには「偶数ページのヘッダー」が表示されます。