Word VBAの「Find」を使いこなす：置換後の「Range」を掌握し、文書整形を完全自動化せよ
Word VBAにおいて、`Find`オブジェクトは諸刃の剣だ。多くの初学者は「置換して終わり」の処理で満足するが、実務レベルでは「置換したその箇所に対して、後続処理（スタイル適用や属性変更）をどう連鎖させるか」こそが、真の自動化エンジニアの腕の見せ所となる。
今回は、検索結果の`Range`を正確に補足し、置換と書式適用をアトミックに処理する「堅牢なアーキテクチャ」を伝授する。
—
なぜ「Find.Execute」の戻り値だけで満足してはいけないのか
多くのコードが陥る罠は、`Find.Execute Replace:=wdReplaceAll` を多用することだ。これは高速だが、置換した各箇所の「場所」をVBA側で捕捉できない。
個別にスタイルを当てたい、あるいは特定の条件下でフォントカラーを変えたいといった複雑な要件に対し、`ReplaceAll`は無力だ。我々が取るべき戦略は、「置換のループ内でRangeオブジェクトを再定義し、そのRangeに対して操作を行う」というアプローチである。
—
プロダクションコード：置換とスタイル適用を連結する設計
以下のコードは、単に文字を置換するだけでなく、置換対象の`Range`を捕捉し、即座に書式を適用する堅牢な実装モデルだ。
‘ ———————————————————
‘ 機能：特定の文字列を検索し、置換後に独自のスタイルを適用する
‘ 設計：Rangeのライフサイクルを制御し、検索の「迷子」を防ぐ
‘ ———————————————————
Public Sub RefineDocumentStyle(targetText As String, replaceText As String)
Dim rng As Range
Set rng = ActiveDocument.Content
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = targetText
.Replacement.Text = replaceText
.Forward = True
.Wrap = wdFindStop ‘ 文末で止める（無限ループ回避の鉄則）
.Format = False
.MatchCase = False
.MatchWholeWord = False
‘ 検索ループを開始
Do While .Execute
‘ ExecuteがTrueを返した時点で、rngは「検索ヒット箇所」に再定義されている
‘ 1. 置換の実行（あえてReplaceAllを使わないことで制御権を保持）
rng.Text = replaceText
‘ 2. 書式適用：ここでRangeの属性を直接操作
With rng
.Font.Name = “Meiryo UI”
.Font.Size = 12
.Font.Color = wdColorRed
.ParagraphFormat.Alignment = wdAlignParagraphCenter
‘ 処理が終わったら、検索継続のためにRangeを末尾へ移動
.Collapse Direction:=wdCollapseEnd
End With
Loop
End With
End Sub
—
この設計が「伝説的」である3つの理由
1. `.Collapse` による検索精度の担保
多くのエンジニアが見落とすのが、`Execute`後の`Range`の終端位置だ。`rng.Collapse Direction:=wdCollapseEnd` を明示的に呼び出すことで、次の検索が現在地から確実に開始されることが保証される。これを行わないと、無限ループに陥るか、同じ箇所を永遠に置換し続けるという致命的なバグを誘発する。
2. アトミックな処理単位
置換とスタイル適用を一つのループ内に閉じることで、「置換したけどスタイルが適用されていない箇所」という中途半端な状態を排除している。これは、大規模な文書を処理する際に「処理の中断」に対する耐性を高める設計だ。
3. 正規表現（パターンマッチ）への拡張性
もし検索条件が複雑（例：日付形式や特定のコード形式）になった場合は、Wordの標準Findではなく、VBScriptの`RegExp`オブジェクトを併用することを推奨する。その際も、`rng.Find`の代わりに`rng`の`Start`と`End`を計算し、`ActiveDocument.Range(start, end)`で再定義する手法を使えば、今回の設計をそのまま流用できる。
—
実務における注意点：データベース連携とパフォーマンス
Word VBAで外部DB（AccessやExcel）から取得した値を使って置換する場合、以下の点に注意せよ。
- ワイルドカードの衝突: DB側のデータに “ や `?` が含まれている場合、そのまま`Find.Text`に渡すと予期せぬ挙動を示す。必ずエスケープ処理を噛ませること。
- メモリ解放: `Range`オブジェクトはループ内で生成・破棄される。小規模な文書なら問題ないが、数百ページに及ぶ文書の場合、`Set rng = Nothing` を明示的に呼び出すのがプロの作法だ。
- 画面描画の抑制: 大量置換を行う際は、必ず `Application.ScreenUpdating = False` で描画を止め、終了後に `True` に戻せ。これだけで処理速度が10倍変わる。
—
最後に：エンジニアとしての矜持
コードは「動けばいい」ものではない。「誰が読んでも意図が明確で、かつ予期せぬデータ入力にも崩れない」ことこそが、自動化ツールにおける品質だ。
今回の`Range`制御の考え方は、Word自動化の基礎体力となる。まずはこの構造を自身のツールに組み込み、その安定感を体感してほしい。さらなる極致を目指すなら、次はWordの`XML構造（CustomXMLPart）`との連携について語る必要がありそうだ。
現場の生産性を最大化せよ。健闘を祈る。
