マクロ記録のその先へ。Wordの表を「生きたデータ」に変えるXMLエクスポート術
こんにちは。現場の自動化設計を統括しているアーキテクトです。
「マクロの記録」を使って、ボタン一つで表の書式を整えたり、文字の色を変えたりできるようになった……。もしあなたが今、その段階にいるとしたら、おめでとうございます。あなたはすでに、自動化の入り口を突破しました。
しかし、エンジニアとして、あるいは一歩先の業務効率化を目指すプロフェッショナルとして、次に目指すべき壁があります。それは、「Wordで作ったデータを、Wordの外（他のシステムやデータベース）へ繋ぐ」というフェーズです。
Wordの表は、人間には非常に見やすい「レイアウト」ですが、コンピュータにとっては単なる「描画オブジェクトの集まり」に過ぎません。この「見た目の表」を、コンピュータが理解できる「構造化データ（XML）」へと変換する技術。これこそが、業務自動化の真髄です。
今日は、Word VBAを使って表のデータをXML形式で書き出す、極めて実戦的な手法を伝授しましょう。ここをクリアすれば、あなたの書くコードは「単なる操作の記録」から「システム連携のパーツ」へと進化します。
1. なぜ「XML」なのか？ 構造化データの重要性
「CSVで書き出せば十分じゃないか？」と思うかもしれません。確かに、単純なリストならCSVで十分です。しかし、実務の世界ではそうはいきません。
例えば、以下のような表を想像してください。
- セルの中に改行がある
- 特定のセルだけが「注釈」という属性を持っている
- 表の中に、さらに階層構造がある
CSVは「平らなデータ」を得意としますが、こうした「階層や属性を持つデータ」を扱うには限界があります。一方でXML（Extensible Markup Language）は、データの意味（タグ）と構造をセットで保持できます。
Wordの表をXMLに変換するということは、「見た目のセル」を「意味を持つデータ要素（DOM）」へと再定義する作業なのです。
2. 【設計図】変換のロジックを理解する
いきなりコードを書き始めるのは素人のすることです。プロはまず、オブジェクトのライフサイクルとデータの流れを設計します。
私たちが実装するのは、以下のステップです。
1. Target Tableの特定: 操作対象となるWordの表オブジェクトを掴む。
2. 走査（Iteration）: 行（Rows）をループし、その中のセル（Cells）をループする。
3. データのクレンジング: Word特有の「厄介なゴミ」を取り除く（ここが最重要！）。
4. XML構築: タグでデータを包み、文字列として組み立てる。
5. ファイル出力: 構築した文字列をファイルとして保存する。
ここで、多くの初心者が陥る「最大の罠」があります。それは、Wordのセルに含まれる「終端文字」です。
3. 実装：表をXMLへ変換するプロフェッショナル・コード
それでは、実際に動くコードを見てみましょう。このコードは、単にセルを書き出すだけでなく、実務で必ず直面する「特殊文字」や「セル内のゴミ」への対策を施した、実戦仕様です。
Option Explicit
''' <summary>
''' 指定した表をXML形式でエクスポートする
''' </summary>
''' <param name="targetTable">対象となるWordのTableオブジェクト</param>
''' <param name="filePath">保存先のフルパス</param>
Public Sub ExportTableToXML(ByRef targetTable As Table, ByVal filePath As String)
Dim xmlContent As String
Dim rowIdx As Long
Dim colIdx As Long
Dim cellText As String
Dim rowXml As String
Dim cellXml As String
' 1. XMLのヘッダー（宣言）を作成
xmlContent = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
xmlContent = xmlContent & "<TableData>" & vbCrLf
' 2. 行のループ開始
For rowIdx = 1 To targetTable.Rows.Count
rowXml = " <Row id=""" & rowIdx & """>" & vbCrLf
' 3. 列のループ開始
For colIdx = 1 To targetTable.Columns.Count
' セルのテキストを取得
' ※注意: Wordのセルには必ず末尾に特殊な制御文字が含まれる
cellText = targetTable.Cell(rowIdx, colIdx).Range.Text
' --- 【重要】クレンジング処理 ---
' Wordのセル末尾にある Chr(13) & Chr(7) を除去する
cellText = CleanCellText(cellText)
' XMLの特殊文字（<, >, &, "）をエスケープ処理する
cellText = EscapeXmlCharacters(cellText)
' セル要素の組み立て
cellXml = " <Cell col=""" & colIdx & """>" & cellText & "</Cell>" & vbCrLf
rowXml = rowXml & cellXml
Next colIdx
rowXml = rowXml & " </Row>" & vbCrLf
xmlContent = xmlContent & rowXml
Next rowIdx
' 4. XMLの閉じタグ
xmlContent = xmlContent & "</TableData>"
' 5. ファイルへの書き出し
WriteToFile filePath, xmlContent
MsgBox "エクスポートが完了しました！" & vbCrLf & filePath, vbInformation
End Sub
''' <summary>
''' Word特有のセル末尾文字を除去する
''' </summary>
Private Function CleanCellText(ByVal txt As String) As String
' Wordのセル末尾には Chr(13) (CR) と Chr(7) (Bell) が必ず入る
' これを除去しないと、XMLとして不正な形式になる
Dim cleaned As String
cleaned = Replace(txt, Chr(13), "")
cleaned = Replace(cleaned, Chr(7), "")
CleanCellText = Trim(cleaned)
End Function
''' <summary>
''' XMLの予約語を安全な文字列に置換する
''' </summary>
Private Function EscapeXmlCharacters(ByVal txt As String) As String
Dim s As String
s = txt
s = Replace(s, "&", "&")
s = Replace(s, "<", "<")
s = Replace(s, ">", ">")
s = Replace(s, """", """)
s = Replace(s, "'", "'")
EscapeXmlCharacters = s
End Function
''' <summary>
''' テキストファイルを書き出す
）
Private Sub WriteToFile(ByVal filePath As String, ByVal content As String)
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim stream As Object
' UTF-8で書き出すための準備（簡易的な実装）
Set stream = fso.CreateTextFile(filePath, True)
stream.Write content
stream.Close
End Sub
''' <summary>
''' テスト実行用メインルーチン
''' </summary>
Sub RunExportTest()
' 文書内の最初の表を対象にする例
If ActiveDocument.Tables.Count > 0 Then
Call ExportTableToXML(ActiveDocument.Tables(1), ThisDocument.Path & "\TableData.xml")
Else
MsgBox "文書内に表が見つかりません。", vbExclamation
End If
End Sub4. アーキテクトの視点：陥りやすい「3つの罠」
このコードを使いこなすために、私が現場で何度も見てきた「失敗のパターン」を共有しておきます。ここを知っているだけで、あなたのデバッグ時間は劇的に減ります。
① 「見えない文字」の恐怖 (`Chr(13) & Chr(7)`)
Wordのセルは、見た目では分かりませんが、必ず末尾に「改行」と「ベル文字」という特殊なコードを保持しています。これを除去せずにXMLに書き出すと、XMLパーサー（解析器）が「不正な文字が含まれています」とエラーを吐いて止まります。
`CleanCellText` 関数で行っている処理は、単なる掃除ではなく、データの整合性を守るための儀式なのです。
② XML予約語のエスケープ
セルの中に `A & B` という文字列があったとします。これをそのまま `
`&` は `&` に変換しなければなりません。これを怠ると、データが少し複雑になった瞬間にシステムが崩壊します。
③ パフォーマンスの重み
表の行数が数百、数千となると、文字列の結合 (`xmlContent = xmlContent & …`) は急激に重くなります。VBAにおいて、文字列の結合は「新しいメモリ領域を確保してコピーする」という重い作業を伴うからです。
もし、より大規模なデータを扱うなら、`ADODB.Stream` を使ったり、配列に一旦格納してから結合する手法を検討してください。今回は「読みやすさ」を優先しましたが、プロは常に「データの規模に応じた計算量」を意識します。
最後に：ここをクリアすれば、あなたはもう「自動化エンジニア」です
いかがでしたか？
単に「表の文字をコピーする」だけなら、マクロの記録で十分でした。しかし、「データの構造を理解し、適切な形式へ変換して、外部へ送り出す」という一連の流れを実装できたあなたは、もう立派な自動化エンジニアの入り口に立っています。
プログラミングは、単なる命令の羅列ではありません。「現実世界の曖昧なデータ」を、「コンピュータが扱える厳密な秩序」へと整えるプロセスなのです。
このコードをベースに、ぜひ独自のタグ（例えば `
応援していますよ。次は、もっと複雑なシステム連携の世界でお会いしましょう！
