【入門編】Word VBAで『表（Table）』を操作する：セル結合・分割時のRange制御とエラーハンドリング – Word VBA解析バイブル

Word VBAで「表（Table）」を完全に手なずける：結合セルの罠と、絶対に落ちないRange制御・エラーハンドリング

こんにちは！今日もVBAのコードを書いていますか？

「Excel VBAならお手の物なんだけど、Word VBAの『表（Table）』を操作しようとした瞬間、謎のエラーが多発して心が折れそうになった……」

そんな経験はありませんか？
実は、Wordの表オブジェクトは、Excelのセル（Grid）とは全く異なる思想で作られています。Excelの感覚のまま「行と列のインデックス」でアクセスしようとすると、セルが結合された瞬間にコードが悲鳴を上げて止まってしまうのです。

でも、安心してください。この記事を読めば、Wordの表が裏でどのようにデータを保持しているのか、その「本質」が完璧に理解できます。

「ここをクリアすれば、Word VBAの基本はバッチリですよ」

先輩エンジニアと一緒に、Word VBAの表操作をマスターする旅に出かけましょう！

—

1. なぜWordの表はエラーを吐くのか？Excelとの決定的な違い

まずは、私たちがよく遭遇するエラーの正体を突き止めましょう。
Excelのワークシートは、どこまで行っても整然とした「格子（グリッド）」です。セルを結合しても、裏側には「A1」「B1」といったアドレスが厳然として存在し続けます。

しかし、Wordの表は「段落（Paragraph）が格子状に並んだテキストの容れ物」に過ぎません。

結合した瞬間に「インデックス」は消滅する

Wordの表でセルを結合すると、裏側では何が起きているでしょうか？
次の図を見てください。

1行目の2列目と3列目を結合すると、Wordの内部では「1行目にはセルが2つしかない」という状態になります。
この状態で、うっかり以下のようなコードを実行するとどうなるでしょうか。

‘ 1行目の3番目のセルにアクセスしようとする
Dim myCell As Cell
Set myCell = myTable.Cell(1, 3)

結果は、非情にも 「エラー 5941: 指定されたコレクションのメンバーは存在しません」 となります。
存在しないアドレスを指定されたため、Wordは処理を継続できなくなってしまうのです。

さらに恐ろしいことに、縦方向に結合されたセルがある表に対して `myTable.Rows(1)` や `myTable.Columns(1)` を呼び出すと、「エラー 5991: テーブルに縦方向に割られたセルがあるため、このコレクションの各行にアクセスできません」 というエラーが発生し、行や列の単位での巡回すら拒否されます。

これが、Word VBAの表操作を難攻不落にしている最大の原因です。

—

2. 結合セルの罠を回避する「フラット・アプローチ（Cellsコレクション）」

では、結合や分割が入り乱れた複雑な表を、安全に、絶対にエラーを出さずに巡回するにはどうすればよいでしょうか？

解決策は、RowやColumnという「2次元の概念」を一度捨てて、「表に含まれるすべてのセルを1次元のストリームとして捉える」ことです。

実は、Wordの `Table` オブジェクトには、結合状態に関係なく、表に存在する全セルを「左上から右下に向けて」順番に格納している `Table.Range.Cells` という素晴らしいコレクションが存在します。

【フラット・アプローチのイメージ】
結合された表であっても、裏側では一列の数珠つなぎとして扱える！

[Cell 1] —> [Cell 2 (結合)] —> [Cell 3] —> [Cell 4] —> [Cell 5]

このコレクションを使えば、エラーを完全に回避しながら、すべてのセルに安全にアクセスできます。

全セルを安全に巡回する基本パターン

Dim targetCell As Cell

‘ Table.Range.Cells を使えば、結合セルがあっても絶対にエラーにならない！
For Each targetCell In myTable.Range.Cells
‘ ここで各セルのテキストを処理する
Debug.Print targetCell.Range.Text
Next targetCell

このアプローチを脳裏に刻み込んでおくだけで、あなたのWord VBAの安定性は劇的に向上します。

—

3. 実践：動的な行追加と「オブジェクト参照のゴースト化」を防ぐ技術

表の操作で次によく行うのが、「条件に応じて行を動的に追加・削除する」という処理です。
ここでもWord VBA特有の罠が潜んでいます。

「行を追加した瞬間、古いRangeは使い物にならなくなる」

Wordのメモリ管理において、`Range` や `Cell` は非常に繊細なオブジェクトです。
表に行を追加（`myTable.Rows.Add`）したり、セルを分割したりすると、Wordの内部でメモリの再配置が起こり、それまで掴んでいた `Cell` や `Range` のオブジェクト変数（参照）が「ゴースト（無効な参照）」になってしまうことがあります。

これを防ぐための鉄則は、「構造に変化を加えたら、必ずオブジェクト参照を再取得（Re-binding）する」ことです。

特に、セルの末尾にデータを書き込みながら行を増やしていくようなループ処理では、毎回「今どのセルを指しているか」を明示的に取得し直す設計にしましょう。

—

4. 【完全版】エラーを完璧にねじ伏せる表操作コード例

それでは、ここまでの知識をすべて詰め込んだ、堅牢で実践的なコードをご紹介します。
このコードは、以下の処理を安全に行います。

1. アクティブドキュメントの第1テーブルを安全に解析
2. 結合セルの存在をチェックし、適切にハンドリング
3. 表の末尾に安全に行を追加し、データを書き込む
4. 処理中のエラーを綺麗にトラップして、ユーザーに知らせる

開発の現場でそのままコピペして、カスタマイズのベースとしてお使いください！

Option Explicit

”’

”’ 結合セルを持つWordの表を安全に巡回し、末尾に行を動的追加するサンプル
”’

Public Sub SafeTableOperation()
On Error GoTo ErrorHandler

‘ 1. ドキュメント内に表が存在するかチェック
If ActiveDocument.Tables.Count = 0 Then
MsgBox “ドキュメント内に表が見つかりません。”, vbExclamation, “処理中断”
Exit Sub
End If

Dim targetTable As Table
Set targetTable = ActiveDocument.Tables(1)

‘ 2. 表の「結合状態」を事前にチェック
‘ UniformプロパティがFalseの場合、表に結合・分割セルが存在することを示します
Dim isComplexTable As Boolean
isComplexTable = Not targetTable.Uniform

If isComplexTable Then
Debug.Print “【警告】この表には結合または分割されたセルが存在します。安全モードで処理します。”
Else
Debug.Print “この表は均一なグリッド構造です。”
End If

‘ 3. Table.Range.Cells コレクションを使って安全にセルを巡回
Dim currentCell As Cell
Dim cellIndex As Long
cellIndex = 1

For Each currentCell In targetTable.Range.Cells
‘ Wordのセル内テキストの末尾には、セル区切り文字（Chr(13) & Chr(7)）が含まれているため、
‘ これを除去して純粋なテキストを取り出します。
Dim cellText As String
cellText = currentCell.Range.Text
cellText = Replace(cellText, Chr(13) & Chr(7), “”)

Debug.Print “Cell [” & cellIndex & “]: ” & cellText
cellIndex = cellIndex + 1
Next currentCell

‘ 4. 安全な行の追加処理
‘ 縦方向の結合がある場合、Table.Rows.Add はエラーになるため、
‘ エラートラップを仕掛けながら、最後のセルの直後に行を追加するアプローチを取ります。
Debug.Print “表の末尾に行を追加します…”

Dim lastCell As Cell
‘ 全セルコレクションから、物理的な最後のセルを取得
Set lastCell = targetTable.Range.Cells(targetTable.Range.Cells.Count)

‘ 最後のセルにカーソル（Selection）を移動させ、Tabキーをシミュレートして行を追加する
‘ この手法は、複雑な結合セルを持つ表でも最もエラーが起きにくい強力な裏技です。
lastCell.Range.Select
Selection.Collapse Direction:=wdCollapseEnd

‘ Tabキーを送信して新規行を挿入
Selection.InsertRowsBelow 1

‘ 5. オブジェクトを再取得（Re-binding）して、新しく追加された行にデータを書き込む
‘ 構造変化後は、必ず参照をリフレッシュします
Set targetTable = ActiveDocument.Tables(1)
Set lastCell = targetTable.Range.Cells(targetTable.Range.Cells.Count)

‘ 新しく増えた末尾のセルに文字を書き込む
lastCell.Range.Text = “新規追加セル”

MsgBox “表の安全な巡回と行の追加が完了しました！”, vbInformation, “成功”
Exit Sub

ErrorHandler:
‘ エラーが発生した場合は、原因を特定しやすいように詳細をイミディエイトウィンドウとダイアログに表示
Dim errorMsg As String
errorMsg = “エラーが発生しました。” & vbCrLf & _
“番号: ” & Err.Number & vbCrLf & _
“説明: ” & Err.Description

Debug.Print “[ERROR] ” & errorMsg
MsgBox errorMsg, vbCritical, “エラーハンドラー起動”
End Sub

コードの解説

1. `targetTable.Uniform` の評価:
表が「綺麗な格子状（均一）」か「結合・分割を含む複雑な状態」かを判定するプロパティです。これを最初にチェックすることで、処理の分岐や事前警告が可能になります。
2. セル区切り文字の除去:
Wordのセルから値を取得すると、末尾に `Chr(13) & Chr(7)` という特殊な改行コードが付いてきます。これを `Replace` で綺麗に掃除してあげるのが、Word VBAで文字列比較を行う際の必須テクニックです。
3. `InsertRowsBelow` による動的追加:
結合セルがある表に対して `Rows.Add` を実行すると即座にエラーになります。そこで、このコードでは「最後のセルを選択し、その下に物理的に行を追加する」という、Wordの挙動に寄り添った安全なアプローチを採用しています。

—

5. まとめ：Word VBAの表を支配したあなたへ

Word VBAの表操作で最も大切なこと。それは、「Excelの常識を一度忘れ、Wordのオブジェクト構造をリスペクトすること」です。

結合セルがあるなら `Table.Range.Cells` で1次元的に攻める
構造が変わったら、オブジェクト変数は必ず再取得（Re-binding）する
エラーハンドリング（`On Error GoTo`）をサボらず、Uniformプロパティで事前に表の健康状態をチェックする

この3つの原則を守るだけで、あなたの書くWordマクロは、どんな複雑な文書が来てもビクともしない「極めて堅牢なプロフェッショナル・ツール」へと進化します。

「ここをクリアすれば、Word VBAの基本はバッチリですよ。自信を持ってコードを書いていってくださいね！」

何か分からないことがあれば、いつでもコードの設計図を見直してみましょう。一歩ずつ、確実に進んでいきましょうね。応援しています！