Word VBAの深淵へようこそ：結合セルという「罠」を回避し、美しい連番を刻む技術
「マクロの記録」で書いたコードが、いざ実務の複雑な文書に適用した途端、エラーを吐いて止まってしまう——。
そんな経験はありませんか？
もしあなたが今、「表の中に結合されたセルがあって、プログラムが途中で止まってしまう」「連番を振ろうとしたら、結合セルのせいで番号がズレる」という壁にぶつかっているなら、おめでとうございます。あなたは今、「単なる操作の自動化」から「オブジェクトの構造を理解するエンジニアリング」へと進化する境界線に立っています。
今日は、Word VBAにおける最大の難所の一つである「結合セル」をスマートに攻略し、視覚的に正しい連番を振るためのロジックを伝授しましょう。
1. なぜ「マクロの記録」では通用しないのか？
多くの初心者が最初に陥る罠、それは `Rows(i).Cells(j)` という「座標指定」への依存です。
Excel VBAであれば、セルは常にきれいな格子状のグリッド（座標）を持っています。しかし、Wordの表は違います。Wordの表は、流動的なテキストの中に存在する「オブジェクトの集合体」です。
結合セルが引き起こす「崩壊」
セルを結合すると、Word内部のインデックス（番号）は、私たちの目に見える「行」や「列」の概念と一致しなくなります。
例えば、2行目のセルを結合した場合、VBAから見て「2行目の2列目」にアクセスしようとしても、「そんなセルは存在しません（エラー）」と言われてしまうのです。これが、`Rows(i).Cells(j)` が結合セルに対して極めて脆い理由です。
2. 伝説のアーキテクトが教える「回避策」
では、どうすればいいのか？ 答えはシンプルです。
「行や列という概念（Rows/Columns）を一度捨て、すべてのセル（Cells）を一つずつ走査する」 ことです。
Wordの `Table.Range.Cells` コレクションは、結合されたセルを「一つの独立したセル」として扱ってくれます。結合された範囲の「起点」となるセルだけを順番に訪問してくれるのです。これを利用すれば、エラーを回避しながら、確実にセルを操作できます。
実装の戦略
1. `For Each` 文を使って、表の中のすべてのセルを一つずつチェックする。
2. そのセルが「自分が連番を書き込みたい列（例：1列目）」かどうかを判定する。
3. 条件に合致したときだけ、カウンターを増やして番号を書き込む。
3. 【実践】結合セルを考慮した連番付与コード
さあ、実際に動くコードを見てみましょう。このコードは、表の1列目に、結合セルを無視して「見た目通りの行番号」を振るものです。
Sub InsertVisualSequenceNumbers()
' ==========================================================
' 目的: 表の1列目に、結合セルを考慮した連番を振る
' 特徴: Rows(i)を使用せず、Cellsの集合を走査することでエラーを回避
' ==========================================================
Dim targetTable As Table
Dim targetCell As Cell
Dim rowCounter As Long
' 現在のカーソル位置にある表を対象とする
' (表がない場所で実行するとエラーになるため、実務では判定を入れるのがプロ)
If Selection.Information(wdWithInTable) = False Then
MsgBox "表の中にカーソルを置いてから実行してください。", vbExclamation
Exit Sub
End If
Set targetTable = Selection.Tables(1)
' カウンターの初期化
rowCounter = 0
' --- ここからがプロのロジック ---
' 1. 表内の「すべてのセル」を一つずつ巡回する
' これにより、結合セルによってRows(i)が壊れていてもエラーにならない
For Each targetCell In targetTable.Range.Cells
' 2. そのセルが「1列目」であるかどうかを判定
' ColumnIndexプロパティを使うことで、視覚的な列の位置を特定できる
If targetCell.ColumnIndex = 1 Then
' 3. 1列目のセルが見つかったら、カウンターをインクリメント
rowCounter = rowCounter + 1
' 4. セルに番号を書き込む
' ※末尾の改行コード(Chr(13) & Chr(7))を考慮して、Textプロパティを操作
targetCell.Range.Text = rowCounter
End If
Next targetCell
MsgBox "連番の入力が完了しました！", vbInformation
End Sub4. コードの深層解説：なぜこれで動くのか？
このコードの肝は、`For Each targetCell In targetTable.Range.Cells` という書き方にあります。
なぜエラーにならないのか？
通常の `For i = 1 To Rows.Count` というループは、「i行目のj列目」という住所を指定してセルを探しに行きます。住所が結合によって消滅していると、迷子（エラー）になります。
一方、`For Each` は「この表の中にあるセルを、順番に全部教えてくれ」という命令です。Wordは「結合されたセルは、その範囲の先頭のセルとしてカウントする」というルールを持っています。そのため、`For Each` を使えば、結合された領域を一つのセルとして安全に通過できるのです。
`ColumnIndex` の魔法
結合セルがある表では、`Table.Columns(1)` という指定はエラーになることが多々あります。しかし、個別の `Cell` オブジェクトが持つ `ColumnIndex` プロパティは、そのセルが「見た目上、何列目にあるか」を正確に返してくれます。これこそが、結合セルを攻略する鍵です。
5. エンジニアからのアドバイス：次に進むために
今回のコードをマスターしたら、次は以下のステップに挑戦してみてください。
1. 書式の制御: `targetCell.Range.Font.Bold = True` を追加して、番号を太字にしてみる。
2. 条件分岐の追加: 「もしセルの中身が特定の文字だったら、連番を振らない」というロジックを加えてみる。
3. パフォーマンスの意識: 大規模な表（数百行以上）を扱う場合、処理速度を上げるために `Application.ScreenUpdating = False`（画面更新の停止）を組み込む。
最後に
プログラミングにおいて、エラーは敵ではありません。それは「オブジェクトの構造を理解せよ」というシステムからのメッセージです。
結合セルという壁を乗り越えた今のあなたは、もう昨日までの「マクロの記録」を使っていたユーザーではありません。オブジェクトのライフサイクルを理解し始めた、一人のエンジニアの入り口に立っています。
ここをクリアすれば、Word VBAの基本はバッチリですよ。自信を持って、次の自動化へ進んでください！
