こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して、画面がカシャカシャと切り替わる様子に「おぉ、すごい！」と感動したのも束の間、自分で書いたコードを動かしたら画面が激しくチラつき、処理が終わるまでやたらと時間がかかる……そんな壁にぶつかっていませんか？
もし、あなたのコードに `Selection` という単語が頻出しているなら、それが原因です。
今回は、プログラミング初学者の方や「マクロの記録」から一歩抜け出したい方に向けて、画面を一切汚さずに秒速でテキストを置換する『Rangeオブジェクト』の極意を伝授します。ここをクリアすれば、あなたのWord VBAスキルは間違いなくプロの領域へと一歩踏み出しますよ。それでは、一緒に本質を見ていきましょう！
—
なぜ `Selection` は「悪者」なのか？（オブジェクトの重みを知る）
Word VBAを学び始めると、最初に覚えるのが `Selection`（選択範囲）です。
画面上のカーソルや、マウスでドラッグして青く反転させた部分を操作するオブジェクトですね。
しかし、実務で大量のテキストを処理する自動化の世界において、`Selection` は「最も遅く、最も不安定な禁断の果実」になります。
画面の描画とカーソル移動のコスト
人間が操作するときは、カーソルが動いて文字が選択される様子が見えた方が安心します。しかし、VBAにとって「画面を描画すること」と「カーソルを動かすこと」は、CPUとメモリにとってもの凄く重たい処理なのです。
例えるなら、「わざわざ本を開いて、目視で1文字ずつ指で追いかけながら修正テープを貼っている状態」と言えます。これでは、何百ページもある文書の置換に何分もかかってしまいますよね。
—
救世主 `Range` オブジェクトとは？（見えない作業台の概念）
そこで登場するのが、今回の主役である `Range`（レンジ）オブジェクト です。
`Range` とは、Wordの文書の中に「仮想的な範囲（スタート地点からゴール地点までの塊）」を定義する仕組みです。
画面上のカーソルを一切動かさず、メモリ（PCの頭脳の中）だけでテキストの検索、置換、挿入を電光石火で行うことができます。
先ほどの例えで言うなら、「本を開かずに、頭の中で瞬時にページの該当箇所を書き換えて一瞬で製本し直す」ようなものです。画面は1ミリも動きません。だから圧倒的に速いのです。
—
【実践】Selection vs Range：コードの書き方比較
百聞は一見にしかず。実際のコードを見比べてみましょう。
❌【遅い】Selectionを使った従来の書き方
Sub ReplaceWithSelection()
‘ 文書の先頭に移動
Selection.HomeKey Unit:=wdStory
‘ 検索と置換を実行
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Text = “旧ワード”
Selection.Find.Replacement.Text = “新ワード”
Selection.Find.Execute Replace:=wdReplaceAll
‘ ※画面がパチパチと切り替わり、非常に遅い
End Sub
⭕【速い・安全】Rangeを使った極限の書き方
Sub ReplaceWithRange()
Dim rng As Range
‘ 文書全体をRangeオブジェクトとして捉える（画面は動かない！）
Set rng = ActiveDocument.Content
‘ Rangeオブジェクトに対して検索・置換を実行
With rng.Find
.Text = “旧ワード”
.Replacement.Text = “新ワード”
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
‘ 一括置換を実行
.Execute Replace:=wdReplaceAll
End With
‘ メモリを解放
Set rng = Nothing
MsgBox “一瞬で置換が完了しました！”, vbInformation
End Sub
どうでしょう？ `Selection` のような「移動・選択」という無駄なステップが一切消え、文書全体をあらわす `ActiveDocument.Content` という範囲に対して、裏側で一撃を与えているのが分かりますよね。
—
さらに爆速化！知っておくべきプロの技（画面描画の停止）
Rangeオブジェクトを使うだけでも十分速いのですが、プロのエンジニアはさらに処理を極限まで高めるため、マクロの実行中はWordの画面更新を強制的にシャットアウトします。
以下のコードを組み合わせれば、無敵の高速置換エンジンが完成します。
Sub MasterpieceReplace()
Dim rng As Range
‘ 1. 画面描画と警告をストップ（これだけでスピードが数倍跳ね上がります）
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
‘ 2. ターゲットとなるRangeを設定
Set rng = ActiveDocument.Content
‘ 3. 高速置換の実行
With rng.Find
.Text = “株式会社A”
.Replacement.Text = “株式会社B”
.Execute Replace:=wdReplaceAll
End With
‘ 4. 画面描画と警告を元に戻す
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
‘ 5. 後片付け
Set rng = Nothing
MsgBox “爆速置換が完了しました！”, vbInformation
End Sub
ここがポイント！
- `Application.ScreenUpdating = False`：画面の書き換えを禁止し、CPUのパワーをすべてVBAの計算に集中させます。
- 処理が終わったら必ず `True` に戻すこと（戻し忘れるとWordがフリーズしたように見えて焦ります）。
—
陥りやすい罠とエラー回避のコツ
初学者が `Range` を使い始めるときに、よくハマるポイントを先回りして解説しておきます。
1. 「どこを指しているか」を意識する
`ActiveDocument.Content` は「文書の最初から最後まで」を指しますが、特定の段落や表の中だけを置換したい場合は、`ActiveDocument.Paragraphs(1).Range` のように範囲を絞り込む必要があります。狙っている範囲がどこなのかを意識しましょう。
2. オブジェクトの解放 (`Set rng = Nothing`)
マクロが終了すれば自動でメモリは解放されますが、大規模なループ処理を行う場合などは、使い終わった `Range` をこまめに `Nothing` にクリアしてあげると、メモリリーク（メモリの無駄遣い）を防げます。
—
まとめ
今回は、`Selection` を捨てて `Range` オブジェクトでテキストを高速置換する極意をお伝えしました。
- `Selection` は画面のカーソルを動かすため、動きが遅く不安定。
- `Range` はメモリ上で仮想的な範囲を操作するため、圧倒的に速くスマート。
- `ScreenUpdating = False` を組み合わせれば、プロ顔負の爆速マクロになる。
ここをクリアできれば、もう「マクロの記録」の呪縛から完全に解放され、思い通りのドキュメント自動化ツールを自在に作れるようになります。
ぜひ、日々の業務で使っているマクロを `Range` に書き換えて、その圧倒的なスピードの違いを体感してみてください。あなたのWord VBAライフが、より快適で知的になりますように。それではまた！
