Word VBAを極める：大規模文書処理における「Range」と「Selection」の呪縛を解く
Word VBAで数百ページに及ぶ文書を自動処理する際、多くの開発者が直面する「Wordが徐々に重くなり、最後には沈黙する」という現象。これはあなたのPCのスペックの問題ではない。オブジェクト管理の甘さが引き起こす「メモリリーク」という名の病だ。
今回は、Word VBAにおいて最も軽視され、かつ最も重要な「Range」と「Selection」のライフサイクル管理について、プロフェッショナルな視点から切り込む。
—
1. なぜ「Selection」を使ってはいけないのか
初心者はすぐに `Selection.TypeText` や `Selection.Font.Bold = True` を書く。これが「Wordが重くなる」最大の要因だ。
- Selectionの正体: GUI上のカーソルそのものを操作する。つまり、処理のたびに画面描画（再描画）が走り、CPUを強烈に消費する。
- メモリの断片化: Selectionはグローバル変数に近い性質を持つため、ループ処理内で乱用すると、参照がスタックし続け、VBAのメモリ管理領域を圧迫する。
結論：大規模処理ではSelectionを一切排除せよ。全ての操作は `Range` オブジェクトで行う。
—
2. Rangeの「参照保持」と「正しい解放」の作法
VBAはガベージコレクションが優秀ではない。特にWordのオブジェクトモデルは、COM（Component Object Model）のラッパーであるため、明示的な解放を怠ると、背後でプロセスが生き続ける。
悪いコード例（リークの温床）
‘ これをループ内で繰り返すと、Wordは徐々に墓場へ近づく
Dim rng As Range
Set rng = ActiveDocument.Paragraphs(1).Range
rng.Text = “Data”
‘ 参照が切れるまでメモリは解放されない
良いコード例（堅牢な設計）
Public Sub ProcessLargeDocument()
Dim doc As Document
Dim rng As Range
Set doc = ActiveDocument
‘ 処理の最小単位でRangeを定義し、使い終わったら即座にNothingへ
Set rng = doc.Paragraphs(1).Range
With rng
.Text = “極限の処理”
.Font.Name = “Meiryo”
End With
‘ ここが重要：明示的な解放
Set rng = Nothing
End Sub
—
3. 実践：大規模文書の「段落別・高速書式設定」アーキテクチャ
数百の段落に対して書式を適用する場合、`For Each` ループを回すのは危険だ。文書の構造が変わるとループインデックスがズレる可能性がある。以下のテンプレートは、私が現場で「絶対に落ちない」処理を書く際に使用する定石だ。
Public Sub ApplyProfessionalFormatting()
Dim doc As Document
Dim para As Paragraph
Dim rng As Range
Set doc = ActiveDocument
‘ 画面更新を停止させる（最重要：処理速度が10倍以上変わる）
Application.ScreenUpdating = False
‘ パラグラフを直接操作し、Rangeを一時的に生成して破棄する
For Each para In doc.Paragraphs
Set rng = para.Range
‘ 高度な書式設定
With rng
.Font.Name = “游明朝”
.Font.Size = 10.5
‘ 特殊な条件（例：特定のキーワードが含まれる場合）
If InStr(.Text, “【重要】”) > 0 Then
.Font.Color = wdColorRed
End If
End With
‘ 次のループへ行く前にオブジェクトをクリーンに
Set rng = Nothing
Next para
‘ 最後に再描画を許可
Application.ScreenUpdating = True
End Sub
—
4. 現場で生き残るための「鉄則」
1. `Application.ScreenUpdating = False` は必須: これを忘れることは、高速道路をサイドブレーキ全開で走るに等しい。
2. `DoEvents` の誘惑を断て: ループ内で `DoEvents` を使うと、Wordの応答は良くなるが、スタックが不安定になり、長期的なクラッシュの原因になる。どうしても必要な場合のみ、一定回数ごとに限定せよ。
3. データベース連携時の注意: 外部データ（Excel/SQL）からWordへ流し込む際、データを都度 `Clipboard` に送るのは論外だ。`Range.FormattedText` を使用して、オブジェクトの参照を直接渡す設計にせよ。
まとめ：アーキテクトからの助言
Word VBAにおける「美しさ」とは、コードの行数ではない。「いかにWordという巨大で不安定なCOMオブジェクトを、最小限の負荷で制御しきるか」というメモリへの敬意にある。
`Selection` を捨て `Range` に乗り換える。そして、使い終わったオブジェクトは必ず `Nothing` にする。この単純な規律を守るだけで、あなたの書くツールは「玩具」から「業務基盤」へと進化するはずだ。
妥協のないコードが、明日の業務を救う。健闘を祈る。
