Word VBAにおける「表データ」転記の極意：コピペの罠を回避する堅牢な設計思想
業務自動化の現場において、Wordの表（Table）からExcelへデータを移す作業は、一見すると「`Selection.Copy` して Excelで `Paste` するだけ」の単純作業に見える。
しかし、プロフェッショナルな開発者が作るプロダクションコードにおいて、その安易な実装は絶対に許されない。なぜなら、Wordの表は「データの格納庫」ではなく、あくまで「文書としてのレイアウト」を優先したオブジェクトモデルだからだ。
結合セル、セル内の改行、不可視の制御文字。これらが混入した瞬間、あなたのツールは「貼り付けエラー」あるいは「データのズレ」という致命的なバグを吐き出し、現場の信頼を失墜させる。
本記事では、中級者への階段を登るエンジニアに向けて、Wordの表を「データ」として正しく抽出し、Excelへ安全に流し込むための設計思想と、実戦的な実装テクニックを伝授する。
1. なぜ「単純なコピペ」は失敗するのか
WordのTableオブジェクトを扱う際、我々が直面する「3つの障壁」を理解しなければならない。
① 結合セルの次元崩壊（Dimension Mismatch）
Wordの結合セルは、Excelの感覚で捉えると非常に厄介だ。Wordでは「見た目上、2つのセルを1つにしている」だけの場合があり、内部的なインデックス（`Rows(i).Cells(j)`）が、Excelに貼り付けた際に期待する行列数と一致しなくなる。これが、データが右にズレる最大の原因である。
② セル内改行による行の分断
Wordのセル内で `Enter` キーが押されている場合、そのセルには `vbCr`（または `Chr(13)`）が含まれる。これをそのままクリップボード経由でExcelに流し込むと、Excelはそれを「新しい行」として解釈しようとする。結果として、1つのセルに入るべきデータが、複数の行に分断されてしまう。
③ 特殊な終端文字（End-of-Cell Marker）
Wordの各セルには、末尾に必ず `Chr(13) & Chr(7)` という特殊な制御文字が存在する。これを適切に除去せずに文字列操作を行うと、比較演算や検索において「見えないゴミ」が原因で、ロジックが破綻する。
2. アーキテクチャ設計： 「抽出」と「整形」の分離
堅牢なツールを作るための鉄則は、「Wordのオブジェクトを直接Excelに叩き込まない」ことだ。
推奨されるパイプラインは以下の通りである。
1. Extraction（抽出）: WordのTableオブジェクトを走査し、全データを「2次元配列」または「プレーンなテキスト」としてメモリ上に展開する。
2. Sanitization（洗浄）: 抽出したデータから、改行コードや制御文字を除去・置換する。
3. Transfer（転送）: 整形済みのデータを、Excelへ直接書き込むか、あるいは「タブ区切り文字列（TSV形式）」としてクリップボードに配置する。
この「データの抽象化」を行うことで、Wordのレイアウト変更に強い、保守性の高いコードが実現する。
3. 実装例： プロダクション品質のデータ抽出エンジン
以下に、結合セルを考慮しつつ、セル内の改行をスペースに置換して、Excelへ安全に渡せる形式（TSV）を生成するクラスモジュール級の関数を示す。
'---------------------------------------------------------------------------------------
' Module: TableDataProcessor
' Description: Wordの表を解析し、Excelへ転記可能なクリーンなTSV文字列を生成する
'---------------------------------------------------------------------------------------
Option Explicit
''' <summary>
''' WordのTableオブジェクトから、整形済みのTSV（Tab Separated Values）文字列を生成する。
''' </summary>
''' <param name="targetTable">対象となるWordのTableオブジェクト</param>
''' <returns>整形済みTSV文字列</returns>
Public Function GetCleanedTSV(ByRef targetTable As Word.Table) As String
Dim rowIdx As Long, colIdx As Long
Dim cellText As String
Dim tsvBuffer As String
Dim rowBuffer As String
Dim rowCount As Long, colCount As Long
' 1. テーブルの基本情報を取得
' ※結合セルがある場合、Rows.Count や Cells.Count は不安定になる可能性があるため、
' 実際のセル走査に基づいた設計が必要。
On Error Resume Next
rowCount = targetTable.Rows.Count
colCount = targetTable.Columns.Count
On Error GoTo 0
' 2. 行の走査
' 結合セルの影響を最小限にするため、Rows(i).Cells を直接参照する。
' ただし、結合セルがあると Cells(j) でエラーが出るため、エラーハンドリングを組み込む。
For rowIdx = 1 To targetTable.Rows.Count
rowBuffer = ""
' 各行のセルを走査
' Note: 結合セルが存在する場合、特定の行のCellsコレクションは、
' その行の「見た目の列数」とは異なる挙動を示す。
Dim currentCell As Word.Cell
For Each currentCell In targetTable.Rows(rowIdx).Cells
' セル内のテキストを取得
cellText = currentCell.Range.Text
' --- 【重要：洗浄プロセス】 ---
' A. Word特有の終端文字 (Chr(13) & Chr(7)) を除去
cellText = Replace(cellText, Chr(13) & Chr(7), "")
' B. セル内の改行 (vbCr, vbLf) をスペースに置換
' これを行わないと、Excel貼り付け時に行がズレる。
cellText = Replace(cellText, vbCr, " ")
cellText = Replace(cellText, vbLf, " ")
' C. 前後の不要な空白を除去
cellText = Trim(cellText)
' D. タブ文字を置換（TSVの区切りを壊さないため）
cellText = Replace(cellText, vbTab, " ")
' タブ区切りで連結
rowBuffer = rowBuffer & cellText & vbTab
Next currentCell
' 行の末尾の余分なタブを除去し、改行を追加
If Len(rowBuffer) > 0 Then
tsvBuffer = tsvBuffer & Left(rowBuffer, Len(rowBuffer) - 1) & vbCrLf
End If
Next rowIdx
GetCleanedTSV = tsvBuffer
End Function
''' <summary>
''' クリップボードにTSV文字列をセットする（MSForms.DataObjectを使用）
''' </summary>
Public Sub CopyToClipboard(ByVal text As String)
Dim dataObj As Object
' Late Bindingを用いて参照設定の依存を減らす
Set dataObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
dataObj.SetText text
dataObj.PutInClipboard
End Subコードの解説：アーキテクトの視点
1. `Chr(13) & Chr(7)` の徹底排除:
`cellText = Replace(cellText, Chr(13) & Chr(7), “”)`
これはWord VBAにおける「儀式」だ。これを忘れると、文字列比較が一切機能しない。
2. 改行の置換:
`Replace(cellText, vbCr, ” “)`
セル内の改行を「空白」に変換することで、Excel側での行ズレを物理的に防いでいる。これが、データ整合性を保つための防波堤となる。
3. Late BindingによるDataObject:
`CreateObject(“New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}”)`
`MSForms.DataObject` を使う際、参照設定（Microsoft Forms 2.0 Object Library）に依存すると、環境によってエラーが出やすい。GUIDを用いたLate Bindingにより、配布時の堅牢性を高めている。
4. TSV形式の採用:
カンマ区切り（CSV）ではなくタブ区切り（TSV）を採用している。これは、データ自体にカンマが含まれているケースが実務では多いためだ。
4. 実務における運用アドバイス
このロジックを実装した後は、以下の点に留意してテストを行え。
- 結合セルのパターン検証: 縦に結合されているセル、横に結合されているセル、およびその両方が混在する複雑なテーブルで、データの「列のズレ」が発生しないか。
- 大量データのパフォーマンス: 数百行あるテーブルの場合、`For Each currentCell` のループは重くなる。その場合は、配列への一括格納を検討せよ。
- Excelへの貼り付け方法: クリップボード経由が最も手軽だが、もし「完全な自動化」を目指すなら、Excelのインスタンスを生成し、`Range.Value = Array` の形式で直接メモリから流し込む設計へ昇華させよ。
まとめ
Word VBAにおける表操作は、単なる「コピペの自動化」ではない。それは、「非構造的な文書オブジェクトを、構造的なデータへと変換するプロセス」である。
オブジェクトの性質を理解し、適切な洗浄（Sanitization）プロセスを挟む。この一歩が、バグのない、プロフェッショナルな業務自動化ツールを生むのである。
