Word VBAの深淵：不規則な結合テーブルを「破壊せず」制圧する座標計算の極意
Wordの表操作において、多くのエンジニアが「セルの結合」という魔物に足元をすくわれる。
「`Cell(row, col)`で指定すれば動くはずだ」――そう信じて書いたコードが、結合されたセルに出会った途端に`Runtime Error 5941`（指定されたメンバーはコレクション内に存在しません）を吐き出す。これがWord VBAの洗礼だ。
Wordのテーブルオブジェクトモデルにおいて、セルは「行列の交差点」ではなく、「連続するメモリ上のオフセット」として管理されている。結合されたセルは、見た目上は一つの領域だが、内部的には「最初のセル」が他の領域を飲み込んでいる状態に過ぎない。
今日は、この複雑怪奇な構造を破壊せず、かつ堅牢にデータを流し込むための「座標計算ロジック」を伝授する。
—
1. なぜ「単純な行列指定」が失敗するのか
Wordの `Table.Cell(r, c)` は、結合されていない「完全な格子状」の表であれば正しく動作する。しかし、一度でもセルを結合すると、論理的な行列番号と、VBAが認識するインデックスが一致しなくなる。
例えば、1行目の1列目と2列目を結合した場合、2行目の1列目を指定しようとしても、Wordは「そこにはもうセルが存在しない」と判断するか、あるいは行の最大列数が変化したと誤認する。
解決の鉄則：論理座標から物理セルへの再マッピング
我々が目指すべきは、「見た目の行列（論理座標）」から「Wordが管理する物理的なセルオブジェクト」を逆引きするアルゴリズムの実装だ。
—
2. 堅牢な実装：物理セル特定アルゴリズム
以下のコードは、不規則な結合が含まれるテーブルに対しても、論理的な行・列を指定して安全に値を書き込むためのプロフェッショナルな設計である。
‘ — プロダクションレベルのセル書き込み関数 —
Public Sub UpdateTableCell(tbl As Table, targetRow As Long, targetCol As Long, textValue As String)
Dim cell As cell
Dim foundCell As cell
‘ 探索ロジック: 結合を考慮して、指定座標に合致するセルを特定する
‘ WordのTable.Cell(r, c)がエラーを吐く場合、Range経由の走査が最も堅牢
On Error Resume Next
Set foundCell = tbl.Cell(targetRow, targetCol)
On Error GoTo 0
‘ もしCell(r,c)で取得できない場合、結合の影響を受けているため、
‘ 全セルをイテレーションして座標を確認するロジックへ切り替える（要最適化）
If foundCell Is Nothing Then
Set foundCell = FindCellByLogicalCoordinates(tbl, targetRow, targetCol)
End If
If Not foundCell Is Nothing Then
‘ 既存のテキストをクリアし、新しいデータを挿入
‘ Range操作を行うことで、書式設定を維持したまま更新が可能
With foundCell.Range
.Text = textValue
‘ 必要に応じて .Font.Name 等の属性をここで調整
End With
Else
Err.Raise vbObjectError + 1000, “UpdateTableCell”, “指定された座標はテーブル範囲外です。”
End If
End Sub
Private Function FindCellByLogicalCoordinates(tbl As Table, r As Long, c As Long) As cell
‘ 結合セルを考慮した物理検索関数
‘ ※パフォーマンス重視のため、実際にはキャッシュ機構を併用すること
Dim cl As cell
For Each cl In tbl.Range.Cells
If cl.RowIndex = r And cl.ColumnIndex = c Then
Set FindCellByLogicalCoordinates = cl
Exit Function
End If
Next cl
End Function
—
3. 開発現場で踏むべき「落とし穴」と対策
① データベース連携時の型変換
データベース（Access/SQL Server）から値を流し込む際、`Null`値の処理を怠るとWordは即座にクラッシュする。
必ず `Nz()` 関数や `vbNullString` への明示的な変換を行うこと。
② 大規模な表に対するパフォーマンスの代償
`For Each` による全セル走査は、表が100行を超えると目に見えて遅くなる。
業務効率化ツールであれば、「一度走査した座標マップを連想配列（Dictionary）にキャッシュする」設計を強く推奨する。
- 初期化: 最初に全セルを走査し `Dictionary` に `Key: “r_c”, Value: CellObject` を格納。
- 更新: 2回目以降のアクセスは `Dictionary` から `Cell` を取得。
これだけで、処理速度は劇的に向上する。
③ 結合の「崩壊」を防ぐ
`cell.Range.Text = “値”` と書くと、稀にセルの末尾に存在する「セル終了マーク（`Chr(13) & Chr(7)`）」まで上書きし、表の構造が破壊されることがある。
必ず `.Text = Left(str, Len(str) – 1)` のように末尾を保護するか、Rangeの `Delete` / `Insert` を使い分けるのが「真のプロ」の作法だ。
—
結論：自動化は「構造」への敬意から始まる
Word VBAにおいて、「動けばいい」という考えは負債でしかない。
複雑な結合状態にある表を扱うということは、Wordというアプリケーションの「歪み」を理解し、それを数学的に補正する行為だ。
今回紹介した「論理座標から物理セルを逆引きする」というアプローチは、どんなに複雑な帳票であっても安定して動作する。まずはこのロジックをテンプレートとして、あなたのツールに組み込んでみてほしい。
コードは単に動くものではなく、「メンテナンスされる未来の自分」のために書くものだ。 その意識が、あなたの自動化ツールを「使い捨てのスクリプト」から「堅牢なシステム」へと昇華させる。
