Word VBAの悪夢を断つ：Find/Replaceにおける「メモリリーク」を制御せよ
Word VBAで大規模な文書処理を自動化する際、多くのエンジニアが直面する壁がある。数千ページの置換処理を回すと、なぜか徐々に動作が重くなり、最終的にExcelやWordがフリーズする。タスクマネージャーを見ると、メモリ使用量が右肩上がりに……。
これは、あなたが書いたコードが「オブジェクトの残骸」をメモリ上に放置しているからだ。
Wordの`Find`や`Range`オブジェクトは、適切に破棄しなければCOMポインタが宙に浮いたままになる。今日は、プロフェッショナルとして現場で生き残るための「メモリ管理の極意」を伝授する。
—
1. なぜ「Range」はメモリを食うのか
VBAの`Range`オブジェクトは、Wordの文書構造（ストーリー）と密接に結びついている。特に、`Find.Execute`をループ内で多用すると、Word内部で「検索結果の履歴」や「範囲の参照」が蓄積され、GC（ガベージコレクション）が追いつかなくなる。
陥りがちなアンチパターン
‘ 絶対にやってはいけないコード
Dim rng As Range
Do While rng.Find.Execute(FindText:=”旧語”)
rng.Text = “新語”
‘ ここでrngを再定義せず、Findの操作を続けていると参照がリークする
Loop
この書き方は、`Range`オブジェクトが毎回新しいインスタンスを生成し、古いメモリ領域が解放されないままスタックされる可能性がある。
—
2. 堅牢な設計：オブジェクト解放の完全ガイド
メモリリークを防ぐための鉄則はシンプルだ。「スコープを最小化し、手動でNothingを代入し、ループを回すなら範囲を再設定する」こと。
推奨される実装テンプレート
以下のコードは、数万回単位の置換を行ってもメモリ消費量を一定に保つための「プロダクションコード」である。
Public Sub RobustReplaceAll()
Dim doc As Document
Dim rng As Range
Set doc = ActiveDocument
Set rng = doc.Content
‘ 検索の設定をリセットして高速化
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “検索対象”
.Replacement.Text = “置換後”
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
End With
‘ ループ処理の肝：オブジェクトを再利用・更新する
Do While rng.Find.Execute
‘ 置換処理
rng.Text = “置換後”
‘ 【重要】検索範囲を置換後の直後に移動させ、メモリを解放する
rng.Collapse Direction:=wdCollapseEnd
Loop
‘ 明示的な解放
Set rng = Nothing
Set doc = Nothing
Debug.Print “メモリを解放し、処理を完了しました。”
End Sub
なぜこのコードが最強なのか
1. `Collapse`の活用: `rng.Collapse`を呼ぶことで、処理済みのRange範囲を「点」に収束させる。これにより、ドキュメント内の無駄な参照チェーンを断ち切れる。
2. `ClearFormatting`: 検索・置換の条件設定にゴミが残ると、Wordのエンジンが余計なレンダリング計算を行う。必ずクリアする。
3. 明示的なNothing: VBAの参照カウンタを確実にデクリメントさせ、スコープ終了を待たずにメモリを解放する。
—
3. 正規表現（VBScript.RegExp）を組み合わせる際の注意点
Wordの標準`Find`機能だけでは、複雑なパターンマッチング（例えば「特定のタグで囲まれた文字列のみを対象にする」など）が難しい。そこでVBScriptの`RegExp`を併用するケースが増えるが、ここでも注意が必要だ。
- RegExpオブジェクトはループ外で生成せよ: ループ内で`New RegExp`を呼び出すと、メモリリークの温床になる。
- Matchesコレクションの解放: 正規表現の検索結果を格納する`MatchCollection`も、非常にメモリを食う。処理が終わったら即座に`Set matches = Nothing`とすべきだ。
—
4. 現場のリーダーからの提言：ファイル・DB連携への視点
自動化ツールが外部データベース（AccessやSQL Server）と連携する場合、さらに慎重になる必要がある。
- 接続の切断: データベース接続オブジェクト（ADODB.Connection）を閉じる前にWordの処理でエラーが発生すると、接続が掴みっぱなしになる。必ず`On Error GoTo`で例外処理を書き、エラー時でも確実にClose/Nothingが実行される設計にせよ。
- バルク処理の検討: 1件ずつ検索・置換するのではなく、ファイル全体を読み込んでメモリ上で正規表現処理を行い、一気に書き戻すアプローチ（WordのXML操作、OpenXML SDK等）も、VBAの限界が見えてきた際には検討すべきだ。
—
まとめ：エンジニアとしての矜持
「動けばいい」コードは、半年後の自分や、そのツールを引き継ぐ誰かにとっての「負債」となる。
- RangeはCollapseして再利用する
- オブジェクトは最後にはNothingに戻す
- エラーハンドリングを怠らない
この3つを徹底するだけで、あなたのツールは「すぐ止まるおもちゃ」から「現場を支えるエンジン」へと進化する。技術を掌握し、自動化の先にある「本来のクリエイティブな時間」を勝ち取ってほしい。
健闘を祈る。
