【入門編】【中級者向け】表の結合セルを解除した際に発生するレイアウト崩れをVBAで自動補正する – Word VBA解析バイブル

Word VBA

2026.11.08

【Word VBA極意】結合解除の罠を回避せよ：崩れた表レイアウトを「構造」から再構築する技術

【Word VBA極意】結合解除の罠を回避せよ：崩れた表レイアウトを「構造」から再構築する技術

こんにちは。自動化の世界へようこそ。

Wordの「表」を操作しているとき、あなたは一度くらい「結合を解除した瞬間、表のレイアウトがバラバラに崩れ去る」という絶望を味わったことはありませんか？

マクロの記録機能を使って「セルの結合解除」を記録し、それを実行してみる。しかし、次に列幅を調整しようとした瞬間、`実行時エラー ‘5941’: 指定したコレクションにオブジェクトが含まれていません。` という無慈悲なエラーメッセージが画面を覆う……。

これは、あなたが悪いのではありません。Word VBAにおける「Tableオブジェクト」の、少し特殊で、かつ非常に強力な性質を知らないだけなのです。

今日は、中級者への階段を駆け上がるために避けては通れない、「結合セルの解除に伴う構造的崩壊」をVBAでスマートに修復する技術を伝授しましょう。

1. なぜ「結合解除」はレイアウトを破壊するのか？

まず、エンジニアとして「なぜ」を理解しましょう。ここが、単なる「コピペ使い」と「アーキテクト」を分ける境界線です。

Wordの表は、Excelのような厳格な「行と列の行列（マトリックス）」ではありません。Wordの表は、より柔軟な「セルの集合体」です。

致命的な落とし穴：`Columns`コレクションの正体

多くの初学者は、表の列を操作するときに `Table.Columns(i)` を使います。しかし、ここに罠があります。

Wordにおいて `Table.Columns` は、「すべての行において、同じ位置にあるセルの境界線」を仮想的に結んだものです。
結合セルがある表では、この「境界線」が一定ではありません。結合を解除した直後の表は、内部的なセルのインデックス（番号）と、視覚的な列の概念が一致しなくなります。

この状態の表に対して `Table.Columns(i)` を呼び出すと、Wordは「どの境界線を基準にすればいいのか分からない！」と混乱し、エラーを吐き出すのです。これが、レイアウト崩れとエラーの正体です。

2. 解決への設計思想：Row-First（行優先）アプローチ

崩れた構造を直すために、私たちは「列（Columns）」という不安定な概念を一旦捨てなければなりません。

代わりに、私たちが信頼すべきは「行（Rows）」と、その中にある「セル（Cells）」です。

【修復ロジックの戦略】
1. 表全体の総幅を取得する（崩れていても、表自体の幅は分かっている）。
2. 各行をスキャンし、その行に含まれるセル数をカウントする。
3. 「理想的な列数」を定義、あるいは最大セル数に基づいて計算する。
4. 各行のセルに対して、計算した幅を強制的に再割り当てする。

この「上から下へ、行ごとにセルを再定義していく」アプローチをとることで、Wordの内部的な混乱をリセットし、見た目を整えることができます。

3. 実践：レイアウト修復スクリプト

それでは、魂を込めて書いたコードを見ていきましょう。このコードは、結合解除によってバラバラになった列幅を、表全体の幅に合わせて「等間隔」に再配置するものです。

Option Explicit

''' <summary>
''' 結合解除などで崩れた表の列幅を、行ごとのセル数に基づいて自動補正する。
''' </summary>
Sub RestoreTableLayout()
    Dim targetTable As Table
    Dim targetRow As Row
    Dim totalTableWidth As Single
    Dim maxCellCount As Integer
    Dim i As Integer
    Dim cellCountInRow As Integer
    Dim targetCellWidth As Single

    ' 1. カーソル位置にある表を対象とする
    If Selection.Information(wdWithInTable) = False Then
        MsgBox "表の中にカーソルを置いて実行してください。", vbExclamation
        Exit Sub
    End If
    
    Set targetTable = Selection.Tables(1)
    
    ' 画面更新を停止してパフォーマンスを向上させる（プロの嗜み）
    Application.ScreenUpdating = False
    
    On Error GoTo ErrorHandler

    ' 2. 表全体の幅を取得（ポイント単位）
    ' 結合解除によってColumnsが使えない場合があるため、
    ' PreferredWidthを利用して表の「器」の大きさを把握する
    totalTableWidth = targetTable.PreferredWidth
    
    ' もしPreferredWidthが0（自動調整モード）の場合は、
    ' 表の実際の幅を計算するロジックが必要だが、ここでは基本に忠実に。
    If totalTableWidth <= 0 Then
        ' 簡易的に、表の全セルの幅の合計から推測するか、
        ' もしくは固定値を与える設計にする（今回はエラー回避を優先）
        totalTableWidth = CentimetersToPoints(15) ' デフォルト値として15cmを想定
    End If

    ' 3. 最も多くのセルを持っている行を探し、列の基準とする
    maxCellCount = 0
    For Each targetRow In targetTable.Rows
        cellCountInRow = targetRow.Cells.Count
        If cellCountInRow > maxCellCount Then
            maxCellCount = cellCountInRow
        End If
    Next targetRow

    ' 4. レイアウトの再構築
    ' 「列」ではなく「行の中のセル」を直接操作するのが成功の鍵
    For Each targetRow In targetTable.Rows
        cellCountInRow = targetRow.Cells.Count
        
        ' その行のセル1つあたりの理想的な幅を計算
        ' ※ここでは単純に「その行のセル数」で割るロジックを採用
        ' これにより、行ごとにセル数が違っても、表の幅を使い切るように補正される
        targetCellWidth = totalTableWidth / cellCountInRow
        
        For i = 1 To cellCountInRow
            With targetRow.Cells(i)
                ' セルの幅を固定設定にする
                .PreferredWidthType = wdPreferredWidthPoints
                .PreferredWidth = targetCellWidth
            End With
        Next i
    Next targetRow

    ' 5. 仕上げ：表の自動調整を「ウィンドウ幅に合わせる」に設定して微調整
    targetTable.AllowAutoFit = True
    targetTable.AutoFitBehavior (wdAutoFitWindow)

    Application.ScreenUpdating = True
    MsgBox "レイアウトの修復が完了しました！", vbInformation
    Exit Sub

ErrorHandler:
    Application.ScreenUpdating = True
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub

4. コードの深淵：ここがプロの設計ポイント

このコードには、単なる「動くマクロ」を超えた、3つの重要な設計思想を込めています。

① `Application.ScreenUpdating` の制御

大規模な表に対してループ処理を行うと、画面の描画（リペイント）に膨大なリソースが割かれます。これを `False` にすることで、処理速度を劇的に向上させ、かつ画面のチラつきを防いでいます。これは業務自動化における「作法」です。

② `Columns` を回避した「Row-First」設計

前述の通り、`targetTable.Columns(i)` を使わずに、`targetRow.Cells(i)` を使っています。これにより、結合解除によって「列の概念が壊れた表」に対しても、エラーを出さずに確実にアクセスできます。

③ `PreferredWidthType` の明示的指定

Wordのセル幅には「自動（Auto）」や「パーセント（%）」など複数のモードがあります。VBAで値を代入する際、モードが不明確だと意図しない挙動をすることがあります。`wdPreferredWidthPoints`（ポイント指定）を明示することで、計算した数値がそのまま適用されるよう「型」を固定しています。

5. 最後に：一歩先へ進むあなたへ

「マクロの記録」で作成したコードは、いわば「レシピの書き写し」です。しかし、今回のように「なぜエラーが出るのか」「どうすれば構造的に解決できるのか」を考えることは、「料理の科学」を学ぶことに似ています。

Word VBAの世界は、オブジェクトの階層構造（Object Model）を正しく理解すれば、これほど強力な武器はありません。

今回の「行優先アプローチ」をマスターすれば、結合セルが複雑に絡み合った、いわゆる「スパゲッティ・テーブル」も恐れることはありません。

ここをクリアすれば、Word VBAの基本はバッチリですよ。
次は、さらに複雑なデータの流し込みや、API連携による外部データとの同期に挑戦してみましょう。応援しています！