【実務・中級編】【中級者向け】表のセル結合状態を解析し、結合されているセルのみを特定して背景色を変える – Word VBA解析バイブル

Word VBA

2026.10.31

壊れやすい「表」を支配せよ：Word VBAにおける結合セル解析の極致

壊れやすい「表」を支配せよ：Word VBAにおける結合セル解析の極致

業務自動化の現場において、Wordの「表（Table）」は最も強力な武器であり、同時に最も制御困難な「時限爆弾」でもある。

特に、人間が視覚的な見やすさを求めて行った「セルの結合」は、プログラムから見れば「論理的なグリッド構造の破壊」を意味する。多くの開発者が、結合セルが含まれる表をループ処理しようとして、`’指定したセルが存在しません’` という無慈悲な実行時エラー（エラー番号 5941）に直面し、設計の甘さを痛感することになる。

本記事では、単に「動くコード」を書くのではない。結合セルの構造を論理的に解析し、堅牢かつ高速に、特定のセルを特定・装飾するためのプロフェッショナルな設計思想を伝授する。

1. なぜあなたのコードは「結合セル」で死ぬのか

多くの初中級者が陥る罠は、表を「行(Rows) × 列(Columns)」という単純な二次元配列のイテレーションで処理しようとすることだ。

' 【アンチパターン：設計レベルの欠陥】
For r = 1 To tbl.Rows.Count
    For c = 1 To tbl.Columns.Count
        ' 結合セルがあると、ここで「存在しないインデックス」を叩いてクラッシュする
        tbl.Cell(r, c).Shading.BackgroundPatternColor = wdColorYellow
    Next c
Next r

Wordの内部モデルにおいて、セルが結合されると、それまで存在していた「座標（Row, Column）」のいくつかが消失する。結合された領域は、一つの大きなセルとして扱われるが、その「欠落した座標」にアクセスしようとした瞬間、VBAエンジンは例外を投げる。

プロフェッショナルな設計者は、「グリッドが壊れていること」を前提としたナビゲーションを選択しなければならない。

2. アーキテクチャの決定：`MergeArea` プロパティの活用

結合セルを特定するための最短かつ最も堅牢なルートは、`Cell` オブジェクトが持つ `MergeArea` プロパティ を利用することだ。

`MergeArea` は、そのセルが属する「結合された領域全体」を指す `Range` オブジェクトを返す。

単一セルの場合：`MergeArea.Rows.Count` は 1、`Columns.Count` は 1 である。
結合セルの場合：`Rows.Count` または `Columns.Count` が 1 より大きくなる。

この論理的差異を利用することで、エラーを回避しながら、結合状態のみを正確に抽出できる。

3. プロダクション・クオリティのコード実装

以下に、実務に投入可能なレベルのコードを示す。単なるループではなく、エラーハンドリング、オブジェクトの検証、そしてパフォーマンスを考慮した設計を行っている。

Option Explicit

''' <summary>
''' 表内の結合セルを特定し、その背景色を変更する。
''' 結合されていない単一セルはスキップする。
''' </summary>
''' <param name="targetTable">解析対象のWord Tableオブジェクト</param>
Public Sub HighlightMergedCells(ByRef targetTable As Word.Table)
    ' 1. ガード句：オブジェクトの有効性チェック
    If targetTable Is Nothing Then
        Debug.Print "Error: Target table is null."
        Exit Sub
    End If

    On Error GoTo ErrorHandler
    
    ' 高速化のための設定（画面更新の停止はWordでは限定的だが、意識は持つべき）
    ' ※Word VBAではExcelほど劇的な効果はないが、大規模処理では重要
    
    Dim rowIdx As Long
    Dim colIdx As Long
    Dim currentCell As Word.Cell
    Dim mArea As Word.Range
    
    ' 2. 行方向の走査
    ' 結合セルがあると Columns.Count が行ごとに異なる場合があるため、
    ' 直接的なインデックス指定ではなく、行内のセル集合を辿るのが定石
    For rowIdx = 1 To targetTable.Rows.Count
        
        ' 行内の全セルをループ（この方法なら、インデックスエラーを回避しやすい）
        ' ただし、結合セルを含む行の Cells コレクションは非常にデリケートである
        ' ここでは、最も安全な「行の各セルを1つずつ走査する」手法をとる
        
        On Error Resume Next ' セルアクセス失敗に備える
        Dim cellInRow As Word.Cell
        Set cellInRow = Nothing
        
        ' 行内のセルを走査（Row.Cells を使用）
        For Each cellInRow In targetTable.Rows(rowIdx).Cells
            
            If Not cellInRow Is Nothing Then
                ' 3. 結合状態の解析
                ' MergeAreaが「自身のセル」よりも広い範囲を持っているか判定
                Set mArea = cellInRow.MergeArea
                
                ' 結合されている条件：行数 > 1 または 列数 > 1
                If mArea.Rows.Count > 1 Or mArea.Columns.Count > 1 Then
                    ' 4. 装飾の実行
                    ' 結合セルの「最初のセル」だけを装飾対象とする（重複処理を避ける）
                    ' cellInRow.Range.Start が mArea.Start と一致する場合のみ実行
                    If cellInRow.Range.Start = mArea.Start Then
                        cellInRow.Shading.BackgroundPatternColor = wdColorYellow
                        ' デバッグ出力
                        Debug.Print "Merged Cell Found at Row: " & rowIdx
                    End If
                End If
            End If
        Next cellInRow
        On Error GoTo ErrorHandler
        
    Next rowIdx

    MsgBox "結合セルの解析および装飾が完了しました。", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました。" & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Description: " & Err.Description, vbCritical
    Resume Next
End Sub

''' <summary>
''' 実行用エントリーポイント
''' </summary>
Sub ExecuteDemo()
    Dim doc As Word.Document
    Dim tbl As Word.Table
    
    Set doc = ActiveDocument
    
    ' 文書内の最初の表を対象とする（実務では選択範囲や特定のタグで特定する）
    If doc.Tables.Count > 0 Then
        Set tbl = doc.Tables(1)
        Call HighlightMergedCells(tbl)
    Else
        MsgBox "文書内に表が見つかりません。", vbExclamation
    End If
End Sub

4. チーフアーキテクトの視点：設計の急所

このコードを読み解く上で、重要な設計思想が3つある。

① 「重複装飾」の回避

結合されたセルは、その領域内のすべてのセルから `MergeArea` を参照できる。もし単純に全セルに対して色を塗ると、結合されたセル（例えば3セル結合）に対して、3回同じ色の塗りつぶし命令が走ることになる。これは計算リソースの無駄であり、大規模な帳票ではパフォーマンス低下を招く。
`If cellInRow.Range.Start = mArea.Start Then` という条件を入れることで、「結合領域の左上端のセル」のみを処理対象とするという論理的なフィルタリングを行っている。

② `Rows(i).Cells` による走査の選択

`Table.Cell(r, c)` という絶対座標指定は、結合セルが存在する環境下では極めて脆弱だ。一方で、`Table.Rows(r).Cells` という「行に属するセルの集合」を列挙するアプローチは、Wordが管理している「存在するセル」のみを安全に取得できるため、堅牢性が格段に向上する。

③ 外部データ連携時の注意点

もしこの処理の前後で、Excelやデータベースから値を流し込む設計にするなら、「結合状態の解析」を先に行うべきだ。
値の流し込み（`cell.Range.Text = “…”`）を先に行い、その後に構造を解析しようとすると、データの型や改行コードの影響で、Wordのオブジェクトモデルが予期せぬ挙動を示すことがある。「構造（Structure）を確定させ、次に値（Data）を流し込む」。これが自動化エンジニアの鉄則である。

結論

Word VBAにおける表の操作は、単なるプログラミングではなく、「崩れた構造をいかに論理的に再構築するか」というパズルに近い。

`MergeArea` を使いこなし、オブジェクトのライフサイクルと構造の不整合を予測したコードを書くこと。それが、バグのない、メンテナンス性の高いプロダクションツールを生む唯一の道である。