【実務・中級編】大規模Word文書の分割・結合をVBAで自動化する：メモリ管理の重要性 – Word VBA解析バイブル

【Word VBA】数百ページの巨獣を飼い慣らせ：メモリリークを根絶する文書分割・結合の極限アーキテクチャ

開発現場でこんな絶望を味わったことはないか？
「数百ページある仕様書や契約書の束を、章ごとに自動で分割（または結合）するマクロを作った。よし、動かした。……あれ、途中でWordがフリーズしたぞ。タスクマネージャーを見たらメモリ使用量が右肩上がりに爆発している……！」

初心者が書いたWord VBAのコードは、往々にしてメモリリークの爆弾を抱えている。特に大容量文書を扱う処理において、オブジェクトのライフサイクルを無視したコードは、数万行のループを回した瞬間にアプリケーションをクラッシュさせる。

今回は、Word VBAのオブジェクトモデルの深淵を暴き、「なぜその書き方は非効率なのか」「どう設計すれば数百ページの巨獣を安全に飼い慣らせるのか」を、プロダクションコードと共にロジカルかつシャープに伝授する。

—

1. なぜWord VBAはメモリリークを起こすのか？

Word VBAで最もやってはいけないアンチパターン。それは、コードのあちこちにドット（`.`）を繋げた「暗黙のオブジェクト生成」だ。

‘ 【悪夢のアンチパターン】
ActiveDocument.Sections(1).Range.Copy
Documents.Add.Content.Paste

一見、短く書けてスマートに見えるかもしれない。しかし、この裏で何が起きているか。
VBAの裏側（COMコンポーネントの世界）では、`.`で繋ぐたびに参照カウンタを持った一時的なCOMオブジェクトが生成されている。厄介なことに、これらはコードの実行が終わっても、VBAのガベージコレクターが即座に回収してくれるとは限らない。

特にループ処理の中でこれをやると、メモリ上にゴミ（解放されないオブジェクトの残骸）が山のように積み上がり、やがてOut of Memory（メモリ不足）エラーを引き起こす。これが、大規模文書処理におけるフリーズの正体だ。

堅牢な設計のための3大原則

1. オブジェクトは必ず変数に格納し、使い終わったら明示的に `Nothing` を代入して解放する。
2. 画面描画やイベント通知（ScreenUpdating, DisplayAlerts）は必ずオフにし、処理速度の最大化と予期せぬダイアログブロックを防ぐ。
3. `ActiveDocument` や `Selection` への依存を捨て、明示的な `Document` 変数でスコープを完全にコントロールする。

—

2. 実務で使える！堅牢な文書分割・結合モジュール

ここからは、実務の現場でそのままデプロイできるプロダクションコードを公開する。
数百ページの文書を「見出し1」を基準に安全にファイル分割し、さらにそれを元通りに結合する、メモリ管理を極めた設計だ。

共通前処理・後処理クラス（イディオム）

まずは、パフォーマンスを爆発的に向上させ、メモリリークの芽を摘むための定型処理を身につけよう。

Option Explicit

‘ =========================================================================
‘ 処理の安全性と高速化を担保する環境設定の切り替え
‘ =========================================================================
Private Sub ToggleEnvironment(ByVal Enable As Boolean)
With Application
.ScreenUpdating = Enable
.DisplayAlerts = wdAlertsNone
.Calculation = IIf(Enable, wdCalculationAutomatic, wdCalculationManual)
End With

If Not Enable Then
‘ ステータスバーのクリア
StatusBar = “”
End If
End Sub

—

実装コード：大規模文書の「安全な分割」プロシージャ

指定した文書を「見出し1」のスタイルごとに切り出し、別ファイルとして保存する。メモリリークを防ぐため、ループ内で生成されるRangeやDocumentは確実に破棄する。

Sub SplitDocumentByHeading1(ByVal TargetFilePath As String)
Dim srcDoc As Document
Dim partDoc As Document
Dim rngSource As Range
Dim rngTarget As Range
Dim para As Paragraph
Dim headingText As String
Dim savePath As String
Dim fso As Object
Dim fileCount As Long

‘ — 1. 環境最適化とファイルシステム準備 —
Call ToggleEnvironment(False)
On Error GoTo ErrorHandler

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set srcDoc = Documents.Open(FileName:=TargetFilePath, ReadOnly:=True, Visible:=False)

fileCount = 0
Set rngSource = srcDoc.Content

‘ — 2. 文書内を走査して分割 —
‘ ※実際のプロダクションではBookmarkやHeading段落のインデックスを事前に配列に回収するとさらに高速化します
Dim i As Long
Dim startPos As Long, endPos As Long

startPos = 0

For i = 1 To srcDoc.Paragraphs.Count
Set para = srcDoc.Paragraphs(i)

‘ 「見出し1」を分割のトリガーとする
If para.Style = srcDoc.Styles(“見出し1”) Then
If startPos > 0 Then
‘ 前回の見出しから今回の見出しの直前までを切り出し
endPos = para.Range.Start – 1
Set partDoc = Documents.Add

srcDoc.Range(startPos, endPos).Copy
partDoc.Content.Paste

‘ ファイル名成形（ファイル名に使えない文字の除去は省略）
headingText = Trim(Replace(srcDoc.Paragraphs(startPos).Range.Text, vbCr, “”))
savePath = fso.GetParentFolderName(TargetFilePath) & “\” & Format(fileCount, “00”) & “_” & headingText & “.docx”

partDoc.SaveAs2 FileName:=savePath
partDoc.Close SaveChanges:=wdDoNotSaveChanges
Set partDoc = Nothing ‘ 確実に解放
End If

startPos = para.Range.Start
fileCount = fileCount + 1
End If
Next i

‘ 最後のセクションの処理
If startPos > 0 Then
Set partDoc = Documents.Add
srcDoc.Range(startPos, srcDoc.Content.End).Copy
partDoc.Content.Paste
savePath = fso.GetParentFolderName(TargetFilePath) & “\” & Format(fileCount, “00”) & “_Final.docx”
partDoc.SaveAs2 FileName:=savePath
partDoc.Close SaveChanges:=wdDoNotSaveChanges
Set partDoc = Nothing
End If

CleanUp:
‘ — 3. 確実な後処理とメモリ解放 —
If Not srcDoc Is Nothing Then
srcDoc.Close SaveChanges:=wdDoNotSaveChanges
Set srcDoc = Nothing
End If
Set rngSource = Nothing
Set fso = Nothing

Call ToggleEnvironment(True)
MsgBox “分割が正常に完了しました。生成ファイル数: ” & fileCount, vbInformation
Exit Sub

ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub

—

実装コード：分割された文書の「安全な結合」プロシージャ

次に、フォルダ内の複数のWordファイルを、順番を保ったまま1つの文書に結合する処理だ。ここでも、`.InsertFile` メソッドをスマートに使い、メモリを圧迫せずにファイルを連結する。

Sub MergeDocumentsInFolder(ByVal TargetFolder As String, ByVal OutputFilePath As String)
Dim masterDoc As Document
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim sortedFiles As Object
Dim fileItem As Variant

Call ToggleEnvironment(False)
On Error GoTo ErrorHandler

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set folder = fso.GetFolder(TargetFolder)

‘ 処理順序を保証するため、ファイル名をキーにしたDictionary等を使うのが実務的ですが、
‘ ここではシンプルにコレクションへ格納（※必要に応じて並替ロジックを追加してください）

Set masterDoc = Documents.Add

Dim isFirst As Boolean
isFirst = True

For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Name)) = “docx” Then
If Not isFirst Then
‘ 文書の末尾に改行を入れてから次のファイルを挿入
masterDoc.Content.InsertAfter vbCr
End If

‘ メモリにファイルを全展開せず、InsertFileでストリーム的に結合する（極めて重要）
masterDoc.Content.Collapse wdCollapseEnd
masterDoc.Content.InsertFile FileName:=file.Path

isFirst = False
End If
Next file

masterDoc.SaveAs2 FileName:=OutputFilePath
masterDoc.Close SaveChanges:=wdDoNotSaveChanges
Set masterDoc = Nothing

CleanUp:
Set file = Nothing
Set folder = Nothing
Set fso = Nothing

Call ToggleEnvironment(True)
MsgBox “結合が完了しました。”, vbInformation
Exit Sub

ErrorHandler:
MsgBox “結合処理中にエラーが発生しました: ” & Err.Description, vbCritical
If Not masterDoc Is Nothing Then
masterDoc.Close SaveChanges:=wdDoNotSaveChanges
Set masterDoc = Nothing
End If
Resume CleanUp
End Sub

—

えっ、まだ古い書き方で消耗しているのか？
大規模文書を扱うプロの開発者であれば、「メモリのライフサイクルを支配する者こそがVBAを制す」という真理を忘れてはならない。オブジェクトを生成したら必ず変数に収め、用が済んだら `Nothing` を代入してCOMの残骸を残さない。この徹底が、あなたのツールを「数回動かしてクラッシュするおもちゃ」から「夜間バッチでもビクともしない堅牢なエンタープライズツール」へと昇華させる。

現場の信頼を勝ち取るプログラミングを、今日から実践してほしい。