【入門編】【上級者向け】Findオブジェクトの「検索結果の重複」を回避するRange再定義の極意 – Word VBA解析バイブル

Word VBA

2026.09.21

こんにちは。Word VBAという「一見シンプルだが、実は底なし沼のような深淵」に足を踏み入れたあなたへ。

マクロの記録で生成された「Selection」の羅列に疲弊していませんか？「なぜか置換が無限ループする」「意図しない場所まで書き換わってしまう」。そんな壁に突き当たったなら、おめでとうございます。あなたは今、真のWord VBAエンジニアへの入り口に立っています。

今回は、Word VBAの心臓部である`Find`オブジェクトを、「Rangeの動的再定義」という魔法を使って完全に掌握する方法を伝授します。

—

Wordの`Find`オブジェクトは、デフォルトでは「カーソル位置から文書末尾まで」を走査します。しかし、置換を行った瞬間に、Wordの内部ポインタが「置換後の文字列の直後」に移動してしまうため、置換結果を再度検索対象として拾い上げてしまうのです。

これが、初心者殺しの「無限ループ」の正体です。

`Selection`（現在のカーソル位置）を使うのは今すぐやめましょう。あれは人間が操作するためのものであり、プログラムが制御するには不安定すぎます。私たちは`Range`オブジェクトを使い、検索の「境界線」を自分で定義し、置換のたびにそれを「更新」する必要があります。

—

考え方はシンプルです。
1. 検索範囲の開始点を、置換後の文字列の末尾に移動させる。
2. 範囲の終了点は常に「文書の末尾」に固定する。

これをコードで表現すると、驚くほど安定します。

Sub SafeReplaceWithRange()
Dim rng As Range
Dim findText As String: findText = “古い文字列”
Dim replaceText As String: replaceText = “新しい文字列”

‘ 文書全体をRangeとしてセット
Set rng = ActiveDocument.Content

With rng.Find
.ClearFormatting
.Text = findText
.Replacement.Text = replaceText
.Forward = True
.Wrap = wdFindStop ‘ 文書末尾で止めるのが鉄則！

‘ 検索実行
Do While .Execute(Replace:=wdReplaceOne)
‘ 【ここが極意！】
‘ 置換が発生するたびに、検索範囲の開始位置を
‘ 置換後の文字列の直後に再設定する
rng.Collapse Direction:=wdCollapseEnd

‘ 次の検索のために、終了位置を文書末尾まで広げ直す
rng.End = ActiveDocument.Content.End
Loop
End With

MsgBox “置換完了です。ループの罠は回避しました。”
End Sub

—

このコードがなぜ強力なのか、ポイントを解説します。

`wdFindStop` の採用
`wdFindContinue` にすると、文書末尾に達した瞬間に先頭へ戻ってしまいます。`wdFindStop` を使うことで、「これ以上先はない」と明示的に制御します。
`rng.Collapse Direction:=wdCollapseEnd`
これが「ポインタを置換後の末尾に置く」という動作です。これにより、置換したばかりの文字列を再検索するリスクを物理的に遮断します。
`rng.End = ActiveDocument.Content.End`
ここが最大の工夫です。`Collapse` しただけではRangeの範囲が「1文字」になってしまいます。そのため、「置換後の位置」から「文書の最後まで」という新しい範囲を再構築し、次の検索に備えるのです。

—

もし、より複雑なパターン（例えば「日付」や「特定の書式を持つ文字列」）を検索したい場合は、`Find`オブジェクトの `.MatchWildcards = True` を使います。

しかし、Wordのワイルドカードは一般的な正規表現（RegExp）とは少し仕様が異なります。

これらを組み合わせることで、上記の「Range再定義アルゴリズム」と併用すれば、どんなに複雑な置換も、システムエラーを一度も出すことなく完遂できるようになります。

—

Word VBAの自動化において、最も重要なのは「コードの行数」ではなく、「Wordというアプリケーションの挙動（ライフサイクル）をどれだけ理解しているか」です。

`Selection` を使っているうちは、まだWordに振り回されている状態です。`Range` を自在に操り、オブジェクトを自分の手で再定義できるようになったとき、あなたはWordを単なるワープロソフトではなく、強力な「データ処理エンジン」として使いこなせるようになります。

ここをクリアできれば、もうあなたの書くコードは「動けばいいもの」から「堅牢で美しいもの」へと進化しているはずです。次のステップとして、このコードを関数化し、エラーハンドリング（`On Error GoTo`）を組み込んでみてください。

あなたの自動化ライフが、より効率的で、より知的なものになることを心から応援しています。また、深い場所でお会いしましょう。