Word VBAで「検索範囲」を支配せよ：開始位置を制御する極限のロジック
Word VBAにおける`Find`オブジェクトは、多くの初心者が躓く「落とし穴」の宝庫だ。マクロを走らせるたびに文書の先頭から検索が始まり、予期せぬ箇所が置換されて青ざめる……そんな経験はないだろうか。
プロフェッショナルな自動化エンジニアにとって、検索とは「対象を絞り込むこと」と同義である。文書全体を闇雲にスキャンするのではなく、Rangeオブジェクトを駆使して検索範囲を物理的に封じ込める。 これが、バグを排除し、処理速度を劇的に向上させる唯一の正解だ。
今回は、特定の地点から後方のみを検索対象とするための、堅牢かつ洗練された設計論を授ける。
—
1. なぜ「Selection」を使ってはいけないのか
初心者が書くコードの典型例は、`Selection.Find`を多用するものだ。だが、これは「画面のカーソル位置」に依存する不安定な実装であり、処理のたびに画面が激しくスクロールする「パフォーマンス殺し」だ。
我々が用いるべきは `Range`オブジェクト である。
`Range`は文書内の特定の領域（開始点と終了点）をメモリ上に保持する。検索処理をこの`Range`の中に閉じ込めることで、文書の他の部分に一切の影響を与えず、かつ高速な処理が可能になる。
—
2. 実装：検索開始位置を制御するプロダクションコード
以下のコードは、文書内の「特定のキーワード」を起点として、それ以降のみを検索対象にするテンプレートだ。実務でそのままコピー＆ペーストして活用してほしい。
Sub SearchFromSpecificPoint()
Dim rngSearch As Range
Dim strTarget As String
‘ 1. 検索開始の起点となる位置を定義（例：文書内の「開始」という文字列を探す）
Set rngSearch = ActiveDocument.Content
With rngSearch.Find
.Text = “【検索開始地点】”
.Forward = True
If .Execute Then
‘ 見つかったら、そこから文書末尾までを新しい検索範囲に設定
rngSearch.Collapse Direction:=wdCollapseEnd
rngSearch.End = ActiveDocument.Content.End
Else
MsgBox “検索起点が見つかりません。”, vbCritical
Exit Sub
End If
End With
‘ 2. 確定した範囲内で置換を実行
With rngSearch.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “古い文字列”
.Replacement.Text = “新しい文字列”
.Forward = True
.Wrap = wdFindStop ‘ 範囲内で止めることが重要
.Format = False
.MatchCase = False
‘ 置換実行（ReplaceAllで一括処理）
.Execute Replace:=wdReplaceAll
End With
MsgBox “指定範囲以降の置換が完了しました。”
End Sub
—
3. 堅牢な設計のための3つの鉄則
このコードを「業務ツール」として昇華させるために、以下の技術的注意点を胸に刻んでおいてほしい。
① `.Wrap = wdFindStop` を忘れるな
デフォルトの`wdFindContinue`は、範囲の末尾に達すると文書の先頭に戻り、検索を繰り返す。これは無限ループの温床だ。特定の範囲に限定するなら、必ず`wdFindStop`を指定し、検索が範囲外へ逸脱しないよう物理的に遮断せよ。
② `Collapse` の重要性
`Range`オブジェクトを`Find`で動かした際、その範囲は「ヒットした文字列」に再定義されることが多い。検索の起点にする場合は、`Collapse Direction:=wdCollapseEnd` を使用して、ヒットした文字列の「後ろ」にポインタを置くことが重要だ。
③ 外部データ連携時のエスケープ処理
データベースから取得した文字列で検索を行う場合、必ず特殊文字（ワイルドカード）が含まれていないかを確認せよ。`?` や “ が混入すると、意図しない箇所までヒットしてしまう。外部連携を行う際は、置換対象文字列を一旦エスケープする関数を挟むのが、プロのエンジニアの流儀だ。
—
結論：コードは「意図」を語るべきだ
「ただ動くコード」を書くのは簡単だ。しかし、後から誰が見ても「どこからどこまでを処理しているのか」が明白であり、かつ誤動作を許さないコードを書くことこそが、自動化エンジニアの価値である。
`Range`を支配する者は、Wordを支配する。
まずは手元のマクロを見直し、`Selection`を`Range`に置き換えるところから始めてみてほしい。その瞬間から、あなたのツールは「おもちゃ」から「業務インフラ」へと進化するはずだ。
健闘を祈る。
