マクロ記録の壁を越えろ：Word VBAにおける「結合セル」という迷宮の攻略法
こんにちは。業務自動化の世界へようこそ。
「マクロの記録」を使って、ボタン一つで表が作れるようになった。そんな段階から一歩踏み出し、「もっと複雑な、人間が判断するような動きをさせたい」と願い始めたあなた。今、あなたは非常に素晴らしい成長の分岐点に立っています。
しかし、Word VBAの世界には、初学者が必ずと言っていいほど突き当たる「見えない壁」が存在します。それが、「結合されたセル（Merged Cells）」です。
Excelの表であれば、セルは常に「行」と「列」の座標（A1, B2など）で管理されています。しかし、Wordの表は違います。Wordの表は、より自由で、より複雑な「オブジェクトの集合体」なのです。
今日は、その迷宮を解き明かし、「結合されているセルだけを特定して、背景色を変える」という、実務で即戦力となるテクニックを伝授しましょう。ここをクリアすれば、あなたのVBAスキルは「記録レベル」から「設計レベル」へと昇華します。
1. なぜ「マクロの記録」では結合セルを扱えないのか？
まず、本質的な話をしましょう。なぜ結合セルが難しいのか。
マクロの記録や、初心者が書きがちなコードは、以下のような構造をしています。
`For i = 1 To Table.Rows.Count`（行を順番に見ていく）
`For j = 1 To Table.Columns.Count`（列を順番に見ていく）
これ、実は結合セルがある表に対して実行すると、高確率で「実行時エラー 5941」を吐いて止まります。
致命的なエラーの正体
Wordの表において、セルを結合すると「その行には存在しないはずの列」や「その列には存在しないはずの行」が発生します。
例えば、2行目のセルが縦に結合されている場合、プログラムが「2行目の3列目を見ろ！」と命令しても、Wordは「そんな場所（インデックス）は存在しません！」と怒ってしまうのです。
これが、Word VBAにおける「オブジェクトのライフサイクルと構造」の罠です。
2. 攻略の鍵：`Range.Cells` と `Information` プロパティ
この迷宮を突破するための武器は2つあります。
1. `Table.Range.Cells` を使う
「行」や「列」という概念を一度捨てましょう。表に含まれるすべての「セル」を、一つの大きなリスト（コレクション）として一気に取得するのです。これなら、行や列の欠落を気にせずに済みます。
2. `Information(wdWithMerge)` プロパティ
各セルが「結合されているかどうか」を判定する、魔法の判定基準です。
これらを組み合わせることで、私たちは「迷路を歩く」のではなく、「迷路全体を俯瞰して、特定の性質を持つセルだけを指差す」ことができるようになります。
3. 実戦コード：結合セルを検知して色を塗る
それでは、プロフェッショナルが現場で使うレベルの、堅牢なコードを見ていきましょう。
Sub HighlightMergedCells()
' ============================================================
' 目的: 表内の結合されたセルを特定し、背景色を黄色に変更する
' 対象: 文書内のすべての表
' 設計思想: 行・列インデックスに依存せず、Cellコレクションを走査
' ============================================================
Dim doc As Document
Dim tbl As Table
Dim cl As Cell
Dim targetColor As WdColor
Set doc = ActiveDocument
targetColor = wdYellow ' 塗りつぶす色を指定
' 1. 文書内の表を一つずつ処理
For Each tbl In doc.Tables
' 2. 表の「セル」を直接ループする（行・列のループはエラーの元！）
' tbl.Range.Cells を使うことで、結合によるインデックスエラーを回避
For Each cl In tbl.Range.Cells
' 3. セルが結合されているかどうかを判定
' wdWithMerge プロパティは、そのセルが結合の一部である場合に True を返す
If cl.Information(wdWithMerge) Then
' 4. 結合セルであれば背景色を変更
' エラーハンドリング: 稀に特殊なセルで操作が拒否される場合に備える
On Error Resume Next
cl.Shading.BackgroundPatternColor = targetColor
On Error GoTo 0
Else
' 結合されていない（単一の）セルの場合は色を消す（初期化）
cl.Shading.BackgroundPatternColor = wdColorAutomatic
End If
Next cl
Next tbl
MsgBox "解析と装飾が完了しました！", vbInformation, "完了"
End Sub4. コードの深層解説：エンジニアの視点
このコードを単なる「コピペ用」で終わらせてはいけません。なぜこの書き方をしたのか、その意図（アーキテクチャ）を理解してください。
① なぜ `For Each cl In tbl.Range.Cells` なのか？
これが最大のポイントです。
`tbl.Rows(i).Cells(j)` という書き方は、「i行目のj列目」という座標（住所）を指定しています。しかし、結合セルがある世界では、住所が破壊されています。
一方、`tbl.Range.Cells` は、表の中に存在する「セルという物体そのもの」を一つずつ取り出します。物体そのものを直接扱うため、住所がどうなっていようが、エラーにならずに処理できるのです。
② `On Error Resume Next` の使い所
「エラーを無視するなんて、行儀が悪いのでは？」と思うかもしれません。しかし、プロの現場では「予測可能なエラーへの防御」としてこれを使います。
Wordの表には、非常に複雑な書式設定（保護されたセルや、特殊な図形が絡むセル）が含まれることがあります。それらに遭遇した際にプログラム全体をクラッシュさせず、次のセルへ進むための「安全装置」として配置しています。
③ パフォーマンスへの配慮
もし、この処理を数千ページの文書に対して行うなら、`ScreenUpdating = False`（画面更新の停止）を追加するのが定石です。しかし、中規模の帳票であれば、このコードのままでも十分に高速に動作します。
5. まとめ：次なるステップへ
お疲れ様でした。あなたは今、Word VBAにおける最も厄介な問題の一つである「結合セルの扱い」をマスターしました。
- 行・列のループは、結合セルがあると死ぬ。
- `Range.Cells` で「セルそのもの」をループせよ。
- `Information(wdWithMerge)` が真実を教えてくれる。
この3点を胸に刻んでおけば、今後どんな複雑な帳票を渡されても、冷静に対処できるはずです。
次は、この「特定したセル」に対して、結合されている範囲の合計値を計算したり、特定のテキストを流し込んだりする工程に挑戦してみてください。その時、あなたはもう「マクロの記録」の利用者ではなく、「業務自動化エンジニア」なのです。
応援しています。また次の技術講義でお会いしましょう！
