【Word VBA】ネスト構造の表を制す。再帰処理による「表の中の表」動的生成とデータ流し込みの極意
開発現場のリーダーである私のもとに、よくこんな相談が持ち込まれる。
> 「顧客ごとのレポートをWordで自動生成したいのですが、メインの表の中に、さらに明細行としての小テーブル（表の中の表）を動的に埋め込みたいのです。しかし、ループを回すとセルの参照が狂ったり、Wordがフリーズしたりして上手くいきません…」
Excel VBAであればセル番地を指定して終わりだが、Wordの表（`Table`オブジェクト）のDOM構造、特にネスト構造（入れ子）をプログラムから安全に操作するには、Word VBAのライフサイクルとオブジェクトモデルの癖を骨の髄まで理解していなければならない。
安易な `Selection` オブジェクトの多用や、不確実なレンジの指定は、ドキュメントの破損や致命的なパフォーマンス低下を招く。
今回は、実務の現場でそのまま稼働する、再帰的アプローチを用いた堅牢な「表の中の表」動的生成エンジニアリングを伝授しよう。
—
1. なぜ「表の中の表」の実装は泥沼化するのか？
多くの初中級プログラマーが陥る罠は以下の3点だ。
1. `Selection` への過度な依存
画面上のカーソル位置（`Selection`）に頼ったコードは、描画処理が挟まるため極めて遅い。さらに、ネストの階層が深くなると、どこを選択しているのかロジックが破綻する。
2. オブジェクトの寿命（Scope）の看過
親テーブルのセルを追加・削除した際、内部のレンジやセル参照が無効化（解放）されることを知らずにアクセスし、実行時エラーを引き起こす。
3. データ構造とDOM構造の分離不足
JSONやDBから取得した階層データを、直接場当たり的にWordへ流し込むため、データが1件ズレただけで表全体が崩壊する。
プロフェッショナルの解決策
- 完全なレンジ操作（`Range` Object）の徹底: 画面を描画させず、メモリ上で高速にDOMを構築する。
- 再帰関数（Recursive Function）による設計: 階層が何階層であっても破綻しない、美しくスケーラブルなコードを書く。
—
2. 設計アーキテクチャの全体像
今回構築するのは、「親データ（案件）」の中に「子データ（タスク明細）」が存在し、その子データの中にさらに「孫データ（リソース）」が存在し得る、無限ネスト対応のジェネレーターだ。
[ドキュメント]
└─ 1. メイン表 (Parent Table)
├─ セル(1,1): 案件概要
└─ セル(1,2): ネストされた子表 (Nested Table)
├─ セル(1,1): タスク名
└─ セル(1,2): さらにネストされた孫表 (Deep Nested Table)
これを実現するため、データ構造はDictionaryやCollectionを組み合わせたツリー構造とし、それをWordの `Cell.Range` に対して再帰的に流し込む。
—
3. プロダクションコード例
以下のコードは、エラーハンドリングを完備し、パフォーマンスを最大化するために画面描画を抑制したプロダクションコードである。そのままモジュールに貼り付けて実行してほしい。
Option Explicit
‘ ==============================================================================
‘ 処理名: 階層構造データの動的テーブル生成エントリーポイント
‘ 概要: 画面描画を停止し、メモリ上で安全にネストテーブルを構築する
‘ ==============================================================================
Sub ExecuteAdvancedTableGeneration()
Dim startTime As Double
startTime = Timer
‘ 1. パフォーマンス最大化の鉄則：画面描画とバックグラウンド再計算を停止
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.Calculation = wdCalculationManual
End With
On Error GoTo ErrorHandler
‘ 2. サンプルデータの構築（実務ではここでDBやJSONからデータを取得する）
Dim mockData As Collection
Set mockData = CreateMockHierarchyData()
‘ 3. ドキュメントの先頭、または特定のブックマーク位置にメイン表を作成
Dim targetRange As Range
Set targetRange = ActiveDocument.Content
targetRange.Collapse wdCollapseEnd ‘ 文末へ
‘ 見出しの挿入
targetRange.Text = “【自動生成】階層型プロジェクト管理レポート” & vbCrLf
targetRange.Style = “Heading 1”
targetRange.Collapse wdCollapseEnd
‘ 4. ルートテーブルの生成とデータ流し込みの実行
Call BuildNestedTable(targetRange, mockData, 1)
MsgBox “レポートの生成が正常に完了しました。” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, vbInformation, “完了”
CleanUp:
‘ 5. 環境の復元（絶対に忘れてはならない）
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
.Calculation = wdCalculationAutomatic
End With
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
‘ ==============================================================================
‘ 処理名: 再帰的テーブルビルダー
‘ 概要: データ構造を解析し、セル内に表を動的に生成してデータを流し込む
‘ ==============================================================================
Private Sub BuildNestedTable(ByRef targetRange As Range, ByRef dataCollection As Collection, ByVal currentDepth As Integer)
Dim item As Variant
Dim wsTable As Table
Dim rowIdx As Long
Dim totalRows As Long
totalRows = dataCollection.Count
If totalRows = 0 Then Exit Sub
‘ 表の作成 (行数 = データ数 + ヘッダー1行, 列数 = 3固定のサンプル)
Set wsTable = ActiveDocument.Tables.Add(Range:=targetRange, NumRows:=totalRows + 1, NumColumns:=3)
‘ テーブルの基本デザイン適用（組み込みスタイル）
wsTable.Style = “グリッド (テーブル)”
wsTable.AutoFitBehavior wdAutoFitFixed
‘ ヘッダーの設定
wsTable.Cell(1, 1).Range.Text = “項目ID”
wsTable.Cell(1, 2).Range.Text = “名称 / 詳細”
wsTable.Cell(1, 3).Range.Text = “ステータス / ネストデータ”
‘ ヘッダー行の書式設定（太字・背景色）
Dim i As Long
For i = 1 To 3
With wsTable.Cell(1, i).Range
.Font.Bold = True
.Shading.BackgroundPatternColor = RGB(220, 230, 242)
End With
Next i
‘ データの流し込み
rowIdx = 2
For Each item In dataCollection
‘ 第1列: ID
wsTable.Cell(rowIdx, 1).Range.Text = item(“ID”)
‘ 第2列: 名前
wsTable.Cell(rowIdx, 2).Range.Text = item(“Name”)
‘ 第3列: データ型に応じた分岐（文字列か、さらに子要素（Collection）を持つか）
If item.Exists(“SubItems”) Then
If TypeName(item(“SubItems”)) = “Collection” Then
If item(“SubItems”).Count > 0 Then
‘ セル内のテキストをクリアし、そのセルの末尾（Range）を取得
Dim cellRange As Range
Set cellRange = wsTable.Cell(rowIdx, 3).Range
cellRange.Text = “” ‘ 一旦クリア
cellRange.Collapse wdCollapseEnd
‘ 【核心】再帰呼び出し：セルの中に新しいテーブルを構築する
Call BuildNestedTable(cellRange, item(“SubItems”), currentDepth + 1)
Else
wsTable.Cell(rowIdx, 3).Range.Text = “(子データなし)”
End If
End If
Else
wsTable.Cell(rowIdx, 3).Range.Text = item(“Status”)
End If
rowIdx = rowIdx + 1
Next item
‘ テーブルの後に改行を確保（連続するテーブルの結合を防ぐ）
Dim afterRange As Range
Set afterRange = wsTable.Range
afterRange.Collapse wdCollapseEnd
afterRange.Text = vbCrLf
End Sub
‘ ==============================================================================
‘ 処理名: モックデータ生成関数
‘ 概要: 階層構造（JSONライクな入れ子コレクション）をVBAで模倣する
‘ ==============================================================================
Private Function CreateMockHierarchyData() As Collection
Dim rootCol As Collection
Set rootCol = New Collection
Dim parent1 As Object
Set parent1 = CreateObject(“Scripting.Dictionary”)
parent1.Add “ID”, “P-001”
parent1.Add “Name”, “基幹システム刷新PJ”
‘ 子要素の作成
Dim subCol1 As Collection
Set subCol1 = New Collection
Dim child1 As Object
Set child1 = CreateObject(“Scripting.Dictionary”)
child1.Add “ID”, “C-101”
child1.Add “Name”, “要件定義フェーズ”
child1.Add “Status”, “完了”
Dim child2 As Object
Set child2 = CreateObject(“Scripting.Dictionary”)
child2.Add “ID”, “C-102”
child2.Add “Name”, “基本設計フェーズ”
‘ 孫要素の作成（さらにネスト）
Dim grandChildCol As Collection
Set grandChildCol = New Collection
MultiAddGrandChild grandChildCol, “G-001”, “画面設計書”, “レビュー中”
MultiAddGrandChild grandChildCol, “G-002”, “DB設計書”, “修正待ち”
child2.Add “SubItems”, grandChildCol
subCol1.Add child1
subCol1.Add child2
parent1.Add “SubItems”, subCol1
rootCol.Add parent1
Dim parent2 As Object
Set parent2 = CreateObject(“Scripting.Dictionary”)
parent2.Add “ID”, “P-002”
parent2.Add “Name”, “インフラ移行PJ”
parent2.Add “Status”, “進行中”
rootCol.Add parent2
Set CreateMockHierarchyData = rootCol
End Function
‘ ヘルパー関数: 孫データの追加簡略化
Private Sub MultiAddGrandChild(ByRef col As Collection, ByVal id As String, ByVal name As String, ByVal status As String)
Dim dict As Object
Set dict = CreateObject(“Scripting.Dictionary”)
dict.Add “ID”, id
dict.Add “Name”, name
dict.Add “Status”, status
col.Add dict
End Sub
—
4. コードの解説とプロの技術的ポイント
1. `Application.ScreenUpdating = False` との闘い
Word VBAで最もパフォーマンスを殺す要因は「画面の再描画」だ。特に表の挿入やセルの操作が発生するたびにWordはレイアウトを再計算しようとする。これを `Manual` および `False` に固定することで、数十倍から数百倍の高速化を実現している。
2. セルレンジの崩壊を防ぐ `Collapse` 戦略
`wsTable.Cell(rowIdx, 3).Range` に対して直接テキストを書き換えるのではなく、ネストテーブルを挿入する際には `.Collapse wdCollapseEnd` を用いて、セルの末尾（正確にはセル内の段落記号の手前）に新しいレンジの起点を作っている。これにより、親セルの構造を破壊せずに子テーブルを綺麗に収めることができる。
3. DictionaryとCollectionによる疎結合なデータ設計
Wordの表を操作するロジックと、流し込むデータを完全に分離している。これにより、将来的にAPI（Webサービス）や外部データベースからJSON形式でデータを受け取る仕様変更があったとしても、`CreateMockHierarchyData` の部分をAPIクライアントに置き換えるだけで、描画エンジン側を一切改修する必要がなくなる。
—
5. 現場で使える運用・保守の注意点
- テーブルスタイルの適用エラー対策:
Wordの言語環境（日本語版・英語版）によって、組み込みのテーブルスタイル名（例: `”グリッド (テーブル)”` や `”Table Grid”`）が異なる場合がある。もしスタイル適用でエラーが出る場合は、スタイル名を指定する代わりに、個別にボーダーや背景色を設定するロジックに変更すると環境依存を完全に排除できる。
- メモリリークの防止:
大量のDictionaryやCollectionを扱う場合、処理の終了時にオブジェクト変数を `Set … = Nothing` で明示的に解放するのがクリーンなコードの作法である（VBAのガベージコレクタは優秀だが、巨大なネスト構造では明示的な解放が安全）。
総括
Wordにおける複雑なレイアウトの自動化は、一見すると泥臭い作業に見えがちだ。しかし、今回紹介したような「データの抽象化」と「再帰的DOM操作」を組み合わせることで、どんなに複雑怪奇な多重ネスト構造であっても、美しく、かつ高速に完全自動化することが可能となる。
属人化しがちなドキュメント作成業務を、あなたの手でモダンなエンジニアリングへと昇華させてほしい。
