Word VBAの深淵：Findオブジェクトの「無限ループ」を断ち切るRange再定義の極意
Word VBAでドキュメント全体を走査し、置換や装飾を行う際、多くのエンジニアが一度は遭遇する壁がある。それが「Findオブジェクトによる無限ループ」だ。
「なぜかコードが止まらない」「置換した箇所が再び検索に引っかかり、永遠に同じ場所を処理し続ける」。これは `Selection` オブジェクトや、不適切な `Range` の再定義に依存していることが原因だ。
今日は、Wordのメモリ構造とオブジェクトのライフサイクルを理解した人間だけが到達できる、「堅牢かつ高速な検索・置換アルゴリズム」を伝授する。
—
1. なぜ「Rangeの再定義」が必須なのか
多くの初心者用コードでは、`Selection.Find` を使いがちだ。だが、これはGUI上のカーソルを移動させるため、処理速度が著しく低下し、かつ画面描画のチラつきを招く。
プロフェッショナルな設計においては、`Range` オブジェクトをメモリ上で操作するのが鉄則だ。しかし、`Range` を単純に `ActiveDocument.Content` に設定し、`Find.Execute` を繰り返すだけでは不十分だ。置換後の文字列が再度検索対象に含まれると、処理範囲の終端が無限に押し出され、制御不能に陥る。
極意は「検索が成功するたびに、Rangeの開始位置を検索終了位置の直後に物理的に移動させる」ことにある。
—
2. 実践的プロダクションコード：堅牢な走査アルゴリズム
以下に、バグを排除し、保守性を高めた「プロダクションコード」を示す。このテンプレートを自身のプロジェクトの基盤として活用してほしい。
Option Explicit
”’
”’
Public Sub SafeReplaceAll(ByVal targetText As String, ByVal replaceText As String)
Dim rngSearch As Range
‘ 文書全体の範囲で初期化
Set rngSearch = ActiveDocument.Content
‘ 画面描画を停止し、パフォーマンスを最大化
Application.ScreenUpdating = False
With rngSearch.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = targetText
.Replacement.Text = replaceText
.Forward = True
.Wrap = wdFindStop ‘ 重要：範囲外に出たら検索を終了させる
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
‘ 検索ループの核心部
Do While .Execute
‘ 1. ここで置換後の処理（書式変更など）を記述可能
‘ 2. 重要：検索がヒットした直後にRangeを「ヒット箇所の直後」へ再定義
‘ これにより、無限ループを物理的に遮断する
rngSearch.Collapse Direction:=wdCollapseEnd
‘ 3. 残りの範囲を再設定（これが無いとループが途中で途切れる）
rngSearch.End = ActiveDocument.Content.End
Loop
End With
Application.ScreenUpdating = True
MsgBox “置換処理が正常に完了しました。”, vbInformation
End Sub
—
3. 実務で「ハマらない」ための設計指針
このコードをそのままコピペするだけでなく、以下の設計思想を頭に叩き込んでおいてほしい。
① `wdFindStop` の鉄則
`Wrap = wdFindContinue` を指定すると、文書末尾で先頭に戻ってしまう。これはバグの温床だ。必ず `wdFindStop` を使い、`Range` の終了位置を手動でコントロールする設計にせよ。
② 大規模文書におけるパフォーマンス
ファイルサイズが数MBを超える場合、`ActiveDocument.Content` の参照は重い。特定のセクションや段落に絞れるのであれば、`ActiveDocument.Paragraphs(i).Range` のように検索範囲を限定するだけで、処理速度は劇的に向上する。
③ 外部データ（データベース/JSON）との連携
Word VBAから外部DBを叩く際は、必ず `ADODB.Connection` を利用し、Word側の処理とDB接続のライフサイクルを完全に分離すること。検索結果を `Collection` や `Dictionary` に一度バッファリングし、Wordへの書き込み処理を最小限（1回）にするのが、伝説的なエンジニアの流儀だ。
—
最後に：コードは「読み手」のためにある
私が現場で最も重視するのは「複雑な処理をいかにシンプルに見せるか」だ。
今回紹介した `Collapse` を用いた手法は、Wordの仕様の裏をかくものではなく、仕様に正しく寄り添った設計である。
VBAはレガシーと言われることもあるが、Wordという巨大なDOM（Document Object Model）を直接叩けるこの言語は、適切に扱えば最強の自動化兵器になる。
君が明日書くそのコードが、誰かの数時間の作業を数秒に短縮することを期待している。健闘を祈る。
