Word VBAを極める：数万ページの文書処理を「秒」で終わらせるメモリ管理と最適化の鉄則
Word VBAで数百、数千の文書を処理するツールを作ろうとして、途中でWordが「応答なし」になり、再起動を余儀なくされた経験はないだろうか。
多くの開発者が陥る罠は、「WordをGUIアプリとして操作している」という慢心だ。大量処理を行う際、Wordはワープロソフトではなく、単なる「メモリ上の巨大なDOMツリー」として扱うべきである。
本記事では、プロのアーキテクトが現場で採用している、パフォーマンスを極限まで高め、メモリリークを根絶するための「堅牢な設計」を伝授する。
—
1. 処理速度を支配する「UI抑制」の極意
VBAの処理が遅い最大の原因は、計算結果を画面に描画しようとするWordの律儀な親切心にある。`ScreenUpdating`の制御は基本中の基本だが、これを「止める」だけでは不十分だ。
確実な制御のための「ラッパー構造」
エラーが発生して処理が途中で中断されると、`ScreenUpdating = False` のまま画面が固まり、ユーザーはパニックに陥る。必ず `Error Handling` をセットで実装せよ。
Sub OptimizedProcess()
‘ 画面描画と警告を抑制
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
On Error GoTo ErrorHandler
‘ — ここにメインロジックを記述 —
CleanExit:
‘ 処理終了時には必ず状態を元に戻す（重要）
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description
Resume CleanExit
End Sub
—
2. メモリリークを撲滅するオブジェクト解放の作法
VBAはガベージコレクションが極めて脆弱だ。特に `Range` や `Document` オブジェクトをループ内で不用意に生成すると、数千件のループでメモリが食いつぶされる。
「破棄」の作法
VBAにおいて、オブジェクト変数を `Set obj = Nothing` するのは「呪文」ではない。スコープを最小化することが真の解放への近道だ。
- 不要なオブジェクトの生成を避ける: ループ内で何度も `Selection` を使っていないか？ `Selection` は画面同期を伴うため最も遅い。必ず `Range` オブジェクトを使用せよ。
- 明示的な解放: 処理の最後には必ず解放するが、最も重要なのは「ループ内で再利用すること」だ。
Dim doc As Document
Dim rng As Range
‘ ループの外で生成し、ループ内では再利用する
Set rng = ActiveDocument.Content
For i = 1 To 1000
‘ 新たにSetせず、既存のRangeの範囲を再定義して使い回す
rng.Start = GetSomePosition(i)
rng.End = GetNextPosition(i)
rng.Text = “更新データ”
Next i
‘ 最後にメモリを解放
Set rng = Nothing
—
3. ファイル・DB連携時の「破壊的」な注意点
外部DB（ExcelやSQL Server）からWordへ流し込む際、もっともパフォーマンスを悪化させるのは「ファイルの開閉」だ。
1. Read-Onlyで開く: 編集が不要な参照用ファイルは `ReadOnly:=True` で開け。ロックをかけないだけでOSの負荷は激減する。
2. Documentオブジェクトの使い回し: ファイルを開くたびに `Documents.Open` を繰り返すのではなく、テンプレートファイルを一つ開き、それを `SaveAs2` で別名保存する運用に切り替えよ。
プロダクションコード例：効率的なバッチ処理の雛形
Public Sub BatchProcessDocs(ByVal folderPath As String)
Dim fso As Object: Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim targetFile As Object
Dim doc As Document
Application.ScreenUpdating = False
For Each targetFile In fso.GetFolder(folderPath).Files
‘ 読み取り専用で開く
Set doc = Documents.Open(FileName:=targetFile.Path, ReadOnly:=True)
‘ ロジック実行
DoWork doc
‘ 変更を保存せずに閉じる（テンプレート運用の場合）
doc.Close SaveChanges:=False
‘ 明示的にNothingをセット
Set doc = Nothing
Next targetFile
Application.ScreenUpdating = True
End Sub
—
結論：アーキテクトとしての心得
Word VBAで「動くもの」を作るのは簡単だ。しかし、「数万行の処理を止まらずに完遂する」のは、計算機リソースの物理的な制限と、オブジェクトモデルの挙動を深く理解している者だけが到達できる領域である。
1. `Selection` を使うな。`Range` を使え。
2. `ScreenUpdating` は例外処理とセットで封印せよ。
3. オブジェクトのスコープを最小化し、不要なインスタンス生成を制限せよ。
この3点を徹底するだけで、あなたのツールは「おもちゃ」から、現場を支える「エンジニアリング・ツール」へと進化する。さあ、コードをリファクタリングし、真の効率化を手に入れよう。
