Word VBAを掌握する極限の知見：Wordの検索（Find）と正規表現（RegExp）を融合した「ハイブリッド検索エンジン」構築ガイド
こんにちは！いつもWordでの文書作成や編集、お疲れ様です。
Word VBAの世界へようこそ。マクロの記録を卒業し、「もっと複雑な自動化をしてみたい」「誤置換を絶対に防ぎたい」と思い始めたあなたへ、今回はWord VBAにおける最高峰のテクニックをプレゼントします。
テーマは、Wordの「検索（Find）」機能と「正規表現（RegExp）」を掛け合わせた『ハイブリッド検索・置換エンジン』の構築です。
「Wordのワイルドカード検索（あいまい検索）だけでは、どうしても誤検出が多い……」
「かといって、VBAの正規表現だけで置換すると、Wordの大切な書式（フォントや色、太字など）が消えてしまう……」
そんな悩みを抱えていませんか？
実は、これらはWord VBAを少し学んだ人が必ずぶつかる「巨大な壁」なのです。
今回は、この壁を軽々と飛び越え、Word VBAの挙動を完全にコントロールする堅牢なプログラムを一緒に作っていきましょう。この記事を読み終える頃には、「Word VBAの基本から本質まで」がしっかりと身につき、自信を持ってコードが書けるようになりますよ！
—
1. なぜ「ハイブリッド」なのか？ 2つの技術の得意・不得意
まずは、今回なぜ2つの方法を組み合わせるのか、その理由を優しく紐解いていきましょう。
実は、Wordの「Find（検索）」と、プログラミングでよく使われる「正規表現（RegExp）」には、それぞれ得意分野と致命的な苦手分野があります。
| 機能 | 得意なこと | 苦手なこと |
| :— | :— | :— |
| WordのFind機能 | ・Word文書内の「位置（Range）」を正確に特定できる
・書式（太字、スタイルなど）を維持したまま操作できる | ・複雑な条件分岐（否定、特定の桁数など）ができない
・ワイルドカードの仕様が特殊でバグを生みやすい |
| 正規表現（RegExp） | ・「3桁の数字-4桁の数字」など、極めて厳密なパターン検証ができる
・「〇〇を含まない」といった高度な条件判定が可能 | ・Wordの「装飾（フォントや文字色）」を理解できない
・テキストをそのまま書き換えると書式が破壊される |
賢い先輩のワンポイントアドバイス
> 「WordのFindで大まかにアタリをつけて（Rangeオブジェクトを取得して）、その部分のテキストを正規表現（RegExp）でピタッと精密検査する。合格したものだけをWord側で書き換える。これが、Wordの書式を100%守りながら、誤置換を完全にゼロにする唯一無二のアプローチなんだよ」
—
2. ハイブリッド検索の処理フロー（図解）
処理の流れをイメージしてみましょう。
今回は例として、「【郵便番号：123-4567】」のようなテキストから、「123-4567（半角数字3桁＋ハイフン＋半角数字4桁）」という厳密なパターンに一致する部分だけを探し出し、書式（太字や赤字など）を保ったまま「〒123-4567」へスマートに置換する処理を実装します。
[ Word文書全体 ]
│
▼ ① Wordの「Find」で「【】」という大まかな塊を検索
┌────────────────────────┐
│ 見つかった！「【郵便番号：123-4567】」 │ ◀── この部分の「Range」を確保
└────────────────────────┘
│
▼ ② そのRangeの「Text」だけを取り出して、正規表現（RegExp）に投入
┌────────────────────────┐
│ RegExp: “(\d{3}-\d{4})” に合致するか？ │ ◀── 厳密に検証！
└────────────────────────┘
│
├─── [合致する！(True)] ──▶ ③ WordのRangeを「〒123-4567」に安全に書き換え（書式はキープ！）
│
└─── [合致しない(False)] ─▶ ③ 何もしないで次の検索へスキップ
この方法なら、例えば「【電話番号：03-1234-5678】」のような、桁数が違う別のカッコ書きを誤って置換してしまう心配が一切なくなります。
—
3. 【実践】ハイブリッド検索・置換マクロ（完全版コード）
それでは、実際に動くコードを見てみましょう。
このコードは、面倒な「参照設定」を必要としない「遅延結合（Late Binding）」という手法を使っているため、新規のWordファイルにそのままコピペするだけで動きます。
コード内のコメントで、それぞれの処理が持つ「重要な意味」を詳しく解説しています。
Sub HybridFindAndReplace()
‘ =================================================================
‘ オブジェクトの宣言と初期化
‘ =================================================================
Dim doc As Document
Set doc = ActiveDocument ‘ 現在アクティブな文書を対象にする
Dim rng As Range
Set rng = doc.Content ‘ 文書全体を検索対象レンジとして初期設定
‘ VBScriptの正規表現オブジェクトを生成（参照設定不要の遅延結合）
Dim regEx As Object
Set regEx = CreateObject(“VBScript.RegExp”)
‘ —————————————————————–
‘ 正規表現パターンの設定
‘ —————————————————————–
‘ 今回は「3桁の数字 – 4桁の数字」を厳密にキャプチャします
regEx.Pattern = “(\d{3}-\d{4})”
regEx.IgnoreCase = True ‘ 大文字小文字を区別しない
regEx.Global = False ‘ 最初のマッチングだけを検証
‘ =================================================================
‘ Word Find機能による「大まかな絞り込み」の開始
‘ =================================================================
With rng.Find
.ClearFormatting ‘ 前回の検索条件や書式設定を綺麗にクリア（超重要！）
.Text = “【】” ‘ 隅付き括弧に囲まれた部分を大まかに探す
.MatchWildcards = True ‘ ワイルドカード（あいまい検索）を有効化
.Forward = True ‘ 文頭から文末に向かって検索
.Wrap = wdFindStop ‘ 検索範囲の末尾に達したら自動でループしないようにする
‘ ————————————————————-
‘ 検索ループの実行
‘ ————————————————————-
Do While .Execute
‘ .Executeが成功すると、変数「rng」の指す範囲が
‘ 自動的に「見つかったテキストの範囲」に縮小（移動）します。
‘ 安全対策：念のため、見つかった範囲が空でないかチェック
If rng.Text <> “” Then
‘ Debug.Print “検知したテキスト: ” & rng.Text ‘ イミディエイトウィンドウに出力
‘ —————————————————–
‘ 正規表現による「厳密な検証」
‘ —————————————————–
If regEx.Test(rng.Text) Then
‘ 正規表現にマッチした場合のみ、置換処理を実行します
‘ マッチした部分（郵便番号の数値部分）を抽出
Dim matches As Object
Dim match As Object
Set matches = regEx.Execute(rng.Text)
Set match = matches(0) ‘ 最初に見つかったマッチ
‘ WordのRangeオブジェクトを直接操作して置換
‘ ※これにより、文字のフォントや色、太字などの書式を壊さずに
‘ テキストだけを安全に入れ替えることができます。
rng.Text = “〒” & match.Value
‘ 【超重要】テキストを書き換えると、rngの範囲が新しく挿入された文字に変わります。
‘ 次の検索をこの「置換後の位置の直後」から再開させるために、
‘ レンジの終点（末尾）にカーソルをギュッと縮小（Collapse）させます。
rng.Collapse Direction:=wdCollapseEnd
Else
‘ 正規表現にマッチしなかった場合は、何もせず次の検索へ進む
‘ この場合も、無限ループを防ぐためにレンジを末尾に縮小します
rng.Collapse Direction:=wdCollapseEnd
End If
End If
Loop
End With
‘ =================================================================
‘ 後処理（メモリの解放）
‘ =================================================================
Set regEx = Nothing
Set rng = Nothing
Set doc = Nothing
MsgBox “ハイブリッド置換処理が完了しました！”, vbInformation, “完了”
End Sub
—
4. プログラミング初心者必読！つまずきやすいポイントと解決策
このコードには、Word VBAの挙動を知り尽くしたプロならではの「罠よけ」がいくつも施されています。特に陥りがちな3つのエラーと、その対策を解説します。
① なぜかマクロが無限ループに陥ってフリーズする！
Wordの検索（Find）で最も多いトラブルが、「マクロが止まらなくなり、Wordが強制終了する」という現象です。
- 原因： `rng.Find.Execute` が成功したあと、次の検索を開始する位置を「見つかった場所の次」に進めておかないと、同じ場所を何度も何度も検索し続けてしまいます。
- 対策： コード内の `rng.Collapse Direction:=wdCollapseEnd` がその役割を担っています。これは、選択範囲を「右端の1点」に押し潰す（Collapse）命令です。これにより、次の検索は必ず「今置換した場所の直後」からスタートするため、無限ループを確実に防ぐことができます。
② `ClearFormatting` って本当に必要？
- 原因： Wordの検索機能は、「最後に手動で実行した検索の条件（フォント色指定など）」を記憶して引きずってしまいます。
- 対策： 検索を実行する前に必ず `rng.Find.ClearFormatting` を呼び出し、検索条件を真っさらにリセットします。これがないと、「前のユーザーが赤文字検索をしていたせいで、マクロが何も見つけられない」といった謎のバグに悩まされることになります。
③ `Wrap = wdFindStop` の設定
- 原因： デフォルトの設定（`wdFindAsk` や `wdFindContinue`）だと、文書の最後まで検索したあとに「最初に戻って検索を続けますか？」というポップアップが出たり、勝手に先頭に戻ってループが無限に続いてしまったりします。
- 対策： `wdFindStop` を指定することで、「文書の最後まで行ったら、大人しく検索を終了する」というスマートな挙動に制限しています。
—
5. レベルアップのためのカスタマイズのヒント
このハイブリッド検索エンジンの素晴らしいところは、「正規表現のパターン（Pattern）」を書き換えるだけで、どんな複雑なルールにも一瞬で対応できる点です。
いくつか、現場で今すぐ使える実用的な正規表現パターンを紹介します。
- 半角英数字の製品型番（例：ABC-1234-XYZ）だけを置換したい
regEx.Pattern = “[A-Z]{3}-\d{4}-[A-Z]{3}”
- 特定のキーワード（例：「重要」「社外秘」）が含まれるカッコ書きだけを赤文字にしたい
regEx.Pattern = “【(重要|社外秘)：.】”
※この場合は、置換するだけでなく、マッチしたRangeに対して `rng.Font.ColorIndex = wdRed` のように書式を変更することも可能です！
—
まとめ：ここをクリアすれば、Word VBAの基本はバッチリですよ！
お疲れ様でした！
一見難しそうに見える「WordのFind」と「正規表現」の組み合わせですが、それぞれの役割を分担させることで、これ以上ないほどシンプルで強力なプログラムに仕上がることがお分かりいただけたかと思います。
マクロの記録で作ったコードは、環境が変わるとすぐに動かなくなったり、予期せぬ誤置換を起こしたりします。しかし、今回のように「オブジェクトの範囲（Range）を厳密にコントロールし、正規表現でフィルターをかける」という本質的な設計手法を身につければ、あなたの作るマクロの信頼性は劇的に向上します。
一歩一歩、コードの意味を理解しながら書いていけば、Word VBAは必ずあなたの強力な右腕になってくれますよ。
もし分からないことがあれば、このコードを何度も見返して、実際に動かしながら試してみてくださいね。あなたの業務自動化ライフが、より素晴らしいものになりますように！
