こんにちは！ Word VBAの奥深い世界へようこそ。世界最高峰の業務自動化アーキテクトの私から、今日は特別に、君のWordマクロを「次元違いのレベル」へと引き上げる極上の知見を授けよう。
マクロの記録から一歩抜け出し、「文字・文字列の検索と置換」を極めようとしたとき、誰もが一度はWord標準の `Find` オブジェクトの独特なクセや、ワイルドカードの制限（「文字数が指定できない」「正規表現のグループ参照ができない」など）にもどかしさを覚えたはずだ。
「もっと柔軟に、例えば『英数字が混ざった特定のパターンを一網打尽に置換したい』『メールアドレスや特定のID形式だけを抜き出したい』」
そんなとき、私たちが頼るべき究極の武器が VBScriptのRegExp（正規表現）エンジン だ。
ここをクリアすれば、君はもうWord VBAの初学者ではない。複雑怪奇なドキュメント整形地獄から永遠に解放される。さあ、一緒に扉を開けよう！
—
なぜWord標準のFindではなく「RegExp」なのか？
Wordの「検索と置換」ダイアログや、VBAの `Selection.Find` / `Range.Find` は、いわゆる独自仕様のワイルドカードを採用している。これはこれで便利だが、一般的なプログラミング言語（JavaScriptやPythonなど）で使われる「正規表現（RegExp）」とは文法が異なり、表現力にも限界がある。
そこで、Windows環境（VBA）で標準利用できる VBScriptの正規表現エンジン（`VBScript.RegExp`） をWordのVBAから呼び出してやるのだ。
脳内イメージ：WordとRegExpの連携プレイ
1. 【読込】 Wordの文書全体（`ActiveDocument.Content.Text`）の文字列を、メモリ上の変数に一気に吸い上げる。
2. 【解析】 VBScriptのRegExpエンジンにその文字列を渡し、鬼のように高速なパターンマッチングを行わせる。
3. 【書込】 マッチした箇所を置換し、あるいは抽出し、一瞬でWordのドキュメントに書き戻す。
このアプローチをとることで、Word特有の「検索するたびに画面がチラつく」「処理が遅い」という致命的な弱点を華麗に回避できる。
—
実戦！VBScriptのRegExpを呼び出すコードテンプレート
百聞は一見にしかず。まずは、開発現場でそのままコピペして使える実用的なコードを見せよう。
このコードは、アクティブなWord文書内にある「半角英字3文字＋ハイフン＋数字4桁（例: `ABC-1234`）」というパターンを検出し、太字にして赤色に変える処理を行う。
Sub ApplyRegexHighlight()
Dim targetRange As Range
Dim regEx As Object
Dim matches As Object
Dim match As Object
‘ 1. VBScriptのRegExpオブジェクトを生成する
‘ ※これが外部エンジンを呼び出す魔法の呪文だ
Set regEx = CreateObject(“VBScript.RegExp”)
With regEx
‘ 検索パターンを設定（例: 英字3文字-数字4桁）
.Pattern = “[A-Za-z]{3}-\d{4}”
‘ 大文字・小文字を区別するかどうか（True = 区別する）
.IgnoreCase = True
‘ 文字列全体から「すべて」マッチする箇所を探す（Global = True）
.Global = True
End With
‘ 2. 文書の全テキストを対象にマッチングを実行
Set targetRange = ActiveDocument.Content
If regEx.Test(targetRange.Text) Then
Set matches = regEx.Execute(targetRange.Text)
‘ 3. マッチした個所をループで処理
‘ 注意：Wordの文字位置とVBScriptの文字位置のズレに配慮するため、
‘ 逆順（後ろから前へ）処理するのがプロの技だが、今回は簡易的にRangeを再構築する
For Each match in matches
‘ match.FirstIndex と match.Length を使ってWord上の位置を特定
Dim foundRange As Range
Set foundRange = ActiveDocument.Content
‘ Wordの文字位置（0始まりから1始まりへの変換）
foundRange.Start = ActiveDocument.Content.Start + match.FirstIndex
foundRange.End = foundRange.Start + match.Length
‘ 4. 装飾を加える（赤字・太字にする）
With foundRange.Font
.Color = wdColorRed
.Bold = True
End With
Next match
MsgBox matches.Count & ” 件のパターンを検出し、装飾を適用しました！”, vbInformation
Else
MsgBox “一致するパターンは見つかりませんでした。”, vbExclamation
End If
‘ 5. メモリ解放（綺麗に後片付けをするのが美しいエンジニアの作法）
Set regEx = Nothing
Set matches = Nothing
End Sub
—
コードの急所：ここが分からないとハマるポイント
先輩エンジニアとして、初心者がこの手法を使うときに必ずと言っていいほど直面する「罠」をいくつか解説しておこう。
罠1：Wordの「段落記号（改行）」問題
VBScriptのRegExpエンジンは、改行コードを `vbCr`（CR文字）として扱う。一方、Wordのストーリー内では段落末尾が `vbCr` で表現されるが、テーブルのセルやセクション区切りなどが混ざると、文字インデックス（`FirstIndex`）が微妙にズレることがある。
- 対策: 文書全体ではなく、段落ごとにループを回してRegExpを適用する設計にすると、このズレを完全にハックできる。
罠2：バックスラッシュ（`\`）の扱い
正規表現では `\d`（数字）や `\w`（単語構成文字）のようにバックスラッシュを多用する。VBAの文字列内では特別なエスケープは不要なのでそのまま書けるが、もしダブルクォーテーション内で複雑なパターンを組み立てる際は注意が必要だ。
罠3：メモリの解放（ライフサイクルを意識する）
`CreateObject(“VBScript.RegExp”)` で生成したオブジェクトは、VBAの実行が終わるまでメモリを占有し続けることがある。処理が終わったら必ず `Set regEx = Nothing` を記述し、OSにメモリを返却するクセをつけよう。これがプロとアマの分かれ道だ。
—
さらに先へ進む君へ：置換（Replace）の極意
「見つけて装飾する」だけでなく、「パターンに一致した文字列を別の文字列に置換したい」という場合は、RegExpの `.Replace` メソッドが使える。
例えば、日付の形式（`YYYY/MM/DD`）を一括で（`YYYY年MM月DD日`）に変換したい場合、以下の一行だけでそれが実現できる。
‘ パターン：4桁の数字 / 2桁の数字 / 2桁の数字
regEx.Pattern = “(\d{4})/(\d{2})/(\d{2})”
‘ $1, $2, $3 は正規表現のグループキャプチャ（括弧の中身）を参照する
ActiveDocument.Content.Text = regEx.Replace(ActiveDocument.Content.Text, “$1年$2月$3日配信号”)
※注意：`ActiveDocument.Content.Text = …` とやると、文書内の図表や書式がリセットされる場合があるため、純粋なテキスト置換にのみ用いること。書式を維持したまま置換したい場合は、前述の `Execute` ループ内で `foundRange.Text = “新しい文字列”` に書き換えるアプローチをとるのが安全だ。
—
まとめ
お疲れ様！ここまで理解できたなら、君のWord VBAの引き出しは圧倒的に深くなったはずだ。
- Word標準のFindの限界を、VBScript.RegExpで突破する。
- 文書テキストをメモリに吸い上げ、高速にパターンマッチングを行う。
- `FirstIndex` と `Length` を使って、Word上のRangeをピンポイントで操作する。
ここをクリアした君なら、どんなに複雑な社内フォーマットの整形依頼が来ても、涼しい顔で一瞬にして自動化ツールを組み上げることができるだろう。
明日からのドキュメント作成・校正作業が、劇的に変わることを保証しよう。さあ、エディタを開いて試してみたまえ！
