Word VBAで複数の語句を一括置換する方法：初心者でもできる簡単マクロ

2025.06.18

Wordで文書を作成していると、「この言葉を統一したい」「何度も同じ語句を変えたい」といった場面がよくあります。そんなときに便利なのが、Word VBA（マクロ）を使った一括置換です。今回は、初心者の方でもわかりやすく、実際に使えるマクロを紹介します。

なぜマクロを使うのか？
マクロを使った一括置換の基本の流れ
もっと便利に！Excelで置換リストを管理する方法
注意点とアドバイス
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

なぜマクロを使うのか？

Wordのイメージ

普段、Wordの「検索と置換」機能を使って語句を変えることができますが、複数の語句を一度に置換するのは手間がかかります。そこで、マクロを使うことで、何度も同じ作業を繰り返す手間を省き、効率的に作業を進めることができます。

マクロを使った一括置換の基本の流れ

まずは、基本的な流れを見ていきましょう。

Wordを開き、「開発」タブを表示します。もし「開発」タブが表示されていない場合は、設定から表示させてください。
「Visual Basic」をクリックし、VBAの編集画面を開きます。
新しいモジュールを挿入し、以下のコードを貼り付けます。



Sub 一括置換()

    Dim 置換リスト As Variant

    Dim i As Integer
    ' 置換前と置換後の語句をリストに追加

    置換リスト = Array( _

        Array("子供", "子ども"), _

        Array("様々", "さまざま") _

    )

' 置換処理 For i = LBound(置換リスト) To UBound(置換リスト) With ActiveDocument.Content.Find .Text = 置換リスト(i)(0) .Replacement.Text = 置換リスト(i)(1) .Execute Replace:=wdReplaceAll End With Next i End Sub

「F5」キーを押してマクロを実行します。

これで、指定した語句が一括で置換されます。

もっと便利に！Excelで置換リストを管理する方法

置換する語句が増えてくると、コードの編集が大変になります。そんなときは、Excelで置換リストを管理し、マクロで読み込む方法がおすすめです。

Excelで置換前と置換後の語句をリストにする（例A列に置換前、B列に置換後）。
WordのマクロでExcelファイルを開き、リストを読み込むコードを追加します。



Sub Excelから置換リストを読み込む()

    Dim ExcelApp As Object

    Dim wb As Object

    Dim ws As Object

    Dim i As Integer

    Dim 置換リスト As Variant
    ' Excelを起動

    Set ExcelApp = CreateObject("Excel.Application")

    ExcelApp.Visible = False ' Excelを非表示で開く
    ' Excelファイルを開く

    Set wb = ExcelApp.Workbooks.Open("置換リストのパス.xlsx")

    Set ws = wb.Sheets(1)
    ' リストのデータを配列に格納

    置換リスト = ws.UsedRange.Value
    ' 置換処理

    For i = 2 To UBound(置換リスト, 1) ' 1行目はヘッダーなので2行目から

        With ActiveDocument.Content.Find

            .Text = 置換リスト(i, 1)

            .Replacement.Text = 置換リスト(i, 2)

            .Execute Replace:=wdReplaceAll

        End With

    Next i