こんにちは！ Word VBAの自動化の世界へようこそ。
マクロの記録ボタンを押して、ちまちま生成されるコードを眺める段階はもう卒業しましたか？
今回は、Word VBA中級者から上級者への登竜門であり、多くの開発者を泣かせてきたテーマ「表（Table）の予期せぬ分割とレイアウト崩れの自動修復」について解説します。
「セルに長いテキストを流し込んだら、勝手に表が真っ二つに割れてしまった……」
「行を追加しただけなのに、次のページに謎の空白行が生まれ、デザインがガタガタになった……」
こんな絶望的な瞬間、ありませんか？
大丈夫。Wordの表（Tableオブジェクト）のライフサイクルと、その裏にある「段落構造」の仕組みさえ分かれば、あなたのマクロは鉄壁の堅牢性を手に入れます。
今日は、優しく、そして本質的に、この厄介な現象をねじ伏せる方法をお伝えしていきますね。ここをクリアすれば、Word VBAの基本はバッチリですよ！
—
1. なぜWordの表は勝手に「分割」されるのか？（本質の理解）
Excelのシートと違い、Wordの表は「テキストの流し込み」や「行の挿入・削除」によって、Word自身が勝手にレイアウトを再計算し、意図せず表を分断（Split）する仕様を持っています。
特に、以下のシチュエーションで「表の分裂事故」が多発します。
1. セルの高さの自動調整（`AutoFit`）の暴走
2. 改ページ領域をまたいだ無理なセル拡張
3. `Split`メソッドの誤作動、またはセル結合時のレンジ破壊
「表が2つに割れてしまった」ということは、本来1つであるべきTableオブジェクトが、Wordの内部エンジンによって `Table` A と `Table` B という独立した2つの実体に引き裂かれた状態を意味します。これをプログラム側で検知し、元の1つの表に「再結合（自動修復）」してあげる必要があります。
—
2. 事故を検知し、自動修復するアーキテクチャ
今回は、テキストや数値を動的に流し込んだ後、表が意図せず分断されていないかをチェックし、もし分裂していればシームレスに結合し直す「自動修復プロシージャ」を組み上げます。
匠のテクニック：分割検知のロジック
Wordの表が縦に分割された場合、元の表の最終行と、分裂した新しい表の最初の行の間には、必ず「空の段落（Paragraph）」や「通常のテキスト段落」が挟まります。
つまり、「表の直後の段落が、次の表の直前の段落と地続きになっているか」を監視すれば、分裂を完璧に検知できるのです。
—
3. 実装コード：鉄壁の自動修復マクロ
以下のコードをVBAエディタ（Standardモジュール）に貼り付けてください。実務でそのまま使えるよう、細かくコメントを入れています。
Option Explicit
Sub RepairSplitTableDemo()
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ 【ステップ1】ベースとなる表を取得（ここでは文書中の最初の表を対象）
If targetDoc.Tables.Count = 0 Then
MsgBox “文書内に表が見つかりません。”, vbExclamation
Exit Sub
End If
Dim targetTable As Table
Set targetTable = targetDoc.Tables(1)
‘ 【ステップ2】意図しないデータ流し込みのシミュレーション
‘ ここではあえてセルに長文を入れ、レイアウトプレッシャーをかけます
On Error GoTo ErrorHandler
targetTable.Cell(1, 1).Range.Text = “ここに大量のテキストやデータを動的に流し込みます。” & _
“Wordの表は容量や高さ制限を超えると、勝手に表を分割しようとします。”
‘ 【ステップ3】「表の分裂事故」を検知して修復するコアロジック
Call AutoRepairTableSplit(targetDoc)
MsgBox “データの流し込みと表の構造チェックが完了しました！”, vbInformation
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End Sub
‘ ==============================================================================
‘ 匠の関数：文書内の分裂した表を検知し、自動的に1つに結合して修復する
‘ ==============================================================================
Sub AutoRepairTableSplit(doc As Document)
Dim i As Long
Dim currentTable As Table
Dim nextTable As Table
Dim rngCheck As Range
‘ 文書内の表を上から順に走査し、隣接する表が「元々は1つだったもの」か判定
‘ 注意: ループ内で表が結合されるため、カウンタの方向や数に配慮します
i = 1
Do While i < doc.Tables.Count
Set currentTable = doc.Tables(i)
Set nextTable = doc.Tables(i + 1)
' 【検知ロジック】
' currentTable の最終行のレンジ終了位置 と nextTable の開始位置の間に、
' 余計な段落（改行）が挟まっていないか、あるいは意図しない分割線があるかを確認。
' ここではシンプルに「表と表の間の段落数」をチェックします。
Dim rangeBetween As Range
Set rangeBetween = doc.Range( _
Start:=currentTable.Range.End, _
End:=nextTable.Range.Start - 1 _
)
' もし表の間に挟まった段落のテキストが空、あるいは改行のみの場合、
' それはWordが勝手に表を分割した「事故」であると判定します。
If Trim(rangeBetween.Text) = "" Or rangeBetween.Paragraphs.Count <= 1 Then
' 【修復アクション】
' 表と表の間の段落を削除することで、Wordの仕様上、2つの表が自動的に合体します。
rangeBetween.Delete
' 表が結合されたため、インデックスを戻さずに再度同じ位置（i番目）を検証する
' （テーブル数が減るため、iは進めないのがコツ）
Else
' 分割が意図的なもの（間に別の文章がある等）であれば、次の表へ進む
i = i + 1
End If
Loop
' 仕上げ：レイアウト崩れを防ぐため、表全体のアラインメントと幅を再適用
For i = 1 To doc.Tables.Count
With doc.Tables(i)
.AutoFitBehavior wdAutoFitFixed
.AllowAutoFit = False
End With
Next i
End Sub
---
4. コードのここがポイント！ 押さえておきたい極意
1. `doc.Range(Start, End)` による空間の特定
表の終わり（`Table.Range.End`）と、次の表の始まり（`Table.Range.Start`）の間にある「隙間」を正確にRangeオブジェクトとして切り取っています。この座標計算の正確さが、チーフアーキテクトとしてのこだわりです。
2. ループの罠を回避する `Do While`
表を結合すると、文書内の総テーブル数（`Tables.Count`）が減ります。通常の `For i = 1 to Tables.Count` を使うと、インデックスのズレで必ず「インデックスが有効範囲にありません」エラー（Runtime Error 5941）を踏みます。ここでは、条件を満たした時だけカウンタを進める `Do While` を採用し、安全性を極限まで高めています。
3. `wdAutoFitFixed` によるレイアウトの固定
自動修復の最後に、表の幅を固定モードに強制設定しています。これにより、ユーザーが後から勝手にセルの幅をいじったり、Wordが勝手に変形させたりするのを防ぐことができます。
—
5. まとめ
いかがでしたでしょうか？
「表が勝手に分割される」というWord VBA特有の悪夢も、裏側の段落構造とオブジェクトの境界をロジカルに監視・操作できれば、恐れるに足りません。
マクロの記録の先にある、「エラーを未然に防ぎ、自律的に修復する堅牢なプログラム」の心地よさを、ぜひあなたの開発現場でも体感してみてください。
それでは、次回の高度なVBA解説でお会いしましょう。あなたの自動化ライフが素晴らしいものになりますように！
