Word VBAを掌握する極限の知見：Find.Executeの「見つからない」を制する者、文字列操作を制す
Word VBAにおけるテキスト処理の根幹、それは `Find` および `Replacement` オブジェクトの完全な掌握にある。Excelの `Range.Find` と比較して、Wordの検索・置換エンジンはドキュメントの構造（段落、セクション、ストーリー、そして何より不連続な選択範囲）と密に結合しており、その挙動は時として極めてトリッキーだ。
特に、検索対象が存在しない状態で `Find.Execute` を叩いた瞬間に発生する予期せぬ挙動や、無限ループの沼。これをいかにスマートに、かつシステムエラーを一切起こさずにハンドリングするか。
今回は、レガシーな業務システムや数万ページ規模のドキュメント自動化を支えてきたシニアエンジニア向けに、`Find.Execute` の真のライフサイクルと、極限まで洗練されたエラー回避のアーキテクチャを解説する。
—
1. なぜ `Find.Execute` は「エラー」を吐かずにコードを崩壊させるのか
多くの初中級者が陥る最大の誤解は、「検索対象が見つからない場合、VBAのエラー（Run-time error）が発生する」という思い込みである。
実際には、`Find.Execute` は対象が見つからなかった場合でも、実行時エラーを発生させない。その代わり、メソッドの戻り値として `Boolean` 型の `False` を返す。問題は、この戻り値を無視してループを回したり、見つからなかった `Range` オブジェクトに対して後続のプロパティ操作（例えば `.Bold = True` や `.Text = …`）を連鎖させたりした瞬間、WordのCOMコンポーネントが破綻し、暴走または予期せぬクラッシュを引き起こす点にある。
無限ループの典型的なアンチパターン
以下のコードを見てほしい。一見、正しくループしているように見えるが、実務の現場では致命的な欠陥を孕んでいる。
‘ 【アンチパターン】絶対に書いてはならない危険なコード
Sub DangerousSearch()
Dim rng As Range
Set rng = ActiveDocument.Content
rng.Find.ClearFormatting
rng.Find.Text = “旧用語”
‘ 戻り値を判定せず、かつRangeの更新を行わないため無限ループに陥る可能性が高い
Do While rng.Find.Execute
rng.Text = “新用語”
‘ ループ内でrngの位置が更新されない、または再定義されない場合、
CAPIのポインタが狂い、暴走あるいは同一箇所の無限置換を引き起こす
Loop
End Sub
Wordの `Find` オブジェクトは、一度 `Execute` すると、対象を見つけた時点で `Range` 自体の範囲（StartとEnd）を「ヒットした文字列の範囲」に書き換える。そのため、ループ内で適切なオフセット処理や再定義を行わないと、同一箇所を永遠に探し続けるか、メモリリークやCOM例外の温床となる。
—
2. 最適解：安全かつ高速な `Find.Execute` 制御アーキテクチャ
この問題を根本から解決するには、以下の3つの鉄則を守る必要がある。
1. 戻り値（Boolean）の厳格な評価
2. `Find` プロパティのスコープの局所化とクリア
3. オブジェクトの明示的な解放（メモリ最適化）
以下に、実務の現場で即座に採用できる、極限まで最適化された置換プロシージャを示す。
Option Explicit
Public Sub SafeReplaceEngine(ByVal targetDoc As Document, ByVal findText As String, ByVal replaceText As String)
‘ —————————————————————————
‘ 業務自動化プロシージャ：安全な文字列置換エンジン
‘ —————————————————————————
Dim rngSearch As Range
Set rngSearch = targetDoc.Content
‘ パフォーマンス向上のため、画面描画とバックグラウンド処理を一時停止
Dim isScreenUpdating As Boolean
isScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
With rngSearch.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = findText
.Replacement.Text = replaceText
.Forward = True
.Wrap = wdFindStop ‘ 문서의 末尾に達したら検索を停止する（重要：wdFindContinueによる無限ループ防止）
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
‘ Executeメソッドの戻り値を直接評価する
‘ 見つかった場合、rngSearchの範囲は自動的にヒットした文字列に書き換わる
Do While .Execute(Replace:=wdReplaceNone)
‘ 【重要】ヒットした瞬間のRangeに対する高度な処理をここに記述可能
‘ 例: 特定のスタイルが適用されている場合のみ置換する、などの条件分岐
rngSearch.Text = replaceText
‘ 検索範囲をヒットしたテキストの末尾以降に移動し、次の検索へ備える
rngSearch.Collapse wdCollapseEnd
‘ ドキュメントの終端を超えた場合の安全装置（wdFindStopと併用）
If rngSearch.End >= targetDoc.Content.End Then Exit Do
Loop
End With
CleanUp:
‘ 画面描画の復元
Application.ScreenUpdating = isScreenUpdating
‘ メモリ上の参照を明示的に解放（COMオブジェクトのデクリメント）
Set rngSearch = Nothing
Exit Sub
ErrorHandler:
‘ 予期せぬシステム例外のキャッチ
MsgBox “置換処理中にクリティカルなエラーが発生しました: ” & Err.Description, vbCritical, “API Error”
Resume CleanUp
End Sub
—
3. シニアエンジニアが押さえるべき細部：`wdFindWrap` とメモリ管理
上記のコードにおいて、最も注目すべきは `.Wrap = wdFindStop` の設定と、ループ内での `rngSearch.Collapse wdCollapseEnd` の組み合わせだ。
`.Wrap` の挙動を支配する
- `wdFindContinue`: 文書の最後まで検索したら先頭に戻る。これを `Do While` と組み合わせると、条件次第で永遠に終わらない無限ループの引き金になる。
- `wdFindStop`: 検索範囲の終端に達した時点で検索を終了し、`Execute` は `False` を返す。自動化スクリプトにおいては、暴走を防ぐために原則として `wdFindStop` を採用し、必要であればスクリプト側でセクションやストーリーごとのループを制御すべきである。
COMオブジェクトの明示的解放
VBAはガベージコレクションを持つモダン言語ではない。WordのCOMオブジェクト（`Range`, `Document` など）は、プロシージャが終了するまでメモリ上に参照が残り続けることがある。
特に数千回〜数万回のループを回すバッチ処理型のアドインやシステム連携マクロでは、ループ内でのオブジェクト生成を避け、プロシージャ脱出時の `Set xxx = Nothing` による明示的な参照解放が、メモリリークを防ぎ、安定稼働を実現する唯一の防壁となる。
—
4. レガシー環境・外部システム連携における実務的知見
企業内のレガシーシステム（例えば、VB.NETやC#からCOM Interop経由でWord.Applicationを起動し、文書を自動生成・置換するアーキテクチャ）において、Wordのモーダルダイアログや「検索対象が見つかりませんでした」というWord標準のポップアップメッセージは、システムを完全にフリーズ（ハングアップ）させる最大の元凶である。
外部プロセスからWordを制御する場合、ユーザーのインタラクションは一切排除しなければならない。そのためには、VBA側、あるいはホストする .NET側で以下の設定が必須となる。
‘ 外部連携時の必須プリセット
Application.DisplayAlerts = wdAlertsNone ‘ 警告ダイアログの抑制
Application.Options.WarnBeforeSavingPrinting = False
この設定と、今回解説した `Find.Execute` の厳格な戻り値判定（`False` の確実なハンドリング）を組み合わせることで、深夜のバッチ処理やサーバーサイドでのドキュメント自動生成パイプラインにおいても、一切の人的介入を必要としない、極めて堅牢な自動化基盤が完成する。
総括
Word VBAにおける `Find` と `Replacement` は、単なる「文字置換の便利機能」ではない。それはWordのドキュメント構造を航行する低レイヤーのナビゲーション・エンジンである。
「見つからない」という事実をエラーとして恐れるのではなく、`False` というシグナルとして冷静に受け止め、コントロール下に置くこと。それこそが、アマチュアのVBAプログラマと、システムを極限まで掌握するチーフアーキテクトを分かつ境界線である。
