Word VBAの真髄：Findオブジェクトで「検索と置換」を完全掌握する
こんにちは。自動化の深淵へようこそ。
マクロの記録ボタンを押して生成された、あの「冗長で修正困難なコード」にうんざりしていませんか？
Word VBAにおける`Find`オブジェクトは、単なる「検索ツール」ではありません。Wordのドキュメント構造を自在に操るための、最も強力なインターフェースです。今回は、特定のキーワードを赤字・太字にするという基本操作を通じて、「なぜマクロの記録ではダメなのか」という核心に迫りつつ、現場で通用する堅牢なコードの書き方を伝授します。
—
1. なぜ「マクロの記録」を卒業すべきなのか
マクロの記録で生成されるコードは、Wordが内部で実行した「全操作」をそのまま書き出したものです。そのため、`Selection.Find`のように、カーソルの動きに依存する非効率な書き方が連発されます。
私たちが目指すのは、「カーソルを動かさず、メモリ上で高速に処理を完結させる」コードです。これにより、処理速度が劇的に向上し、意図しない場所でエラーが起きるリスクを排除できます。
—
2. 実践：特定の文字列を赤字・太字にする
以下のコードは、文書内の特定の単語を検索し、その書式を瞬時に書き換えるためのテンプレートです。
Sub HighlightKeyword()
‘ Wordの検索・置換の核となるRangeオブジェクトを定義
Dim rng As Range
Set rng = ActiveDocument.Content
‘ 検索条件をクリア（重要：前回の設定が残っていると誤作動するため）
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
‘ 検索対象の文字列
.Text = “重要事項”
‘ 置換後の書式を設定
.Replacement.Text = “重要事項”
.Replacement.Font.Color = wdColorRed
.Replacement.Font.Bold = True
‘ 検索・置換の実行オプション
.Forward = True ‘ 文書の後方に向かって検索
.Wrap = wdFindContinue ‘ 文書全体を対象にする
.Format = True ‘ 書式設定を有効にする
.MatchCase = False ‘ 大文字小文字を区別しない
‘ 全て置換を実行
.Execute Replace:=wdReplaceAll
End With
MsgBox “処理が完了しました。”, vbInformation
End Sub
—
3. コードの「極意」を紐解く
このコードには、初心者が必ずと言っていいほどハマる「落とし穴」を防ぐための工夫が詰まっています。
- `rng.Find` を使う理由: `Selection.Find`（カーソルを使う方法）は、画面の描画更新が発生するため非常に低速です。`Range`オブジェクトを直接操作することで、Wordの画面描写を介さずにメモリ内で完結させます。
- `.ClearFormatting` の魔法: Wordの検索設定は、一度実行するとその設定が「記憶」されます。もし前回「太字」を検索した履歴があれば、今回も太字を探そうとして失敗します。処理の冒頭で必ず設定をクリアするのが、プロの流儀です。
- `.Execute Replace:=wdReplaceAll`: ここが自動化の肝です。一文字ずつ調べるループ処理を書く必要はありません。Wordの検索エンジンは強力です。この一行で、数千ページのドキュメントも一瞬で処理されます。
—
4. 陥りやすいエラーと回避策
初心者の方がよく遭遇するエラー、そしてその解決策をまとめました。
1. 「何も見つからない」: 文書内に検索対象が存在しない場合、VBAはエラーを吐きません。しかし、もし処理の結果を判定したい場合は、`If .Execute Then` というように、戻り値をチェックするようにしましょう。
2. 「書式が変わらない」: `.Format = True` を忘れていませんか？ 文字列は置換されるのに書式が変わらない場合、ほぼ100%この設定漏れです。
3. 「置換対象が無限ループする」: 検索文字列と置換後の文字列が同じ場合、`.Execute Replace:=wdReplaceAll` でWordが永久ループに陥ることがあります。少し複雑な置換を行う際は、必ずバックアップを取ってから実行してください。
—
最後に：自動化の先にあるもの
今回学んだ`Find`オブジェクトは、Word VBAという巨大な海を渡るための「羅針盤」です。これがマスターできれば、次は正規表現を組み合わせた高度な検索や、特定の段落スタイルのみを対象にした抽出など、世界は一気に広がります。
まずはこのコードをコピーして、ご自身の文書で試してみてください。「ボタン一つで資料が整う」という感動こそが、エンジニアとしての第一歩です。
何か分からないことがあれば、またいつでも聞きに来てくださいね。あなたの自動化の旅を、心から応援しています。
