こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して、生成されたコードをそのまま動かす――うん、最初はそれで十分ワクワクしますよね。でも、何万字もある分厚いドキュメントの一括置換や、夜通し走らせるバッチ処理の途中で、突然Wordがフリーズしたり「メモリ不足です」と冷たいエラーを吐き出したりして、頭を抱えた経験はありませんか？
「あれ、ちゃんとコードを書いたのに、なんで落ちるんだろう……？」
もしあなたが今、そんな壁にぶつかっているなら、おめでとうございます。あなたは今日、Word VBAの「本当の深淵」へと足を踏み入れようとしています。
今回は、長時間のバッチ処理でもビクともしない、「メモリリークを完全排除するオブジェクト管理術」を授けましょう。ここをクリアすれば、あなたはもう「初心者」ではありません。現場で頼られるシニア・エンジニアへの道を確実に歩み始めていますよ。
—
なぜ、Word VBAはメモリリークを起こすのか？
まず、敵を知ることから始めましょう。
Word VBAで検索（Find）や置換（Replacement）を行うとき、私たちは無意識のうちに `Selection` や `Range` というオブジェクトを使っています。
ここで、メモリの裏側で何が起きているかを図解してみましょう。
[VBAコード] —> (Rangeオブジェクト生成) —> [Wordのメモリ空間 (Heap)]
↑
「参照カウンタ」が保持され続ける
（＝ 変数が破棄されても、Word本体がメモリを手放さない！）
初心者が陥りがちな最大の罠、それは「使ったオブジェクトの解放（後始末）を怠る」ことです。
特に `Find` オブジェクトは曲者で、検索条件（FontやFormattingなど）を設定するたびに、裏側でメモリ上のキャッシュが肥大化していきます。これをループ内で何千回、何万回と繰り返すとどうなるか……。そうです、OSのメモリがジワジワと侵食され、最終的にクラッシュ（メモリリーク）を起こすのです。
「じゃあ、どうすればいいの？」
安心してください。鉄則はたった一つ。「生成したオブジェクトは、責任を持ってその場で破棄（Nothing化）する」これだけです。
—
基礎からステップアップ：ダメなコード vs 完璧なコード
百聞は一見にしかず。まずは「やってはいけないアンチパターン」と、「プロの現場で使われるクリーンなコード」を見比べてみましょう。
❌ ズボラなコード（メモリリークの温床）
Sub BadExample()
Dim i As Long
For i = 1 to 10000
‘ Selectionを毎回使うのは処理速度的にもNG
Selection.Find.ClearFormatting
Selection.Find.Text = “旧ワード”
Selection.Find.Replacement.Text = “新ワード”
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
何がダメなの？
- `Selection` を使っているため、画面の描画（UI）が発生して劇的に遅い。
- `Find` オブジェクトの設定がメモリ上に残り続け、ガベージコレクションが追いつかなくなる。
⭕ 限界まで最適化された「神」のコード
それでは、メモリ管理を極めたプロのコードを見てください。ここには、オブジェクトのライフサイクルを完全にコントロールする知見が詰まっています。
Sub MasterClass_ReplaceWithMemoryManagement()
Dim targetRange As Range
Dim foundCount As Long
‘ 処理速度を爆発的に上げるための基本テクニック（画面描画と警告の停止）
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
On Error GoTo ErrorHandler ‘ 予期せぬエラーでも確実にメモリを解放する保険
‘ 1. ドキュメント全体のRangeオブジェクトを1つだけ生成
Set targetRange = ActiveDocument.Content
‘ 2. Withブロックを使ってFindオブジェクトを安全に操作
With targetRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “旧ワード”
.Replacement.Text = “新ワード”
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
‘ 一括置換を実行しつつ、安全に処理
.Execute Replace:=wdReplaceAll
End With
ErrorHandler:
‘ 3. 【最重要】メモリリークを防ぐため、オブジェクト変数を明示的に破棄
Set targetRange = Nothing
‘ 画面描画と警告を元に戻す
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Else
MsgBox “メモリリークゼロの完璧な置換処理が完了しました。”, vbInformation
End If
End Sub
—
コードの核心を解説：なぜこの書き方が「最強」なのか？
上記のコードには、単なる置換処理を超えた「エンジニアの美学」が宿っています。重要なポイントを3つに分けて解説します。
1. `Selection` ではなく `Range` を使う理由
`Selection` は「今、画面上でカーソルが選択している場所」です。Wordはわざわざ画面の表示を書き換えながら処理するため、動作が非常に重くなります。
一方、`Range` は「メモリ上の見えないテキストの塊」です。画面を一切汚さずに裏側で高速処理するため、メモリ効率もパフォーマンスも桁違いに向上します。
2. `Set targetRange = Nothing` の絶対的な使命
VBAの変数は、プロシージャ（Sub）が終了すれば自動的に解放される……と思っていませんか？
実は、COMオブジェクト（Wordなどの外部アプリケーションのオブジェクト）は、参照カウンタが複雑に絡み合うため、明示的に `Set 〇〇 = Nothing` と書かないと、メモリ上に亡霊のように居座り続けることがあります。
特にループ処理やエラー発生時には、この「自前での解放処理」が生死を分けます。
3. `On Error GoTo` による安全網
もし処理の途中でエラーが起きたとき、そのままコードが中断されると、`ScreenUpdating = False` のまま画面が固まり、メモリも解放されません。
エラーハンドラを必ず用意し、「どんな結末を迎えても、最後に必ず `Nothing` を通る動線」を作ること。これがプロのプログラミングです。
—
ここをクリアすれば、Word VBAの基本はバッチリですよ！
お疲れ様でした！少し難しい話もしましたが、要するにこういうことです。
- 画面（Selection）を触るな、裏側（Range）でやれ。
- 使ったオブジェクトは、使い終わったら `Nothing` で綺麗に片付けろ。
この2つを意識するだけで、あなたの書くマクロは「趣味のスクリプト」から「プロフェッショナルな業務システム」へと生まれ変わります。何万ページある仕様書だって、もう怖くありません。
ぜひ、次回の開発案件からこのオブジェクト管理術を取り入れてみてください。圧倒的な安定感に、きっと自分でも驚くはずです。
それでは、快適なVBAライフを！
