Word VBAを掌握する極限の知見：Word表のXML構造化エクスポートとメモリ最適化の全貌
Wordは単なる「ワープロソフト」ではない。現場においては、往々にして「野良データベース」として機能している。営業部が気まぐれに作成した見積書、総務が改変を重ねた申請書。その中にある無数の「表（Table）」こそが、基幹システムへ流し込むべき重要データの隠し場所だ。
中級者へのステップアップとして、単にセルを巡回してテキストを拾うだけのコードは卒業しなければならない。本稿では、Wordの表構造をパースし、厳密なXML形式へと昇華させて外部システム連携の礎を作る手法を、メモリ管理とパフォーマンスの限界まで踏み込んで解説する。
—
1. Word表とDOM：なぜXMLエクスポートなのか
社内システムやクラウドAPIとの連携において、固定長テキストや独自CSVはパースエラーの温床となる。特にWordの表は、結合セル（Merge Cells）やネストされた表が存在するため、リレーショナルなデータ構造への変換にはコンテキストの維持が不可欠である。
ここでXMLを選択する理由は、階層構造とメタデータを同時に保持できる点にある。Wordの `Cell` オブジェクトを走査し、DOM（Document Object Model）あるいはMSXML2を使用してストリーム上でXMLを構築する。これにより、メモリ上のオーバーヘッドを最小限に抑えつつ、スキーマ検証に耐えうるクリーンなデータを生成できる。
—
2. 現場の罠：Word VBAにおけるオブジェクトのライフサイクルとメモリ管理
VBAのガーベージコレクションは頼りにならない。特に`Range`や`Row`、`Cell`といったWord特有のオブジェクトをループ内で頻繁に生成・破棄すると、COMコンポーネントの参照カウンタが肥大化し、最悪の場合、メモリリーク（Access Violation）を引き起こす。
シニアエンジニアが書くべきコードは、「明示的な変数解放（`Set obj = Nothing`）」と「画面描画の完全な凍結」が実装されているものである。
パフォーマンスを極限まで高める鉄則
1. ScreenUpdating / DisplayAlerts の無効化: 描画コストを排除する。
2. オブジェクト変数の局所化と解放: ループ内で生成するオブジェクトは、イテレーションごとに `Nothing` を代入する。
3. Late Bindingの活用（必要に応じて）: 参照設定のバージョン依存を排除し、MSXML2.DOMDocumentなどを動的生成する。
—
3. 実装コード：Word表をハイパフォーマンスにXML化するエンジン
以下のコードは、指定されたWord文書内の最初の表を走査し、結合セルを考慮した上で、厳密な構造を持つXML文字列として出力する実用的なモジュールである。
Option Explicit
‘ ==============================================================================
‘ 処理名: ExportTableToXml
‘ 概要 : Wordの表を解析し、構造化されたXML文字列を生成する
‘ 対象 : 中級者以上（メモリ最適化・結合セル考慮版）
‘ ==============================================================================
Public Sub ExportTableToXml()
‘ 描画・警告の完全停止（パフォーマンス最大化）
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
Dim startTime As Double
startTime = Timer
On Error GoTo ErrorHandler
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ 対象文書に表が存在するか確認
If targetDoc.Tables.Count = 0 Then
MsgBox “文書内に表が存在しません。”, vbExclamation, “システム連携エラー”
GoTo CleanUp
End If
Dim targetTable As Table
Set targetTable = targetDoc.Tables(1) ‘ 最初の表をターゲットとする
‘ MSXML2によるDOM構築（VBA環境での標準的なXML生成手法）
Dim xmlDoc As Object
Set xmlDoc = CreateObject(“MSXML2.DOMDocument.6.0”)
Dim processingInstruction As Object
Set processingInstruction = xmlDoc.createProcessingInstruction(“xml”, “version=’1.0’ encoding=’UTF-8′”)
xmlDoc.appendChild processingInstruction
Dim rootElement As Object
Set rootElement = xmlDoc.createElement(“DocumentData”)
xmlDoc.appendChild rootElement
Dim tableElement As Object
Set tableElement = xmlDoc.createElement(“Table”)
tableElement.setAttribute “Source”, targetDoc.Name
rootElement.appendChild tableElement
‘ 表の走査とデータ抽出
Dim r As Long, c As Long
Dim rowElement As Object
Dim cellElement As Object
Dim cellText As String
Dim targetCell As Cell
For r = 1 To targetTable.Rows.Count
Set rowElement = xmlDoc.createElement(“Row”)
rowElement.setAttribute “Index”, CStr(r)
For c = 1 To targetTable.Columns.Count
Set cellElement = xmlDoc.createElement(“Cell”)
cellElement.setAttribute “ColumnIndex”, CStr(c)
‘ 結合セルによるエラーを回避しつつセルを取得
On Error Resume Next
Set targetCell = targetTable.Cell(r, c)
If Err.Number = 0 Then
‘ セル内のテキストから改行コードや制御文字を除去・正規化
cellText = targetCell.Range.Text
‘ 末尾のセルマーカー（Chr(13) + Chr(7)）を除去
If Len(cellText) >= 2 Then
cellText = Left(cellText, Len(cellText) – 2)
End If
cellText = Trim$(cellText)
cellElement.text = cellText
Else
‘ 結合セルの一部である場合のハンドリング
cellElement.text = “”
cellElement.setAttribute “Merged”, “True”
Err.Clear
End If
On Error GoTo ErrorHandler
rowElement.appendChild cellElement
Set cellElement = Nothing
Next c
tableElement.appendChild rowElement
Set rowElement = Nothing
Next r
‘ XMLファイルとして出力
Dim outputPath As String
outputPath = targetDoc.Path & “\TableExport_” & Format(Now, “YYYYMMDD_HHNNSS”) & “.xml”
xmlDoc.Save outputPath
‘ 終了処理
MsgBox “XMLエクスポートが完了しました。” & vbCrLf & _
“出力先: ” & outputPath & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00秒”), vbInformation, “完了”
CleanUp:
‘ オブジェクトの明示的解放（メモリリーク防止の極意）
Set targetCell = Nothing
Set targetTable = Nothing
Set targetDoc = Nothing
Set cellElement = Nothing
Set rowElement = Nothing
Set tableElement = Nothing
Set rootElement = Nothing
Set processingInstruction = Nothing
Set xmlDoc = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
—
4. チーフアーキテクトからの実務的助言
このコードをそのままエンタープライズ環境に投入する場合、以下の点に留意せよ。
1. 文字コードの厳密性: レガシーな環境ではShift-JISで保存されることがあるが、外部システム連携を見据えるならば、DOMオブジェクトを用いたUTF-8宣言（`encoding=’UTF-8’`）が必須である。
2. 結合セルの罠（Vertical/Horizontal Merge）: Wordの表でセルが結合されている場合、存在しないセルインデックスにアクセスするとVBAは実行時エラーを吐く。上記のコードでは `On Error Resume Next` と `Err.Number` の監視によってこれを優雅にハンドリングしているが、厳密なスキーマが必要な場合は `Range.Information(wdNoMoreCells)` などを併用してセルの境界を追うべきだ。
3. トランザクション的思考: ファイルI/Oを伴う処理では、途中で例外が発生した際に確実に `ScreenUpdating` や `DisplayAlerts` が復元されるよう、エラーハンドラでのクリーンアップパスを必ず一元化すること。
Wordを単なる文書作成ツールとして扱う時代は終わった。VBAを極め、その内臓を引きずり出して構造化データへと変換する技術こそが、レガシーとモダンをつなぐ唯一無二の武器となる。
