【Word】ヘッダ・フッダ・先頭1行目・２行目を確認するマクロ　その１

Wordの既存資料から、ヘッダー・フッダー・先頭1行目・2行目のテキストを一括で確認するためのVBAマクロと、テスト用のダミーデータを設定するマクロの紹介です。

この記事でできること

複数のセクションを持つWord文書から、主要なヘッダー、フッダー、および本文の先頭1行目・2行目のテキストをイミディエイトウィンドウに出力して確認できます。

想定環境・前提条件

Microsoft Word (VBAが利用可能な環境)

1. ヘッダー・フッダー・1〜2行目を確認するマクロ

Sub Word_ヘッダ_フッダ_1_2行目の確認()
    Dim s As Section
    For Each s In ActiveDocument.Sections
        Debug.Print s.Headers(wdHeaderFooterPrimary).Range.Text
        Debug.Print s.Footers(wdHeaderFooterPrimary).Range.Text
        Debug.Print ActiveDocument.Sentences(1).Text
        Debug.Print ActiveDocument.Sentences(2).Text
    Next s
End Sub

2. ダミーデータを設定するマクロ

確認用のダミーとして、ヘッダー・フッダー・先頭行を設定するマクロです。

Sub Word_ヘッダ_フッダ_1_2行目の設定()
    Dim s As Section
    For Each s In ActiveDocument.Sections
        s.Headers(wdHeaderFooterPrimary).Range.Text = "ヘッダ"
        s.Footers(wdHeaderFooterPrimary).Range.Text = "フッダ"
        
        ActiveDocument.Range.InsertAfter "１行目" & vbCrLf
        ActiveDocument.Range.InsertAfter "２行目" & vbCrLf
    Next s
End Sub

使い方と実行結果

VBE (Visual Basic Editor) のイミディエイトウィンドウ (Ctrl + G) を開いた状態で各マクロを実行すると、結果が出力されます。