Word VBAの「検索」で死なないために。Find.Foundを操るプロの作法
業務自動化の現場で、多くの初心者が躓くのが「検索（Find）」の取り扱いです。
「特定の文字列を見つけて置換する」という単純な処理でさえ、実装が甘ければ、対象が見つからない瞬間にマクロは無慈悲に停止し、ユーザーを困惑させるエラー画面を叩きつけます。
プロフェッショナルな自動化エンジニアにとって、「対象が存在しないこと」はエラーではなく、「想定された状態」の一つに過ぎません。今日は、あなたのコードを「止まらない、壊れない、そして美しい」プロダクション品質へと引き上げるための設計思想を伝授します。
—
1. なぜ「Find.Execute」をそのまま書いてはいけないのか
初心者が書くコードの典型例を見てみましょう。
‘ 【避けるべきコード】
Selection.Find.Execute FindText:=”重要事項”
Selection.TypeText Text:=”[確定済]”
このコードは、「重要事項」という文字列がドキュメント内に存在することを前提としています。もし存在しなければ、`Selection`の位置が固定されたまま、あるいは意図しない場所で後の処理が走り、ドキュメントの破壊を招きます。
「見つからなかった場合」の分岐を明示しないコードは、地雷原を歩くようなものです。
—
2. 堅牢な設計：Find.Foundプロパティの絶対的な正解
Word VBAの `Find` オブジェクトには、検索結果をBooleanで返す `Found` プロパティが備わっています。これを利用し、「検索を実行し、結果を即座に判定する」というパターンをテンプレート化しましょう。
実践的プロダクションコード
以下は、検索対象が見つからない場合にユーザーへ丁寧に通知し、安全に終了する実装例です。
Sub ReplaceTextSafely()
Dim rng As Range
Set rng = ActiveDocument.Content ‘ 文書全体を検索対象にする
‘ 検索オブジェクトの初期化
With rng.Find
.ClearFormatting
.Text = “重要事項”
.Replacement.Text = “【確定済】”
.Forward = True
.Wrap = wdFindContinue
.Format = False
‘ 【重要】検索実行と判定をワンセットにする
If .Execute(Replace:=wdReplaceAll) Then
‘ 見つかった場合の処理
MsgBox “置換が完了しました。”, vbInformation
Else
‘ 見つからなかった場合の処理（ここが最も重要！）
MsgBox “対象文字列が見つかりませんでした。処理を中断します。”, vbExclamation
Exit Sub ‘ 異常な後続処理を防ぐために即座に抜ける
End If
End With
End Sub
このコードの優位性
- メモリの保護: `ActiveDocument.Content` を使うことで、`Selection`（カーソル位置）に依存せず、文書全体を確実に走査します。
- 早期離脱（Early Return）: `Else` ブロックで `Exit Sub` を発行することで、以降の無意味な処理やリスクのある更新をシャットアウトしています。
- 保守性: 検索条件を `With` ブロックに集約しているため、将来的な仕様変更（検索対象の追加や正規表現の適用など）にも柔軟に対応可能です。
—
3. 現場で生き残るための「高度な注意点」
単に動くだけのコードから卒業するために、以下の3点を意識してください。
① 正規表現（Wildcards）の罠
`Find.MatchWildcards = True` を使用する場合、特殊文字（“, `?` など）の扱いに注意が必要です。検索文字列に変数を用いる際は、メタ文字が混入していないかエスケープ処理を挟むのがプロの流儀です。
② データベース・ファイル連携時の落とし穴
もし置換対象を外部CSVやExcelから読み込んでいる場合、「検索対象の文字列に改行やタブが含まれているか」を確認してください。Wordの検索エンジンは、予期せぬ制御文字によって検索に失敗することがあります。必ず `Trim()` や `Replace(str, vbCr, “”)` 等でクレンジングしてから検索に渡すのが鉄則です。
③ ユーザー体験（UX）への配慮
自動化ツールは、ユーザーが「何が起きたか」を理解できるように設計すべきです。単にエラーで止めるのではなく、「置換件数が0でした」と具体的に通知することで、ユーザーは「ファイルの内容が古かったのか？」といった次のアクションを判断できます。
—
結論：コードは「対話」である
自動化プログラムは、書いた人間がいない場所で黙々と動き続けます。だからこそ、「見つからない」という事態すらも、プログラムの一部として設計し尽くす。その姿勢こそが、エンジニアとしての信頼を築きます。
今日のこのコードをベースに、あなたの業務環境に合わせてカスタマイズしてみてください。堅牢な設計は、必ずやあなたの開発時間を短縮し、保守コストを劇的に下げてくれるはずです。
さあ、次の自動化へ踏み出しましょう。あなたのコードが、現場を救う最強の武器になることを期待しています。
