Word VBAを掌握する極限の知見
第1章：`Selection`という麻薬を断て。真のプロが`Range`を支配する理由
Word VBAの初学者が最初に陥る最大の罠、それは画面上のカーソルを模倣した`Selection`オブジェクトの乱用だ。
「現在選択されている場所を取得する」「そこに文字を挿入する」――一見すると直感的で分かりやすい。しかし、業務自動化の現場において、`Selection`を多用したコードは「遅い、バグる、保守できない」の三拍子揃った負債でしかない。
なぜなら、`Selection`は常にGUI（画面描画）と同期しているからだ。VBAが一行実行されるたびにWordは画面を再描画し、カーソル位置を追跡する。何千行ものテキストを処理するマクロでこれをやれば、処理速度は目に見えて低下し、最悪の場合はフリーズする。
プロのエンジニアが操るべきは、メモリ上にのみ存在する不可視の領域指定――`Range`オブジェクトである。
今回は、Word VBAの基礎でありながら、多くのプログラマすら本質を理解していない『Rangeの生存範囲（Scope）と生存期間（Lifespan）』の深淵を解説する。これを読めば、あなたの書くコードは劇的に高速化し、予期せぬバグから解放される。
—
第2章：Rangeオブジェクトの「生存期間」と「スコープ」の物理法則
`Range`を語る上で絶対に避けて通れないのが、「オブジェクトの参照が文書の編集によってどう歪められるか」という物理法則だ。
Excelの `Range(“A1”)` とは違う。Wordの `Range` は「文字の流動体」にしがみつく寄生虫のようなものだ。文書が編集されると、`Range` が指していた実体（テキストのオフセット）はダイナミックに変化する。
1. 範囲の「拡張」と「伸縮」のメカニズム
例えば、以下のようなコードを書いたとする。
Dim rng As Range
Set rng = ActiveDocument.Paragraphs(1).Range
‘ この後、rngの先頭に文字列を挿入するとどうなるか？
rng.InsertBefore “【重要】”
この時、`rng` が指している範囲はどうなるか？
Wordの仕様では、`Range.InsertBefore` や `Range.Text = …` を実行した際、生成された新しい文字列は既存の `Range` の「内側」に飲み込まれる。つまり、`rng` を再度評価すると、「【重要】」を含んだ段落全体を指すように自動的に範囲が拡張されるのだ。
これを意図して使っていれば神掛かった省コードになるが、意図せずこれをやると、後続の処理で予期せぬ範囲を巻き込んで破壊する「サイレントバグ」の温床となる。
2. 解放（Destruction）のタイミング
VBAにはガベージコレクターが控えめにしか存在しない。`Set rng = Nothing` を明示的に行うべきか？という議論があるが、プロシージャ（SubやFunction）の終了時にローカル変数の `Range` は自動的に破棄される。
しかし、長大なループ処理の中で無駄に `Range` を生成し続けると、メモリリークやWordの内部キャッシュ肥大化を引き起こす。
「ループ内での `Range` の再利用」、これがパフォーマンスを極限まで引き上げるための第一歩だ。
—
第3章：【実践】バグゼロ・高速処理を実現するプロダクションコード
百聞は一見に如かず。実務で即座に使える、極めて堅牢なコードを提示する。
このコードは、指定したキーワードを検索し、その周辺の `Range` を制御しながら、書式設定とログ出力を安全に行うものだ。`Selection` は一切使っていない。
Option Explicit
Public Sub ExecuteRobustTextProcessing()
Dim wsDoc As Document
Set wsDoc = ActiveDocument
‘ 処理対象のキーワード
Const TARGET_WORD As String = “Confidential”
Dim targetRange As Range
Set targetRange = wsDoc.Content ‘ 文書全体のRangeを取得
‘ 検索・置換オブジェクトの取得（RangeのFindメソッドを使用）
With targetRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = TARGET_WORD
.Forward = True
.Wrap = wdFindStop
.MatchCase = True
.MatchWholeWord = True
‘ 該当するすべてのRangeを走査する
Do While .Execute
‘ 検索ヒットした瞬間に、targetRangeは「そのキーワード単体のRange」に収縮する
‘ 【重要】ヒットしたRangeに対する安全な装飾処理
Call StyleFoundRange(targetRange)
‘ 次の検索のためにRangeを文書の末尾側に移動させ、収縮を解除する
targetRange.Collapse wdCollapseEnd
targetRange.End = wsDoc.Content.End
Loop
End With
MsgBox “すべての処理が安全に完了しました。”, vbInformation
End Sub
Private Sub StyleFoundRange(ByRef rng As Range)
‘ 渡されたRangeオブジェクトに対するスタイリング
‘ Selectionを使わないため、画面のチラつきが一切ない
With rng
.Bold = True
.Font.Color = wdColorRed
‘ 必要であれば、前後のコンテキストを含めて操作することも可能
‘ 例: rng.MoveStart wdWord, -1
End With
End Sub
このコードのアーキテクチャ上の優位性
1. 完全な非同期・画面非依存: `Selection` を使わないため、バックグラウンドに近い速度で処理が走る。
2. `Range.Collapse` の正しい運用: 検索ヒット後に `wdCollapseEnd` でレンジを一点に潰し、再度検索範囲の終端までを再定義することで、無限ループや重複検知を完全に防止している。
3. 関心の分離（Separation of Concerns）: 検索ロジックと、見つかった範囲の装飾ロジック（`StyleFoundRange`）を完全に分離。保守性が劇的に向上している。
—
第4章：ファイル・データベース連携における罠
この堅牢な `Range` の知識は、Word単体にとどまらず、外部システム（Excel、Access、SQL Server、あるいはREST API）との連携において真価を発揮する。
例えば、「データベースから取得した大量のレコードを、Wordのテンプレートの特定の位置に高速に差し込む」という要件を考えてほしい。
ここで、ブックマーク（Bookmarks）やプレースホルダー文字列を探すために `Selection` を使っていたら、外部DBとの通信オーバヘッドと相まって、数分かかる地獄のようなマクロが完成する。
正解のアプローチ
1. 文書の特定セクションやブックマークの `Range` をあらかじめ `Set` で確保する。
2. 外部DBから取得した文字列を一括して構築し、一撃で `Range.Text` に代入する。
3. 代入されたことによって変化した `Range` の生存範囲を再計算し、次のデータブロックへバトンを渡す。
‘ 外部データ流し込みの概念コード
Dim bookmarkRange As Range
Set bookmarkRange = ActiveDocument.Bookmarks(“DataInsertionPoint”).Range
‘ 一括代入（これだけでWordの内部レンダリング負荷を最小化できる）
bookmarkRange.Text = “Database Retrieved Text Data…”
‘ 代入によってBookmark自体が消滅することがあるため、必要に応じて再設定する
Wordはデータベースではない。ドキュメントレイアウトエンジンだ。その特性を理解し、`Range` という名のポインタを自在に操ることこそが、プロのVBAエンジニアの証明である。
—
結びにかえて
`Selection` を捨て、`Range` を知ることは、あなたが「ただ動くコードを書く素人」から「システムを設計するエンジニア」へ脱皮するターニングポイントだ。
メモリの寿命、オブジェクトのスコープ、そしてドキュメント構造との相互作用。これらを意識したコードは、美しく、速く、そして何より「裏切らない」。
明日からのあなたのVBAライフから、`Selection.` という記述を完全に駆逐せよ。限界の向こう側で、快適な高速自動化の世界が待っている。
