Word VBAを掌握する極限の知見：DOM直接操作による超高速XML置換アーキテクチャ
Word VBAの標準機能である `Selection.Find` や `Range.Find` を用いた置換処理は、数千ページを超える巨大な文書において致命的なボトルネックとなる。GUIの描画更新、Undoスタックの肥大化、そしてCOMインターフェースを介した無数のプロセス間通信が、処理速度を極限まで低下させるからだ。
シニアエンジニアや大規模システムを預かる管理者であれば、一度は「Wordの裏側で何が起きているのか」に直面したことがあるはずだ。
本稿では、Wordのオブジェクトモデルを完全にバイパスし、`.docx`（OpenXML形式）の本質であるZIPとXML構造を直接DOM（Document Object Model）で操作することで、数万ページ規模の文書を一瞬で書き換える究極の高速化手法を解説する。
—
1. なぜ従来の `Find.Execute` は遅いのか？
Wordの `Find` オブジェクトは、テキストエディタの検索とは異なり、文書のレイアウトエンジンと密接に結合している。
- レイアウト計算の都度発生するオーバーヘッド: 文字列が置換されるたびに、Wordはページレイアウトやフォントメトリクスを再計算する。
- COM境界の跨ぎすぎ: VBAからWordのCOMオブジェクトへアクセスするたびに、プロセス境界を越えるコスト（Marshalerの介在）が発生する。
- Undo情報の蓄積: メモリ上に変更履歴が蓄積され、巨大な文書ではメモリリークや強制終了（Out of Memory）を引き起こす。
これに対する回答が 「Office Open XML (OOXML) の直接操作」 である。`.docx` は実体のないバイナリではなく、実態はただのZIPアーカイブであり、中身は純粋なXMLファイルの集合体にすぎない。VBAからDOM（MSXML2.DOMDocument）を用いてこのXMLをメモリ上に展開し、XPathで一括置換して保存し直す。これが、真の高速化のアーキテクチャである。
—
2. アーキテクチャの全体像
今回構築するシステムの流れは以下の通りだ。
1. ZIP解凍: 対象の `.docx` を一時フォルダに展開する（VBAからShellやADODB.Stream、あるいはWindows標準のCOMオブジェクトを利用）。
2. XMLパース: 本文が格納されている `word/document.xml` を `MSXML2.DOMDocument` にロードする。
3. 名前空間の解決: WordのXML名前空間（`w:`）を正しく登録し、XPathまたはノード走査でターゲットの文字列を置換する。
4. 保存と再圧縮: 変更を加えたXMLを上書き保存し、再びZIP形式に固めて `.docx` として出力する。
—
3. 実装コード：DOMによる超高速XML置換エンジンの核心
以下のコードは、エラーハンドリング、名前空間の解決、そしてメモリ最適化を極めた実戦投入可能なVBAモジュールである。
Option Explicit
‘ ==============================================================================
‘ 伝説のアーキテクチャ：OOXML直接操作による高速置換エンジン
‘ 前提条件: 参照設定に「Microsoft XML, v6.0」を追加すること
‘ ==============================================================================
Public Sub ExecuteHighSpeedXMLReplace(ByVal targetFilePath As String, ByVal searchWord As String, ByVal replaceWord As String)
Dim fso As Object
Dim tempDir As String
Dim xmlPath As String
Dim xmlDoc As Object
Dim nodeList As Object
Dim node As Object
Dim startTime As Double
startTime = Timer
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 1. 一時作業ディレクトリの作成
tempDir = fso.GetSpecialFolder(2) & “\WordXML_” & Format(Now, “yyyymmddhhmmss”) & “_” & Int(Rnd 1000)
fso.CreateFolder tempDir
On Error GoTo ErrorHandler
‘ 2. .docx (ZIP) の展開
‘ ※Windows標準のShell.Applicationを使用してZIPを解凍
UnZipFile targetFilePath, tempDir
xmlPath = tempDir & “\word\document.xml”
If Not fso.FileExists(xmlPath) Then
Err.Raise vbObjectError + 1, “XMLReplace”, “指定されたファイルは有効なOpenXMLドキュメントではありません。”
End If
‘ 3. MSXML2.DOMDocumentによるXMLのロード
Set xmlDoc = CreateObject(“MSXML2.DOMDocument.6.0”)
xmlDoc.Async = False
xmlDoc.ValidateOnParse = False
If Not xmlDoc.Load(xmlPath) Then
Err.Raise vbObjectError + 2, “XMLReplace”, “XMLのパースに失敗しました: ” & xmlDoc.parseError.reason
End If
‘ 4. 名前空間の登録（WordprocessingML）
‘ XPathを正確に評価するため、名前空間プレフィックスを設定する
xmlDoc.setProperty “SelectionNamespaces”, “xmlns:w=’http://schemas.openxmlformats.org/wordprocessingml/2006/main'”
‘ 5. テキストノード（w:t）の走査と置換
‘ Wordの文書構造では、テキストは
Set nodeList = xmlDoc.getElementsByTagName(“w:t”)
Dim i As Long
Dim currentText As String
Dim modified As Boolean
modified = False
For i = 0 To nodeList.Length – 1
Set node = nodeList.Item(i)
currentText = node.Text
‘ 文字列が含まれている場合のみ置換処理を実行
If InStr(1, currentText, searchWord, vbBinaryCompare) > 0 Then
node.Text = Replace(currentText, searchWord, replaceWord)
modified = True
End If
Next i
‘ 6. 変更があった場合のみXMLを上書き保存
If modified Then
xmlDoc.Save xmlPath
‘ 7. 再圧縮して元のファイルを上書き
‘ 既存のZIPを削除し、再圧縮する
Kill targetFilePath
ZipFile tempDir, targetFilePath
MsgBox “高速置換が完了しました。” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00秒”), vbInformation, “アーキテクチャ最適化完了”
Else
MsgBox “該当する文字列が見つかりませんでした。”, vbExclamation, “情報”
End If
CleanUp:
‘ 8. メモリの明示的解放と一時ファイルの削除
Set nodeList = Nothing
Set xmlDoc = Nothing
If fso.FolderExists(tempDir) Then
fso.DeleteFolder tempDir, True
End If
Set fso = CreateObject(“Scripting.FileSystemObject”) ‘ 念のため再生成して破棄
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
Resume CleanUp
End Sub
‘ — ヘルパー関数: ZIP解凍 (Shell.Application) —
Private Sub UnZipFile(ByVal zipFilePath As String, ByVal destDirPath As String)
Dim sa As Object
Set sa = CreateObject(“Shell.Application”)
sa.NameSpace(destDirPath).CopyHere sa.NameSpace(zipFilePath).Items, &H14 ‘ &H14 = 進行状況ダイアログ非表示
End Sub
‘ — ヘルパー関数: ZIP圧縮 (Shell.Application) —
Private Sub ZipFile(ByVal srcDirPath As String, ByVal zipFilePath As String)
Dim fso As Object
Dim sa As Object
Dim emptyZipHeader As Variant
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 空のZIPファイルヘッダを作成 (PK.. のバイナリ)
emptyZipHeader = Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Dim ts As Object
Set ts = fso.CreateTextFile(zipFilePath, True)
ts.Write emptyZipHeader
ts.Close
Set ts = Nothing
Set sa = CreateObject(“Shell.Application”)
‘ フォルダ内の全アイテムをZIPへコピー
sa.NameSpace(zipFilePath).CopyHere sa.NameSpace(srcDirPath).Items
‘ 圧縮処理が完了するまで同期待ち（ファイルサイズが安定するのを待つ）
Dim waitTimer As Double
waitTimer = Timer
Do
DoEvents
If Timer – waitTimer > 10 Then Exit Do ‘ タイムアウト10秒
Loop Until fso.GetFile(zipFilePath).Size > 22
End Sub
—
4. このアーキテクチャにおける技術的極意と注意点
シニアエンジニアとして、この手法を採用するにあたり知っておくべき「影の側面」と回避策を共有する。
① 「断片化された文字列」の罠
WordのXML構造（`w:t`）において、ユーザーが入力した「あいうえお」という文字列が、必ずしも1つの `
`
のように、XMLノードが分断される。
単一の `w:t` を単純置換する本手法では、この「またがった文字列」を置換できない。文書全体で書式が均一なプレースホルダー（例: `{{EMPLOYEE_NAME}}` など）の置換においてのみ、このアプローチは100%のパフォーマンスと確実性を発揮する。
② メモリ最適化とCOMオブジェクトの寿命管理
VBAにおける `DOMDocument` や `Scripting.FileSystemObject` は、スコープを抜けただけでは即座に解放されないことがある（Reference Countingのタイムラグ）。
数万ページ級のバッチ処理を行う場合、ループ内でこれらをインスタンス化し続けるとメモリリークを起こす。必ずオブジェクト変数に `Nothing` を明示的に代入し、ガベージコレクションを誘導すること。
③ レガシー環境・セキュリティポリシーへの配慮
社内システムやクライアント環境において、PowerShellや外部スクリプトの実行がグループポリシー（GPO）で禁止されている場合がある。しかし、純粋なVBAの `Shell.Application` によるZIP操作であれば、セキュリティ制限を回避しつつ、OS標準機能のみで完結させることが可能だ。
—
5. 結びにかえて
Word VBAは「遅くて使い物にならない」というのは、オブジェクトモデルの表層しか見ていないエンジニアの言い訳に過ぎない。
ファイルの構造の本質（OOXML）を見極め、適切なレイヤー（DOMによる直接操作）で介入すれば、VBAはモダンなシステム言語に匹敵する爆発的な処理速度を手に入れる。真の自動化エンジニアを目指すのであれば、GUIを操作するコードを書くのではなく、「データ構造を直接ハックする」という視座を常に忘れてはならない。
