Word VBAで選択範囲を指定して置換する方法【初心者向け解説】

Wordで文書を作成していると、特定の範囲だけを置換したい場面が出てきますよね。たとえば、段落の中の特定の単語だけを一括で変更したいときなどです。そんなときに役立つのが、Word VBA（Visual Basic for Applications）を使ったマクロです。

今回は、初心者の方でもわかりやすいように、実際の操作手順を交えながら解説します。これを覚えれば、日々の文書作成がぐっと効率的になりますよ！

Word VBAとは？
選択範囲を指定して置換する基本の流れ
応用編特定の段落だけを置換する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAとは？

PowerPointのイメージ

Word VBAとは、Microsoft Wordに組み込まれているプログラミング言語の一つで、文書の自動化やカスタマイズを行うためのツールです。これを使うことで、手作業では時間がかかるような操作も、ボタン一つで実行できるようになります。

選択範囲を指定して置換する基本の流れ

Word VBAで特定の範囲を指定して文字列を置換するには、以下の手順を踏みます。

VBAエディタを開く
Wordを開き、

Alt + F11

を押してVBAエディタを開きます。
新しいマクロを作成
「挿入」→「標準モジュール」を選択し、新しいモジュールを追加します。
マクロのコードを入力
以下のコードをコピーして、モジュールに貼り付けます。

Sub 範囲指定して置換() Dim rng As Range Set rng = Selection.Range With rng.Find .Text = "置換前の文字列" .Replacement.Text = "置換後の文字列" .Execute Replace:=wdReplaceAll End With End Sub
マクロを実行
VBAエディタを閉じ、Wordに戻ります。

Alt + F8

を押して「範囲指定して置換」を選択し、「実行」をクリックします。

これで、カーソルで選択した範囲内の「置換前の文字列」がすべて「置換後の文字列」に変わります。

応用編特定の段落だけを置換する方法

文書内の特定の段落だけを置換したい場合、以下のようにコードを変更します。

Sub 段落指定して置換()

    Dim rng As Range

    Set rng = Selection.Paragraphs(1).Range

    With rng.Find

        .Text = "置換前の文字列"

        .Replacement.Text = "置換後の文字列"

        .Execute Replace:=wdReplaceAll

    End With

End Sub

このコードでは、カーソルがある段落のみが対象となります。

よくある質問や疑問

Q1: VBAって難しそうだけど、初心者でもできるの？

はい、できます！最初は難しく感じるかもしれませんが、少しずつ覚えていけば大丈夫です。今回のような簡単なマクロから始めて、徐々にステップアップしていきましょう。

Q2: 他の範囲（例えば、表の中やフッター部分）を指定して置換することはできるの？

はい、可能です。対象となる範囲を適切に指定すれば、表のセルやヘッダー・フッター部分も対象にできます。具体的な方法については、別途詳しく解説しますので、お気軽にお尋ねください。

Q3: 置換する際に、大文字と小文字を区別したい場合はどうすれば良いですか？

Findオブジェクトの

.MatchCase

プロパティを

True

に設定することで、大文字と小文字を区別して検索・置換ができます。以下のようにコードを変更します。

Sub 大文字小文字区別して置換()

    Dim rng As Range

    Set rng = Selection.Range

    With rng.Find

        .Text = "置換前の文字列"

        .Replacement.Text = "置換後の文字列"

        .MatchCase = True

        .Execute Replace:=wdReplaceAll

    End With

End Sub