【実務・中級編】【中級者向け】Word表のセル内にある「表の中の表（ネストされた表）」を再帰的に走査する – Word VBA解析バイブル

Word VBA

2026.11.12

階層構造の深淵へ：Word VBAにおける「再帰的テーブル走査」の設計思想

階層構造の深淵へ：Word VBAにおける「再帰的テーブル走査」の設計思想

業務自動化の現場において、我々が直面するドキュメントは、決して整然としたデータ構造ではない。クライアントから渡されるWordファイルは、しばしば「表の中に表がある」という、カオスなネスト（入れ子）構造を持っている。

多くの初級エンジニアは、`For Each tbl In ActiveDocument.Tables` という単純なループで解決を図ろうとする。しかし、これでは「トップレベルの表」しか捕捉できない。ネストされた深層に眠るデータは、彼らのロジックの網をすり抜け、結果として不完全なデータ抽出を招く。

本稿では、複雑なドキュメント構造を完全に掌握するための「再帰的走査アルゴリズム」を解説する。単なるコードの提示ではない。いかにしてバグを排除し、保守性の高い、プロダクションレベルの設計を構築するか。そのアーキテクチャを伝授する。

1. なぜ「単純なループ」では敗北するのか

Wordのオブジェクトモデルにおいて、`Table` オブジェクトは独立した存在ではなく、`Cell` オブジェクトの `Range` プロパティの中に包含され得る。

もし、あなたが以下のような設計をした場合、そのツールは実務では「使い物にならない」と断じざるを得ない。

フラットなループ設計: `ActiveDocument.Tables` だけを回す。→ ネストされた表を無視する。
インデックス指定（i, j）によるセル走査: `Table.Cell(r, c)` を使用する。→ 結合されたセル（Merged Cells）に遭遇した瞬間、実行時エラーでクラッシュする。

プロフェッショナルなエンジニアは、構造を「リスト」ではなく「ツリー（木構造）」として捉える。これこそが、再帰（Recursion）が必要な理由だ。

2. 堅牢な再帰走査のアーキテクチャ設計

設計の要諦は、「走査（Traversal）」と「処理（Processing）」の分離である。

表を探索するロジックと、抽出したテキストや数値をどう扱うか（Excelへ書き出すのか、DBへ送るのか）というロジックを混同してはならない。これらを結合させると、抽出条件が変わるたびに再帰ロジックまで修正することになり、保守性が著しく低下する。

設計の3原則

1. `For Each` によるセル走査: 結合セルのエラーを回避するため、インデックス指定ではなく、`Table.Range.Cells` を直接反復する。
2. 再帰呼び出しのトリガー: セルの `Range.Tables.Count` を監視し、1以上であれば自分自身を再度呼び出す。
3. 深さ（Depth）の管理: ログ出力やデータ構造の識別のために、現在の階層（Depth）を引数として渡す。

3. プロダクション・コード例

以下に、実務でそのまま利用可能なレベルの、堅牢な再帰走査モジュールを示す。

Option Explicit

''' <summary>
''' 業務自動化エンジニア向け：ネストされた表を完全に走査するメインルーチン
''' </summary>
Public Sub ExecuteNestedTableExtraction()
    Dim doc As Document
    Set doc = ActiveDocument
    
    Dim tbl As Table
    Dim depth As Integer
    
    On Error GoTo ErrorHandler
    
    Debug.Print "--- 走査開始 ---"
    
    ' 1. ドキュメント内のすべてのトップレベルの表に対して走査を開始
    For Each tbl In doc.Tables
        ' 再帰呼び出しの開始（初期階層は0）
        RecursiveTraverseTable tbl, 0
    Next tbl
    
    Debug.Print "--- 走査完了 ---"
    MsgBox "データの抽出が完了しました。", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
End Sub

''' <summary>
''' 表を再帰的に走査するコアエンジン
''' </summary>
''' <param name="targetTable">走査対象のTableオブジェクト</param>
''' <param name="currentDepth">現在のネスト階層</param>
Private Sub RecursiveTraverseTable(targetTable As Table, currentDepth As Integer)
    Dim row As Row
    Dim cell As Cell
    Dim nestedTable As Table
    Dim cellText As String
    
    ' 階層の可視化（デバッグ用）
    Debug.Print String(currentDepth * 2, " ") & "[Table] Level: " & currentDepth
    
    ' 2. セル走査の鉄則：インデックスではなく For Each を使用する
    ' これにより、結合セル(Merged Cells)による実行時エラーを回避する
    For Each cell In targetTable.Range.Cells
        
        ' セル内のテキストを取得（末尾の制御文字を除去）
        cellText = CleanCellText(cell.Range.Text)
        
        ' 3. データ処理の分離（ここではデバッグ出力のみ）
        ' 実務ではここで、値を配列に格納したり、外部クラスへ渡したりする
        ProcessCellData cellText, currentDepth
        
        ' 4. 再帰のトリガー：セル内にさらに表が存在するか確認
        If cell.Range.Tables.Count > 0 Then
            ' セル内の最初の表を対象に、自分自身を呼び出す
            ' ※1つのセルに複数の表が入るケースは稀だが、設計上は最初の1つを起点とする
            Set nestedTable = cell.Range.Tables(1)
            RecursiveTraverseTable nestedTable, currentDepth + 1
        End If
    Next cell
End Sub

''' <summary>
''' セル内のテキストからWord特有の制御文字を除去する
''' </summary>
Private Function CleanCellText(rawText As String) As String
    ' Wordのセル末尾には Chr(13) & Chr(7) が必ず含まれるため、これを除去
    Dim cleaned As String
    cleaned = Replace(rawText, Chr(13) & Chr(7), "")
    CleanCellText = Trim(cleaned)
End Function

''' <summary>
''' 抽出したデータを処理する「ドライバー」関数
''' </summary>
Private Sub ProcessCellData(text As String, depth As Integer)
    ' ここに「抽出したデータをどう扱うか」のロジックを集約する
    ' 例：Excelへの書き出し、構造化テキストへの変換など
    If text <> "" Then
        Debug.Print String(depth * 2, " ") & "  [Data] " & text
    End If
End Sub

4. 実務における「落とし穴」と回避策

このコードを実戦投入する際、リーダーとして君たちに伝えておきたい注意点が3点ある。

① 結合セルとインデックスの罠

前述の通り、`targetTable.Cell(i, j)` というアクセスは、結合セルが存在する場合に `エラー 5941: 指定したセルが見つかりません` を吐いて停止する。`For Each cell In targetTable.Range.Cells` を使うことは、単なるテクニックではなく、堅牢なコードを書くための必須要件である。

② パフォーマンスとメモリ管理

再帰呼び出しは、階層が深くなればなるほどスタックメモリを消費する。Wordの文書構造において、数十階層ものネストは現実的ではないが、数千行の巨大な表を扱う場合は注意が必要だ。
大量のデータを扱うなら、`ProcessCellData` 内で直接ファイルに書き込むのではなく、一旦 メモリ上の配列（Variant Array）や、Dictionaryオブジェクトに格納し、最後に一括で書き出す 設計にせよ。I/O（入出力）回数を減らすことが、パフォーマンス向上の黄金律だ。

③ 外部連携（Excel/DB）のライフサイクル

もし、抽出したデータをExcelへ流し込む設計にするなら、`ExecuteNestedTableExtraction` の中でExcelアプリケーションを起動し、その参照を保持せよ。再帰関数の中で毎回 `CreateObject(“Excel.Application”)` を実行するなどという愚行は、絶対に避けるべきだ。それはリソースの枯渇を招き、システムを不安定にする。

結論

Word VBAにおける高度な自動化とは、単に「動くコード」を書くことではない。「予期せぬ構造（結合セル、ネスト）に対して、いかに優雅に、かつ壊れずに振る舞えるか」という設計能力のことである。

再帰を用いたツリー走査をマスターしたとき、君たちのツールは単なるマクロを超え、プロフェッショナルな「業務基盤」へと昇華する。

Stay Sharp. Build Robust.