Wordのヘッダー内の文字列をVBAで簡単に置換する方法

皆さん、こんにちは。今日は、Wordのヘッダー内にある特定の文字列を、VBAを使って簡単に置換する方法をご紹介します。普段、文書のヘッダー部分を手作業で編集している方にとって、作業効率が格段にアップする内容ですので、ぜひ最後までご覧ください。

VBAを使ってWordのヘッダー内の文字列を置換する手順
1. 1. 事前準備Wordオブジェクトライブラリの参照設定
2. 2. VBAコードの作成ヘッダー内の文字列を置換する
よくある質問や疑問
1. Q1. このマクロはフッター内の文字列も置換できますか？
2. Q2. 複数のWordファイルに対してこのマクロを適用することは可能ですか？
今すぐ解決したい！どうしたらいい？
まとめ

VBAを使ってWordのヘッダー内の文字列を置換する手順

Wordのイメージ

それでは、具体的な手順を見ていきましょう。

1. 事前準備Wordオブジェクトライブラリの参照設定

まず最初に、VBAからWordを操作するための準備を行います。以下の手順で設定を行ってください。

ExcelのVBAエディタを開きます。
メニューから「ツール」を選択し、「参照設定」をクリックします。
表示された参照設定の一覧から「Microsoft Word XX.X Object Library」にチェックを入れ、「OK」をクリックします。

この設定を行うことで、VBAからWordの機能を利用できるようになります。

2. VBAコードの作成ヘッダー内の文字列を置換する

次に、実際にヘッダー内の文字列を置換するVBAコードを作成します。以下のコードを参考にしてください。

vba

Public Sub ReplaceInHeaders()
    '--- Wordのアプリケーションオブジェクトを作成 ---'

    Dim objWord As Word.Application

    Set objWord = CreateObject("Word.Application")

    objWord.Visible = True
    '--- ドキュメントオブジェクトを開く ---'

    Dim objDoc As Word.Document

    Set objDoc = objWord.Documents.Open("[ワードファイルのパス]")
    '--- 置換前の文字列 ---'

    Dim strTarget As String

    strTarget = "[置換前の文字列]"
    '--- 置換後の文字列 ---'

    Dim strReplaced As String

    strReplaced = "[置換後の文字列]"
    '--- セクション・ヘッダー数を格納する変数 ---'

    Dim i_n As Long

    Dim j_n As Long
    '--- 全てのセクション・ヘッダーでループ ---'

    Dim objFind As Word.Find

    Dim i As Long

    Dim j As Long

    i_n = objDoc.Sections.Count

    For i = 1 To i_n

        j_n = objDoc.Sections(i).Headers.Count

        For j = 1 To j_n
            '--- 各セクション・ヘッダーで置換を実行 ---'

            Set objFind = objDoc.Sections(i).Headers(j).Range.Find
            objFind.ClearFormatting

            objFind.Text = strTarget

            objFind.Replacement.ClearFormatting

            objFind.Replacement.Text = strReplaced

            Call objFind.Execute(Replace:=Word.wdReplaceAll)

        Next j
    Next i
    '--- ドキュメントを保存して閉じる ---'

    objDoc.Save

    objDoc.Close
    '--- Wordを終了する ---'

    objWord.Quit

End Sub

このコードでは、指定したWordファイルを開き、全てのセクションの全てのヘッダー内で特定の文字列を別の文字列に置換しています。具体的な使い方は以下の通りです。

`[ワードファイルのパス]`に、操作したいWordファイルのフルパスを入力します。
`[置換前の文字列]`に、ヘッダー内で置換したい文字列を入力します。
`[置換後の文字列]`に、置換後の文字列を入力します。

これらを設定した上で、マクロを実行すると、指定した文字列の置換が自動的に行われます。

よくある質問や疑問

Q1. このマクロはフッター内の文字列も置換できますか？

はい、可能です。コード内の`Headers`を`Footers`に置き換えることで、フッター内の文字列を置換することができます。例えば、以下のように変更します。

vba

'--- 全てのセクション・フッターでループ ---'

For i = 1 To i_n

    j_n = objDoc.Sections(i).Footers.Count

    For j = 1 To j_n
        '--- 各セクション・フッターで置換を実行 ---'

        Set objFind = objDoc.Sections(i).Footers(j).Range.Find

objFind.ClearFormatting objFind.Text = strTarget objFind.Replacement.ClearFormatting objFind.Replacement.Text = strReplaced Call objFind.Execute(Replace:=Word.wdReplaceAll) Next j Next i

このように変更することで、フッター内の文字列を置換することができます。