Wordで文書を作成していると、特定の範囲だけを置換したい場面が出てきますよね。たとえば、段落の中の特定の単語だけを一括で変更したいときなどです。そんなときに役立つのが、Word VBA（Visual Basic for Applications）を使ったマクロです。
今回は、初心者の方でもわかりやすいように、実際の操作手順を交えながら解説します。これを覚えれば、日々の文書作成がぐっと効率的になりますよ！
Word VBAとは？
Wordのイメージ
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
まとめ
今回は、Word VBAを使って選択範囲を指定し、文字列を置換する方法について解説しました。これを覚えておけば、日々の文書作成がぐっと効率的になります。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント