【Word VBA深層】長尺バッチでWordを殺さない：オブジェクト管理とメモリ解放の極意
Word VBAを用いて数万行の帳票生成や大規模なドキュメントの自動合成を行う際、多くのエンジニアが直面する「Wordが徐々に重くなり、最後はフリーズする」という悪夢。
これはVBAのランタイムが自動的にメモリを解放してくれるという「幻想」に依存している結果だ。Wordのオブジェクトモデルは、COMポインタの参照カウントが複雑に絡み合っている。特に`Table`や`Cell`といった構造化されたオブジェクトを大量に生成・操作する場合、適切なライフサイクル管理を行わなければ、メモリリークは必然だ。
今日は、伝説的なシステムを維持し続けるための「メモリを殺さない」VBAアーキテクチャの真髄を伝授する。
—
1. なぜ「Set obj = Nothing」だけでは不十分なのか
多くの初学者は `Set obj = Nothing` を書けば安心だと思っている。だが、それは単なる「参照の切断」であり、背後のCOMインスタンスが即座に解放されることを保証するものではない。
特に、ドキュメントの生成プロセスにおいて `Selection` や `Range` を安易に多用すると、Word内部のスタックが溢れる。真のエンジニアは、「オブジェクトの生存期間を最小化し、スコープを細分化する」ことに命を懸ける。
ベストプラクティス：RangeによるDOM操作の限定
`Selection`オブジェクトはGUIのカーソル位置に依存するため、描画負荷が高い。動的な表の生成には必ず`Range`オブジェクトを使い、生成終了後に即座に参照を破棄する。
—
2. 破壊的なリークを防ぐ：実戦的コード・アーキテクチャ
以下は、メモリを極限までクリーンに保つための表生成プロセスの雛形だ。
‘ 表の動的生成：メモリを最適化した処理
Public Sub GenerateReportTable(ByRef targetDoc As Document, ByVal rowCount As Long)
Dim tbl As Table
Dim rng As Range
‘ 1. ドキュメントの末尾にRangeを定義（Selectionを使わない）
Set rng = targetDoc.Content
rng.Collapse Direction:=wdCollapseEnd
‘ 2. 表の生成
Set tbl = targetDoc.Tables.Add(Range:=rng, NumRows:=rowCount, NumColumns:=3)
‘ 3. 表のスタイル適用とデータ流し込み
With tbl
.Cell(1, 1).Range.Text = “項目ID”
.Cell(1, 2).Range.Text = “ステータス”
.Cell(1, 3).Range.Text = “詳細情報”
‘ セル結合の例（確実な参照解決）
.Cell(2, 1).Merge MergeTo:=.Cell(2, 3)
End With
‘ 4. オブジェクトの明示的解放（重要）
Set tbl = Nothing
Set rng = Nothing
End Sub
—
3. シニアエンジニアが隠し持つ「強制解放」の知見
それでもなお、複雑なループ処理ではメモリが蓄積することがある。その際、私はWindows APIを呼び出し、Wordの再描画を抑止しつつ、不要なCOMオブジェクトを強制的に回収させる。
‘ Wordの再描画を抑制し、メモリ負荷を下げる
Public Sub SetScreenUpdating(ByVal state As Boolean)
Application.ScreenUpdating = state
End Sub
‘ 極限状態でのメモリ回収テクニック
‘ ※多用は禁物だが、数万行のループの節目で呼ぶことで安定する
Public Sub ForceGarbageCollection()
‘ Wordの内部キャッシュをクリアするためにドキュメントを再評価
DoEvents
Application.ActiveDocument.UndoClear
End Sub
—
4. 陥りやすい罠：Rangeの再利用とリーク
最も危険なのは、ループ内で `Range` を生成し続けることだ。`Set rng = …` を繰り返すと、以前の参照先がメモリに残り続けることがある。
対策： ループ内では必ず `rng.Collapse` で領域を更新し、新しいオブジェクトを生成するのではなく、既存のオブジェクトの範囲を再定義せよ。
- 悪い例: ループ内で `Set rng = doc.Range(…)` を連発する。
- 良い例: ループの外で `Set rng = doc.Range` を生成し、ループ内では `rng.SetRange` や `rng.Collapse` を使い回す。
—
5. チーフアーキテクトからの提言
システムは「動く」ことが最低条件であり、その先にあるのは「いかに長く、安定して動き続けるか」という保守の美学だ。
1. Selection を追放せよ： `Range` オブジェクトのみで完結させる。
2. オブジェクトを肥大化させるな： 必要な処理が終わった直後の行で `Set = Nothing` を記述する習慣を徹底せよ。
3. DoEvents を適切に配置せよ： 長時間処理のOSへの制御権譲渡は、メモリフリーズを防ぐ防波堤となる。
Word VBAはレガシーと言われることもあるが、APIを正しく叩き、オブジェクトのライフサイクルを制御すれば、これほど強力な自動化エンジンは他にない。貴殿の書くコードが、数年後のメンテナンス担当者にとって「読みやすく、壊れない」遺産となることを期待している。
技術は裏切らない。ただ、メモリ管理の怠慢だけが、システムを崩壊させるのだ。
