Word VBAの「検索と置換」を極める：メモリリークを根絶するオブジェクト管理の深淵
Word VBAにおける`Find`および`Replacement`オブジェクトは、一見すると直感的なツールだが、大規模文書やループ処理を繰り返す業務アプリケーションにおいては、「メモリリークの温床」となる。
多くのプログラマが陥る罠は、`Selection`や`Range`を不用意にスタックし、ガベージコレクションの気まぐれに身を委ねることだ。本稿では、数百万文字の文書を数秒で処理し、かつメモリ消費量を一定に保つための「極限のオブジェクト管理術」を伝授する。
—
1. なぜ「Selection」は悪手なのか：生存期間の制御
Word VBAで最もやってはいけないのが、`Selection`オブジェクトをループ内で使い回すことだ。`Selection`はUIと密接に結びついたグローバルに近い存在であり、カーソルの移動を伴うため、処理速度が劇的に低下するだけでなく、メモリの断片化を引き起こす。
極意：`Range`オブジェクトを局所的に生成し、直ちに解放せよ。
検索処理を行う際は、文書全体を走査するポインタとして`Range`を定義し、処理が終わるごとに明示的に参照を破棄する習慣をつけなければならない。
—
2. 実装：メモリリークを排除した検索・置換のテンプレート
以下に、メモリを汚染させないための定石コードを示す。ここでは、`Range`の再利用と、検索終了後のオブジェクト参照の明示的なクリアを徹底している。
Option Explicit
‘ メモリ最適化を意識した検索置換プロシージャ
Public Sub OptimizedFindReplace(ByVal targetText As String, ByVal replaceText As String)
Dim doc As Document
Dim rng As Range
Set doc = ActiveDocument
‘ 文書の先頭から検索を開始するRangeを設定
Set rng = doc.Content
‘ FindオブジェクトはRangeのプロパティであるため、
‘ Rangeを使い回すことで、メモリ領域を再利用する
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = targetText
.Replacement.Text = replaceText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
‘ 実行（Execute）は引数で制御し、不要なUI更新を抑止する
.Execute Replace:=wdReplaceAll
End With
‘ 【重要】オブジェクトの明示的解放
‘ ループ処理を行う場合は、ループ内でSet rng = Nothingを忘れないこと
Set rng = Nothing
Set doc = Nothing
End Sub
—
3. レガシー環境でのメモリ管理：Win32 APIの活用
さらに踏み込んだ最適化が必要な場合、VBAの「ガベージコレクションのタイミング」を自ら制御する必要がある。
Wordのプロセスが肥大化し、メモリ解放が追いつかない環境では、`SetProcessWorkingSetSize`関数を使用して、物理メモリのワーキングセットを明示的に解放する手法が有効だ。これは最終手段だが、数万ページのドキュメントを連続処理するバッチ処理では、安定稼働のための強力な武器となる。
If VBA7 Then
Private Declare PtrSafe Function SetProcessWorkingSetSize Lib “kernel32” _
(ByVal hProcess As LongPtr, ByVal dwMinimumWorkingSetSize As LongPtr, ByVal dwMaximumWorkingSetSize As LongPtr) As Long
Private Declare PtrSafe Function GetCurrentProcess Lib “kernel32” () As LongPtr
Else
Private Declare Function SetProcessWorkingSetSize Lib “kernel32” _
(ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long
Private Declare Function GetCurrentProcess Lib “kernel32” () As Long
End If
‘ メモリ消費を最小化するクリーンアップルーチン
Public Sub ForceMemoryCleanup()
Call SetProcessWorkingSetSize(GetCurrentProcess(), -1, -1)
DoEvents
End Sub
—
4. アーキテクトの提言：正規表現活用の注意点
Word VBAには標準で正規表現エンジンが存在しない。`Microsoft VBScript Regular Expressions 5.5`を参照設定して利用することになるが、`RegExp`オブジェクトは非常にメモリを食う。
- オブジェクトの生成コスト： ループ内で`New RegExp`を呼び出してはならない。必ずループの外でインスタンス化し、`Pattern`を書き換えて使い回すこと。
- キャプチャグループの罠： `Matches`コレクションを保持し続けると、メモリが即座に枯渇する。必要な抽出を行ったら、`Matches`オブジェクトは即座に`Nothing`にセットすべきだ。
結論
Word VBAでの検索・置換は、単なるテキスト処理ではない。「文書という巨大なメモリ空間を、いかに少ないフットプリントで駆け抜けるか」という、システムエンジニアリングの極致である。
1. `Selection`を使わない。
2. `Range`の参照をループ内で徹底的に解放する。
3. OSのメモリ管理に介入する勇気を持つ。
この3点を遵守するだけで、あなたのコードは「不安定なスクリプト」から「堅牢なエンタープライズ・ツール」へと昇華する。VBAという古き良き言語を、最高の技術で使い倒してほしい。
