【実務・中級編】【中級者向け】Word表のデータをXML形式でエクスポートしてシステム連携の準備をする – Word VBA解析バイブル

Wordの表をXMLへ昇華せよ：システム連携の基盤をVBAで構築する極意

開発現場でよくある悪夢の相談を聞いてほしい。
「クライアントから『Wordの申請書や報告書の表に入力されたデータを、基幹システムに一括取り込みしたい』と言われた。どうする？」

Excelであれば話は早い。しかし、相手は自由度の高すぎる「Word」だ。ユーザーが勝手にセルを結合し、行を増減させ、時には意図しない改行コードを埋め込む。この混沌としたWordの表から、綺麗に構造化されたデータを抽出しなければならない。

素人が書いたVBAコードなら、画面をちらつかせ、`Selection`オブジェクトを乱用し、結合セルのトラップを踏み抜いてフリーズするのがオチだ。

プロの業務自動化エンジニアであれば、そんな力技は使わない。Wordのドキュメント構造を深く理解し、メモリ上で完結する堅牢なXMLエクスポートエンジンを構築する。今回は、その実践的な知見とプロダクションコードのすべてを伝授しよう。

—

1. なぜ「力技のWord操作」は破綻するのか

多くのプログラマブルでないVBA初心者は、以下のようなコードを書きがちだ。

• `Selection.MoveDown` や `Next` でセルを巡回する
• カーソルを動かして値を拾うため、画面描画（ScreenUpdating）の抑制が必須になる
• セルの結合（Merge / Split）が存在した瞬間、列インデックスが狂い、致命的なインデックスエラー（エラー 5941）を吐く

Wordの表（`Table`オブジェクト）は、Excelの二次元配列のような単純な構造をしていない。特に結合セルが存在する場合、物理的な列数と、プログラムが認識すべき論理的な構造に乖離が生じる。

堅牢なシステム連携のために守るべき3つの鉄則

1. `Selection`の完全排除: カーソル移動に依存せず、オブジェクト参照（`Range`や`Cell`）のみでデータを捉える。
2. ヘッダーとデータの完全分離: 1行目をメタデータ（タグ名）として利用し、2行目以降を実データとして構造化する。
3. XMLのエスケープ処理: ユーザーが入力するテキストには `&`, `<`, `>` などのXML予約文字が含まれる。これをエスケープしないXML出力は「ゴミ」でしかない。

—

2. アーキテクチャ設計：WordからXMLへの変換フロー

今回構築するマクロの処理フローはこうだ。

1. アクティブドキュメントの指定された表を特定する。
2. 1行目（ヘッダー行）からXMLの要素名（Tag）を動的に生成する。
3. 2行目以降のデータ行を走査し、セル内のテキストを取得する（この際、特殊文字はXMLエスケープする）。
4. メモリ上で整形式（Well-Formed）のXML文字列を組み立てる。
5. UTF-8等のエンコーディングを考慮してファイルシステムに出力する。

—

3. 【プロダクションコード】堅牢なXMLエクスポート・エンジン

実務でそのまま使える、エラーハンドリングと文字エスケープを完備したVBAコードを提示する。VBE（Visual Basic Editor）の標準モジュールにそのまま貼り付けて利用してほしい。

Option Explicit

‘ ==============================================================================
‘ 処理名 : ExportTableToXML
‘ 概要 : Wordの指定した表の構造を解析し、システム連携用のXMLファイルとして出力する
‘ 前提 : 表の1行目はXMLのタグ名となるヘッダー項目が入力されていること
‘ ==============================================================================
Public Sub ExportTableToXML()
Dim targetTable As Table
Dim xmlPath As String

‘ 1. 対象テーブルの特定（カーソルがある、または文書内の最初の表を対象とする）
If Selection.Information(wdWithInTable) Then
Set targetTable = Selection.Tables(1)
ElseIf ActiveDocument.Tables.Count > 0 Then
Set targetTable = ActiveDocument.Tables(1)
Else
MsgBox “対象となる表が見つかりません。”, vbCritical, “エラー”
Exit Sub
End If

‘ 2. 出力先パスの指定（デスクトップに “ExportData.xml” として出力）
xmlPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\ExportData.xml”

‘ 3. XML生成とファイル出力の実行
On Error GoTo ErrorHandler
Dim xmlContent As String
xmlContent = BuildXmlFromTable(targetTable)

Call SaveUtf8Text(xmlContent, xmlPath)

MsgBox “XMLのエクスポートが完了しました。” & vbCrLf & “出力先: ” & xmlPath, vbInformation, “成功”
Exit Sub

ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End Sub

‘ ==============================================================================
‘ 関数名 : BuildXmlFromTable
‘ 概要 : 表オブジェクトからXML文字列を組み立てる（コアロジック）
‘ ==============================================================================
Private Function BuildXmlFromTable(ByVal tbl As Table) As String
Dim xml As Object
Set xml = CreateObject(“System.Text.StringBuilder”)

Dim r As Long, c As Long
Dim rowCount As Long, colCount As Long
rowCount = tbl.Rows.Count
colCount = tbl.Columns.Count

‘ ヘッダー行が存在しない（データ行すらない）場合は処理中断
If rowCount < 2 Then Err.Raise 9999, , "表の行数が不足しています。1行目をヘッダーとして定義してください。" End If ' XML宣言とルート要素の開始 xml.AppendLine "”
xml.AppendLine “”
xml.AppendLine ” ”

‘ 1行目をカラム名（XMLタグ名）として取得
Dim headers() As String
ReDim headers(1 To colCount)
For c = 1 To colCount
‘ セル内の余分な制御文字（改行やスペース）を除去し、安全なタグ名に置換
headers(c) = CleanTagString(GetCellText(tbl, 1, c))
If headers(c) = “” Then headers(c) = “Column” & c ‘ 空白時のフォールバック
Next c

‘ 2行目以降をデータ行として走査
For r = 2 To rowCount
xml.AppendLine ” ”
For c = 1 To colCount
Dim cellValue As String
cellValue = GetCellText(tbl, r, c)

‘ XMLエスケープ処理を適用してタグで囲む
xml.AppendLine ” <" & headers(c) & ">” & EscapeXml(cellValue) & “”
Next c
xml.AppendLine ” ”
Next r

‘ ルート要素の終了
xml.AppendLine ” ”
xml.AppendLine “”

BuildXmlFromTable = xml.ToString()
End Function

‘ ==============================================================================
‘ 関数名 : GetCellText
‘ 概要 : 結合セルを考慮しつつ、セル内のテキストを安全に取得する
‘ ==============================================================================
Private Function GetCellText(ByVal tbl As Table, ByVal rowIdx As Long, ByVal colIdx As Long) As String
On Error Resume Next
Dim txt As String
‘ Wordのセル末尾には必ず終了文字(Chr(13) + Chr(7))が含まれるため、これをトリムする
txt = tbl.Cell(rowIdx, colIdx).Range.Text
txt = Left(txt, Len(txt) – 2)
‘ 前後の空白や改行を整理
txt = Trim(txt)
On Error GoTo 0
GetCellText = txt
End Function

‘ ==============================================================================
‘ 関数名 : CleanTagString
‘ 概要 : ユーザーがヘッダーに入力した文字列をXMLタグとして有効な形式に置換する
‘ ==============================================================================
Private Function CleanTagString(ByVal src As String) As String
‘ 日本語やスペースを削る、あるいは英数字以外を置換する処理
‘ ここでは簡易的にスペースや記号を除去する例
Dim result As String
result = Replace(src, ” “, “”)
result = Replace(result, “　”, “”)
result = Replace(result, vbCr, “”)
result = Replace(result, vbLf, “”)

‘ XMLタグの先頭文字に数字が使えない等の制約対策（必要に応じて拡張）
If Not src Like “[a-zA-Z]” Then
‘ 日本語タグをそのまま許可する場合はそのままで良いが、
‘ 厳密なXMLスキーマに合わせるならここで英字IDにマップする設計も有効
End If

CleanTagString = result
End Function

‘ ==============================================================================
‘ 関数名 : EscapeXml
‘ 概要 : XMLの予約文字をエスケープする
‘ ==============================================================================
Private Function EscapeXml(ByVal val As String) As String
val = Replace(val, “&”, “&”)
val = Replace(val, “<", "<") val = Replace(val, ">“, “>”)
val = Replace(val, “”””, “"”)
val = Replace(val, “‘”, “'”)
EscapeXml = val
End Function

‘ ==============================================================================
‘ サブ名 : SaveUtf8Text
‘ 概要 : 文字コードUTF-8（BOM付き/なし）でテキストファイルを書き出す
‘ ==============================================================================
Private Sub SaveUtf8Text(ByVal content As String, ByVal filePath As String)
Dim stream As Object
Set stream = CreateObject(“ADODB.Stream”)

With stream
.Type = 2 ‘ adTypeText
.Charset = “utf-8”
.Open
.WriteText content
.SaveToFile filePath, 2 ‘ adSaveCreateOverWrite
.Close
End With
End Sub

—

4. チーフアーキテクトが解説するコードの急所

このコードが「なぜプロフェッショナルクオリティなのか」、その設計思想を解説しよう。

① `.NET Framework` の `StringBuilder` の活用

VBAの文字列結合（`str = str & “…”`）は、ループ回数が数千回を超えるとメモリの再割り当てが発生し、劇的にパフォーマンスが低下する（O(N^2)の問題）。
ここでは `CreateObject(“System.Text.StringBuilder”)` を呼び出すことで、高速かつ省メモリな文字列構築を実現している。これにより、何百行もある巨大な表であっても一瞬でXML化が完了する。

② Word固有の「セル終端文字」のトラップ

Wordの `Cell.Range.Text` を取得すると、文字列の末尾に必ず `Chr(13) & Chr(7)`（セルマーカー）が混入する。これをそのままXMLに流し込むと、システム連携時にパースエラーを引き起こす。
`GetCellText` 関数内で `Left(txt, Len(txt) – 2)` と処理し、確実にノイズを除去している点がこのコードの職人技だ。

③ ADODB.Streamによる厳密な文字コード制御

標準の `Open “…” For Output` ステートメントを使うと、実行環境のローカルShift-JISでファイルが吐き出され、モダンなWebAPIやXMLパーサーで文字化けを起こす。
`ADODB.Stream` を用いて明示的に `Charset = “utf-8″` を指定することで、グローバルなシステム連携に耐えうるUTF-8XMLを生成している。

—

5. 運用時の注意点とさらなる高みへ

このスクリプトを導入するにあたり、現場のオペレーターや上流工程の設計者に伝えておくべき事項がある。

• 表の構造規約: ユーザーが途中で列を勝手に入れ替えたり、結合セルを複雑に入り組ませると、想定外のパース結果になる。Wordテンプレート側で「フォームコントロール（コンテンツコントロール）」や「保護機能」を掛け、レイアウトをロックしておくことが、真に安定したシステム連携の要件となる。
• 非同期処理・API直結への拡張: 今回はデスクトップへのローカルファイル出力として実装したが、`SaveUtf8Text` の代わりに `MSXML2.XMLHTTP` や `WinHttp.WinHttpRequest.5.1` を用いて、生成したXML（またはJSON）を直接社内システムのREST APIエンドポイントへ `POST` 送信する設計への拡張も、この基盤があれば容易だ。

「Wordだからデータ活用は無理だ」と諦める必要はない。VBAのオブジェクトモデルを正しく掌握し、メモリとストリームを支配すれば、Wordは強力な「構造化データ入力インターフェース」へと生まれ変わる。

さあ、あなたの現場のレガシーな申請書を、モダンなデータソースへと進化させてほしい。