【テクニカル・上級編】【上級者向け】Word VBAにおける「メモリリーク」を防ぐオブジェクト解放の完全ガイド – Word VBA解析バイブル

Word VBA

2026.09.23

Word VBAの深淵：Findオブジェクトとメモリリークの静かなる闘い

Word VBAでドキュメントの置換処理を実装する際、多くのエンジニアが陥る罠がある。それは「Wordはオブジェクトを生成するたびに、裏側で巨大なコンテキストを構築している」という事実を軽視していることだ。

特に`Find`や`Range`オブジェクトをループ内で安易に生成・破棄を繰り返すと、VBAのガベージコレクションは追いつかず、メモリは徐々に断片化し、最終的に「Wordが応答しなくなる」という最悪の結末を迎える。

本稿では、数万ページの文書を短時間で処理し、かつ数日間連続稼働してもメモリ使用量をフラットに保つための「極限のメモリ管理術」を伝授する。

—

1. なぜWord VBAでメモリリークが発生するのか

VBAの`Set obj = Nothing`は、単に変数とCOMオブジェクトのリンクを切るだけであり、直ちにメモリが解放されるわけではない。特にWordの`Find`オブジェクトは`Selection`や`Range`と深く結合しており、適切にリセットしないと参照カウントがゼロにならないままゾンビプロセスとしてメモリを食いつぶす。

鉄則：Findオブジェクトは「使い回す」

ループ内で`Range.Find`を毎回新規生成するのは設計上の敗北だ。`Find`オブジェクトのインスタンスを一つ確保し、それを使い回すことで、WordのCOMヒープへの負荷を劇的に軽減できる。

—

2. メモリを食い尽くさない「洗練された検索・置換」実装

以下に、メモリ効率を極限まで高めたテンプレートコードを示す。ポイントは「再利用」と「明示的な状態リセット」だ。

‘ メモリ最適化を考慮した検索・置換テンプレート
Public Sub HighPerformanceReplace()
Dim doc As Document
Dim rng As Range
Dim fnd As Find

Set doc = ActiveDocument
Set rng = doc.Content

‘ RangeオブジェクトからFindを直接取得し、使い回す
Set fnd = rng.Find

‘ Findプロパティの初期化（重要：以前の検索設定が残るとリークの原因になる）
With fnd
.ClearFormatting
.Replacement.ClearFormatting
.Text = “検索対象”
.Replacement.Text = “置換後”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False ‘ 正規表現を使う場合はTrue
End With

‘ Executeをループさせる際は、Rangeを再定義せず、Findオブジェクトを動かす
Do While fnd.Execute
‘ ここで置換後の処理を行うと、Rangeの参照が更新され続ける
‘ 複雑な処理を行う場合は、ここでDoEventsを挟むとUIのフリーズを防げる
DoEvents
Loop

‘ 明示的な解放
Set fnd = Nothing
Set rng = Nothing
Set doc = Nothing
End Sub

—

3. なぜ`DoEvents`と`GC`が重要なのか

長時間稼働するツールでは、VBA側でメモリが適切に管理されていても、Wordの描画プロセスがメモリを解放できないケースがある。

DoEventsの活用: `DoEvents`をループ内に100回に1回程度挿入することで、Windows OSに対するメッセージキューを処理させ、Wordのメモリ再配置を促すことができる。
Win32 APIの活用（上級者向け）: もしWordが極めて巨大な文書を扱っているなら、APIで明示的にメモリを解放させることも可能だが、通常は上記の通り「オブジェクトの再利用」を徹底するだけで十分だ。

—

4. 極限の知見：レガシー保守のためのチェックリスト

現場で「なぜか止まる」というコードに出会った際、以下の観点でリファクタリングせよ。

1. `Selection`の使用禁止: `Selection`は画面描画を伴うため、最もメモリを食う。必ず`Range`オブジェクトを使い、非表示のまま処理せよ。
2. `Find.Execute`の戻り値: 戻り値を無視してループを回すと、検索条件が一致し続けた場合に無限ループに陥る。必ず戻り値を評価すること。
3. エラーハンドリング時の解放: エラーが発生した際、`On Error Resume Next`で放置せず、必ず`Finally`ブロックのように`Set = Nothing`を通る構造にすること。

伝説的アーキテクトからの助言

「コードを書くことは、メモリという限られた資源を奪い合う闘いである」

メモリを意識しないエンジニアは、短期間のスクリプトしか書けない。だが、メモリの動きを制御できるエンジニアは、数年単位でメンテナンスフリーな安定したシステムを構築できる。まずは、あなたのコードの`Set = Nothing`が、ただの儀式になっていないか、もう一度見直してみてほしい。

次回の記事では、`Range.Find`で正規表現を組み合わせた際の「バックトラッキングによるスタックオーバーフロー」の回避策について解説する予定だ。準備しておけ。