こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだか動いた！」と感動したのも束の間、いざ数百ページもある巨大な仕様書や契約書を相手にマクロを走らせたら、途中でWordがフリーズしたり、挙句の果てに強制終了したり……そんな悪夢を見たことはありませんか？
「自分の書いたコード、どこがいけないんだろう？」と悩んでいるあなた。
ここをクリアすれば、Word VBAの基本はバッチリですよ。今日は、Word VBAのパフォーマンスを左右する心臓部、`Range`オブジェクトの「生存期間」とメモリ管理の極意を、優しく、そして徹底的に伝授します。
プロのアーキテクトが現場で使っている「巨大文書を秒速で料理する技術」、一緒にマスターしていきましょう！
—
1. なぜ巨大文書でWordは死ぬのか？（Rangeの正体を知る）
Word VBAにおいて、文書の中身を操作するときに必ず登場するのが `Range`（レンジ）オブジェクト です。
文字通り、文書の「範囲」を表すオブジェクトですが、この正体を正しく理解していないことが、メモリリーク（メモリの食いつぶし）やフリーズを引き起こす最大の原因になります。
Selection（選択範囲）と Range（範囲）の決定的な違い
マクロの記録を使うと、必ずと言っていいほど `.Select` や `Selection` という言葉が出てきます。
- `Selection`（画面の選択範囲）:
今、画面上で青く反転している部分です。Word君は人間と同じように「あ、ここを選んだんだな、ここに文字を打つんだな」と、わざわざ画面の表示を書き換えながら処理をします。これがめちゃくちゃ重い原因です。
- `Range`（見えない選択範囲）:
画面の裏側（メモリ上）だけでこっそりと指定された「文字の居場所」です。画面を書き換えないため、爆速で動作します。
Rangeオブジェクトは「生き物」である
さて、ここからが本題です。`Range`オブジェクトは、コードの中で `Set` ステートメントを使って生成された瞬間から、Wordのメモリ（ヒープ領域）上にメモリを占有します。
問題は、「使い終わったRangeをどう扱っているか」です。
ここに無頓着でいると、ループ処理を回すたびにメモリ上にゾンビのようなゴミ（参照）が蓄積され、やがてWordのメモリが限界を迎えて「メモリ不足です」とクラッシュしてしまうのです。
—
2. 現場で嫌われる「やってはいけない」アンチパターン
まずは、初学者がやりがちな「メモリリーク製造機」のようなコードを見てみましょう。どこが問題かわかりますか？
‘ 【アンチパターン】絶対に真似してはいけない例
Sub BadCode_MemoryLeak()
Dim i As Long
‘ 1000回ループして文字を追加する処理
For i = 1 to 1000
‘ 毎回新しいRangeを作っている！
Set rng = ActiveDocument.Content
rng.Collapse wdCollapseEnd
rng.Text = “行 ” & i & vbCrLf
Next i
MsgBox “終わりました”
End Sub
上記のコードの何がいけないかと言うと、ループが回るたびに新しい `Range` オブジェクトのインスタンスが生成され、古い参照がメモリ上に置き去りにされている点です（厳密には変数が上書きされますが、VBAの内部的なCOMオブジェクトの解放タイミングは曖昧になりがちです）。
これが3万行ある巨大文書の置換処理だったら……？ 想像するだけで冷や汗が出ますね。
—
3. 巨人を手なづける：正しい変数管理と `Set Nothing` の美学
では、どう書けばメモリを汚さず、安全かつ高速に動くのでしょうか？
答えはシンプルです。「使い回す」「要らなくなったらその場で捨てる」。
チーフアーキテクトが推す、極限まで最適化されたコードのテンプレートがこちらです。
‘ 【模範解答】巨大文書でもびくともしないプロのコード
Sub GoodCode_Optimized()
Dim rngTarget As Range
Dim startTime As Single
startTime = Timer ‘ 処理速度計測用
‘ 画面描画を停止して爆速化の呪文
Application.ScreenUpdating = False
Application.Calculation = wdCalculationManual
On Error GoTo ErrorHandler ‘ エラー時も確実に後片付けするため
‘ 1. Rangeを変数に格納（文書の末尾を取得）
Set rngTarget = ActiveDocument.Content
rngTarget.Collapse wdCollapseEnd
‘ 2. 効率的な処理（例：まとめてテキストを追加）
Dim i As Long
For i = 1 to 1000
rngTarget.InsertAfter “行 ” & i & vbCrLf
‘ ※Rangeの位置をズラさずに追加する場合の書き方
Next i
MsgBox “処理完了！ 実行時間: ” & (Timer – startTime) & ” 秒”
ErrorHandler:
‘ 3. エラー有無に関わらず、必ずメモリを解放する！
If Not rngTarget Is Nothing Then
Set rngTarget = Nothing
End If
‘ 画面描画を元に戻す
Application.ScreenUpdating = True
Application.Calculation = wdCalculationAutomatic
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
コードのここがポイント！
1. `Set rngTarget = Nothing` の徹底
処理が終わったら、明示的に `Nothing` を代入してメモリの参照を切り離します。これがオブジェクトのライフサイクルを管理する基本中の基本です。
2. `ScreenUpdating = False` との組み合わせ
画面の再描画を止めることで、Wordの描画エンジンに余計な負荷をかけず、Rangeの処理速度を何倍にも跳ね上げます。
3. エラーハンドリング（`On Error GoTo`）
万が一マクロが途中でエラーを起こしたとき、メモリ解放のコードを通らずにマクロが終了してしまうのを防ぎます。プロのコードには必ず「後片付けの道」が用意されています。
—
4. さらにパフォーマンスを極めるための勘所
最後に、巨大文書（数百ページの社内報や分厚い契約書など）を扱う際に、知っておくと絶対に役立つ「勘所」をいくつか授けます。
- `Find` / `Replace` は `Range` オブジェクト経由で行う
`Selection.Find` ではなく、`Range.Find` を使ってください。画面を一切動かさずに、文書の裏側で一瞬にして文字列の検索・置換が完了します。
- ループ内で `ActiveDocument` を連呼しない
`ActiveDocument` を何度も呼び出すのは、毎回引き出しの奥から書類を探し出すようなものです。一度 `Dim doc As Document` に代入して使い回しましょう。
- 不要なオブジェクト変数は作らない
「とりあえず変数に入れておこう」はメモリリークの元です。1回しか使わないプロパティやメソッドは、変数に入れずチェーンさせて呼び出す方が安全な場合もあります。
—
まとめ
いかがでしたでしょうか？
今回は、Word VBAにおける `Range` オブジェクトの生存期間とメモリ管理について解説しました。
- `Selection` ではなく `Range` を使え（画面を書き換えるな）
- 使い終わったオブジェクトは `Set Nothing` で確実に解放しろ
- エラー時でも後片付けができる防衛的なコードを書け
この3つを意識するだけで、あなたの書くマクロは見違えるほど軽快になり、巨大な文書を相手にしてもエラーを起こさない、信頼性の高いシステムへと生まれ変わります。
ここをクリアしたあなたなら、もう「マクロの記録」だけの初心者ではありません。自信を持って、実務の自動化に挑んでくださいね！それでは、また次のエンジニアリングでお会いしましょう。
