こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して、生成されたコードをそのまま動かしてみたものの、「なんだか画面がパタパタと切り替わって、終わるやけに遅いな…」と感じたことはありませんか？
実はそれ、VBAが画面の「選択（Select）」という重たい作業を一生懸命やらされているからなんです。
今回は、プロの現場でも必須となる「SelectせずにRangeを直接操作して爆速で処理する基本テクニック」を、優しく、そして本質的なところまでしっかり解説していきますね。ここをクリアすれば、あなたのWord VBAのスキルは一気にワンランク上のステージに上がりますよ！
—
1. なぜ「Select」や「Activate」を多用するとマクロが遅くなるのか？
まずは、Word VBAが裏側でどう動いているのか、イメージしてみましょう。
マクロの記録を使うと、こんなコードがよく生成されます。
‘ 【初心者によくある書き方】画面を選択して処理する例
Selection.Find.ClearFormatting
Selection.Find.Text = “古い言葉”
Selection.Execute
Selection.Text = “新しい言葉”
人間がWordを使っているときは、「ここにカーソルを置いて、文字を選んで……」という操作が自然です。しかし、VBAにこれをやらせると、以下のようなコスト（負担）が発生します。
- 画面の描画（UIの更新）: わざわざカーソルを動かして画面を書き換えるため、目に見えないところで膨大な処理ロスが生まれます。
- オブジェクトの迷子: 選択（Selection）という「今、人間が見ている場所」に依存するため、意図しない場所が選択されているとエラーの原因になります。
例え話：人間とフォークリフトの違い
`Selection`を使うのは、「倉庫の荷物を1個ずつ手で持って、自分の足で別の場所に運び、また戻る」ようなものです。
これに対して、今回お伝えする`Range`オブジェクトを使った直接操作は、「フォークリフトでパレットごと一網打尽に移動させる」ようなもの。圧倒的に速くて確実ですよね。
—
2. 救世主「Rangeオブジェクト」の正体とは？
Word VBAにおける `Range` とは、画面上のカーソルとは一切関係なく、「文書の中にある見えない目印付きのテキストの塊（範囲）」のことです。
画面を切り替える必要がなく、メモリの領域だけで文字の検索や置換を完結させることができるため、動作が劇的に速くなります。
基本の構文イメージ
Dim 検索範囲 As Range
Set 検索範囲 = ActiveDocument.Content ‘ 文書全体をRangeとして取得
‘ 画面を触らずに、このRangeの中で検索・置換を行う！
—
3. 【実践】画面を一切選ばずに文字列を置換するコード
それでは、実際に「選択せずに直接操作する」コードを見てみましょう。
今回は、文書全体の「株式会社」という文字を、カッコ付きの「(株)」に一瞬で書き換えるマクロを書いてみます。
開発タブのVBE（Visual Basic Editor）を開き、標準モジュールに以下のコードを貼り付けてみてください。
Sub FastReplaceSample()
Dim rngTarget As Range
‘ 1. 文書全体をRangeオブジェクトとして取得する
Set rngTarget = ActiveDocument.Content
‘ 2. RangeのFindプロポティを使って検索・置換条件を設定する
With rngTarget.Find
.Text = “株式会社” ‘ 検索する文字
.Replacement.Text = “(株)” ‘ 置換後の文字
.Forward = True ‘ 文書の先頭から末尾へ向かって検索
.Wrap = wdFindStop ‘ 文書の最後まで来たら検索を終了する
.MatchCase = False ‘ 大文字・小文字を区別しない
.MatchByte = True ‘ 全角・半角を区別する
‘ 3. 一括置換を実行する（wdReplaceAllを指定）
.Execute Replace:=wdReplaceAll
End With
‘ 4. 完了のメッセージを出す（画面は一度もチラつきません！）
MsgBox “置換が完了しました！”, vbInformation
‘ 5. メモリの解放
Set rngTarget = Nothing
End Sub
このコードの優れたポイント
1. `ActiveDocument.Content` で文書全体をスマートに掴んでいます。
2. `Selection` が一切登場しないため、画面がパタパタと切り替わることなく、一瞬で処理が終わります。
3. `With` ステートメントを使うことで、コードがスッキリ読みやすくなっています。
—
4. 陥りやすいエラーと「知っておくべき極意」
Rangeを使った直接操作は非常に強力ですが、初心者がハマりがちなポイントがいくつかあります。ここを押さえておけば完璧です。
落とし穴その1：「あれ？ 置換されない？」と思ったら
`Selection.Find` の癖が残っていると、コードを書いてもうまく動かないことがあります。特に、`Find`オブジェクトの設定は一度行うと前回の条件が残る（Stickyな性質を持つ）ため、検索する前には必ず必要なプロパティを明示的に指定するのがプロの作法です。
落とし穴その2：文書全体ではなく、一部だけを対象にしたいとき
文書全体ではなく、「段落ごと」や「特定のブックマークの中だけ」を処理したい場合も、Rangeの独壇場です。
‘ 最初の段落だけを対象にしたい場合
Dim rngParagraph As Range
Set rngParagraph = ActiveDocument.Paragraphs(1).Range
‘ このRangeに対してのみFindを実行できる
With rngParagraph.Find
.Text = “エラー”
.Replacement.Text = “修正済み”
.Execute Replace:=wdReplaceAll
End With
このように、操作したい「ターゲット（塊）」を自在に定義できるのが、Rangeの最大の強みです。
—
まとめ：今日から「脱・マクロの記録」をしよう！
今回は、Word VBAにおける「検索結果のRangeを直接操作して高速化する基本テクニック」について解説しました。
- `Selection`（選択）は画面を描画するため遅い。
- `Range`（範囲）を使えば、メモリ上で高速に処理できる。
- 画面がチラつかず、スマートで美しいコードになる。
最初は少し難しく感じるかもしれませんが、「画面を選ばずに、裏側でデータをいじっているんだな」という意識を持つだけで、書くコードの質が劇的に変わります。
ここをクリアできれば、あなたも立派なWord VBAエンジニアの仲間入りです。ぜひ、明日の業務効率化からこのテクニックを取り入れてみてくださいね。それでは、また次回の極限知見でお会いしましょう！
