Word VBAの「Find」で泥沼にハマらないために：検索方向を完全に支配する唯一の鉄則
現場でよく見る「動いたり動かなかったりするVBA」の筆頭が、`Selection.Find` を使った検索ロジックだ。
「さっきまで検索できていたのに、二度目の実行で何も見つからない」「なぜか文書の途中からしか検索が始まらない」。もし君がこんなバグに悩まされているなら、それは「検索の起点」をWordの気まぐれなカーソル位置に委ねているからだ。
プロフェッショナルな自動化エンジニアにとって、検索とは「ユーザーの操作状況に依存してはならない」。今回は、Findオブジェクトのライフサイクルを完全に制御し、文書の先頭から確実にターゲットを仕留めるための「堅牢な設計」を伝授する。
—
1. なぜ「Selection」を使ってはいけないのか
初心者が陥る罠は `Selection.Find` を使うことだ。
`Selection` はUI上のカーソル位置を指す。つまり、ユーザーが文書の末尾にカーソルを置いた状態でコードを実行すれば、Wordは「そこから後ろ」しか検索しない。結果、文書全体を走査できず、見落としが発生する。
「カーソル位置」と「検索処理」を分離すること。 これが堅牢なコードへの第一歩だ。
—
2. 実践：文書全体を確実に走査する「Find」の黄金パターン
検索を確実に行うための鍵は、`Range` オブジェクトを明示的に定義し、それを文書全体（`ActiveDocument.Content`）に割り当てることにある。
以下のコードは、文書内の特定の文字列を検索し、置換する際の実務テンプレートだ。
Public Sub SecureFindAndReplace()
‘ Rangeオブジェクトを定義（メモリ上に仮想的な検索範囲を作る）
Dim rng As Range
Set rng = ActiveDocument.Content
‘ Findオブジェクトのプロパティを初期化・制御する
With rng.Find
.ClearFormatting ‘ 以前の検索条件をクリア（必須）
.Replacement.ClearFormatting
.Text = “検索対象文字列” ‘ 検索ワード
.Replacement.Text = “置換後” ‘ 置換ワード
.Forward = True ‘ 前方（文書の先頭→末尾）へ向かって検索
.Wrap = wdFindContinue ‘ 文書末尾に達したら先頭に戻って継続
.Format = False ‘ 書式設定は無視
.MatchCase = False ‘ 大文字小文字を区別しない
.MatchWholeWord = False ‘ 部分一致を許可
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False ‘ 正規表現を使うならTrueにする
‘ 一括置換の実行
.Execute Replace:=wdReplaceAll
End With
‘ メモリ解放
Set rng = Nothing
MsgBox “検索と置換が完了しました。”
End Sub
このコードの重要ポイント
- `.ClearFormatting`: これを忘れると、前回実行時の書式設定が残存し、検索が失敗する原因になる。
- `.Wrap = wdFindContinue`: これにより、カーソル位置がどこにあろうと、一度文書の末尾まで行ってから先頭に戻り、文書全体を網羅する。
- `.Range` の分離: `Selection` を一切触らないため、画面がガタガタと動く「チラつき」も発生せず、処理速度も向上する。
—
3. さらに先へ：正規表現（Wildcards）を活用する
もし、複雑なパターン（例えば「日付」や「特定のカッコ内の文字列」）を検索したい場合は、`.MatchWildcards = True` を使用する。
ただし、Wordの正規表現は一般的なPCRE（Perl互換正規表現）とは仕様が異なる。
- `?` は任意の1文字
- “ は任意の文字列
- `(<)>` は単語単位の検索
これらを駆使する際は、必ず「検索対象の文字列が意図通りにヒットするか」をWordの「検索と置換」ダイアログで先に手動確認してからVBAに落とし込むのが、熟練エンジニアの鉄則だ。
—
4. 運用上の注意：大規模ドキュメントへの配慮
データベースや外部ファイルから取得したテキストをWordに流し込み、それを置換するような大規模な業務自動化を行う場合、以下の点に注意せよ。
1. Undoスタックの肥大化: `wdReplaceAll` は一度の操作として記録されるが、あまりに頻繁に実行するとWordの動作が重くなる。大きな修正は、可能な限り一度の `Execute` で完結させる設計にすること。
2. エラーハンドリング: 検索対象が存在しない場合でもWordはエラーを返さないが、処理の結果を判定したい場合は `.Execute` の戻り値（Boolean）を利用する。
If rng.Find.Execute = False Then
Debug.Print “対象文字列は見つかりませんでした。”
End If
—
最後に：なぜ「動くコード」ではなく「壊れないコード」を書くのか
君が書くツールは、君がいない場所でも動き続ける。
「カーソル位置によって動いたり動かなかったりする」という不確実性は、運用現場において最も忌むべきコストだ。
今回紹介した `Range` をベースにした検索手法は、Word VBAのオブジェクトモデルにおける「基本中の基本」だが、これを徹底しているだけで、君の書くコードの信頼性は劇的に向上する。
さあ、次は君自身のプロジェクトでこの設計を実装してくれ。もし技術的な壁にぶつかったら、それは君がより高度な階層へ昇るためのステップだ。健闘を祈る。
