Word VBAを掌握する極限の知見：Selectionを捨てよ、Rangeで疾走せよ
Word VBAのコードベースを査閲すると、いまだに `Selection.TypeText` や `Selection.Find` の残骸が蔓延している光景に出くわす。画面がガタガタとスクロールし、処理が終わるまでマウスカーソルが点滅しながらフリーズする――。
もし、あなたのエンタープライズ環境向けドキュメント自動生成ツールや、数千ページにおよぶレガシー仕様書のバッチ置換システムがこのような挙動をしているなら、それはアーキテクチャの敗北だ。
本稿では、Word VBAにおける最大のパフォーマンス・ボトルネックである `Selection` オブジェクトを完全排除し、`Range` オブジェクトを用いたメモリ効率の極限、そしてWordの内部構造（StoryRangesとメモリモデル）をハックすることで爆速テキスト置換を実現する極意を伝授する。
—
1. なぜ `Selection` は「悪」なのか？ —— GUIとロジックの不可分な結合
シニアエンジニアであれば常識だが、`Selection` とは「現在ユーザーが画面上で選択しているカーソルや領域」のラッパーに過ぎない。
レンダリング・スレッドの呪縛
VBAから `Selection.MoveDown` や `Selection.Find.Execute` を実行すると、WordはGUIの描画スレッド（レンダリングエンジン）を強制的にキックする。背後でドキュメントのレイアウト再計算（Pagination）が発生し、CPUのサイクルが画面描画に浪費される。
何万行もあるテキストに対してこれを繰り返せば、処理時間が幾何級数的に跳ね上がるのは物理的な必然である。
オブジェクトモデルの階層構造
`Selection` は常に `Application` の配下に依存し、ドキュメント内の単一のアクティブな位置を指し示すため、複数のコンテキストを同時に処理することができない。
対して `Range` は、ドキュメント内の「文字オフセット（起点と終点）」をメモリ上に保持する純粋なデータ構造である。画面描画とは完全に切り離されており、APIは一切の視覚的フィードバックを伴わずにバックグラウンドで高速に動作する。
—
2. `Range` オブジェクトによるテキスト置換の基本と罠
`Range` を使った置換の基本は `Range.Find` プロパティの利用だ。しかし、ここにもWord特有のトラップが潜んでいる。
Sub SafeReplace_Basic(ByVal targetDoc As Document, ByVal strFind As String, ByVal strReplace As String)
Dim rng As Range
Set rng = targetDoc.Content ‘ ドキュメント全体のRangeを取得
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strFind
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindStop ‘ 検索が末尾に達してもループさせない
.Format = False
.MatchCase = True
.MatchWholeWord = True
‘ 実行（一括置換の場合は wdReplaceAll）
.Execute Replace:=wdReplaceAll
End With
‘ オブジェクトの明示的解放
Set rng = Nothing
End Sub
ここで重要な「メモリ最適化」の知見
VBAのガベージコレクションは参照カウント方式をとっている。`Set rng = Nothing` を怠ると、特に長時間のバッチ処理においてCOMコンポーネントのメモリリークを引き起こす。
さらに、Wordの `Range` は置換が行われると自動的にその範囲を拡張・縮小するため、ループ処理を行う場合は `Collapse` メソッドによるレンジの再定義が必須となる。
—
3. 実戦：複数のStoryRangesを網羅する極限の高速置換エンジン
実務におけるWord文書は、本文（`wdMainTextStory`）だけにテキストが存在するわけではない。ヘッダー、フッター、テキストボックス、脚注など、文書は複数の「ストーリー（Story）」に分断されている。
`Selection` ではこれらを巡回するためにいちいちアクティブセクションを変更する必要があるが、`Range` ならばすべてのストーリーをメモリ上で直接叩くことができる。
以下に、システム間連携で送られてくるタグ付きドキュメントの高速プレースホルダー置換を行う、プロダクション品質のクラス・モジュール級プロシージャを提示する。
‘ =================================================================
‘ 模块名: Mdl_HighSpeedReplace
‘ 概要: 画面描画を完全に抑制し、全ストーリーレンジを対象に高速置換を行う
‘ =================================================================
Public Sub ExecuteEnterpriseReplace(ByVal targetDoc As Document, ByVal dictParams As Object)
Dim lngStrs As Long
Dim rngStory As Range
Dim varKey As Variant
‘ 1. 描画・警告の完全抑制（パフォーマンス最大化の定石）
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.OptimizeforHTML = False
End With
On Error GoTo ErrorHandler
‘ 2. すべての StoryRange を巡回する
For Each rngStory In targetDoc.StoryRanges
Dim currentRng As Range
Set currentRng = rngStory
Do
‘ ディクショナリに格納されたキー/バリューを一括適用
For Each varKey In dictParams.Keys
With currentRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = CStr(varKey)
.Replacement.Text = CStr(dictParams(varKey))
.Forward = True
.Wrap = wdFindStop
.MatchCase = True
.Execute Replace:=wdReplaceAll
End With
Next varKey
‘ 3. リンクされたストーリー（ヘッダーの次ページ以降など）の処理
Set currentRng = currentRng.NextStoryRange
Loop Until currentRng Is Nothing
Next rngStory
CleanUp:
‘ 4. 描画の復元とメモリ解放
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
Set rngStory = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
—
4. チーフアーキテクトからの提言：さらなる極限へ
上記のコードでも十分高速だが、もしあなたが扱うデータが数万ファイルにおよぶバッチ処理、あるいは外部C#/VB.NETシステムからCOM Interop経由でWordを制御するミドルウェア層の設計者であるならば、さらに踏み込んだ最適化が必要となる。
1. APIによる画面描画の強制ロック:
VBAの `ScreenUpdating = False` だけでは、Windowsのメッセージキューに描画イベントが蓄積されることがある。極限の環境では、Windows API (`LockWindowUpdate` 等) を併用してWordウィンドウ自体の再描画をOSレベルでシャットダウンするアプローチも検討に値する。
2. OpenXMLダイレクト操作への移行検討:
もしWordのUI機能（フィールド更新やマクロ実行など）が不要で、純粋なテキスト置換やプレースホルダーの差し替えのみが目的なのに対象が `.docx` (XMLベース) であるならば、VBAを捨てて `System.IO.Compression` と `System.Xml` を用いたOpenXMLパッケージの直接置換（Zip展開してXMLをString置換する）を推奨する。処理速度はVBAの比ではなく、ミリ秒単位で完了する。
結び
`Selection` は初心者のための玩具であり、プロのエンジニアが触れるべきオブジェクトではない。
`Range` のライフサイクルを掌握し、メモリとCPUのキャッシュ効率を意識したコードを書くこと。それこそが、レガシーと揶揄されがちなWord VBAの世界において、最高峰のパフォーマンスを引き出す唯一の道である。
