Word VBAで「表」を支配する：壊れないドキュメント自動生成のための極限技術
Word VBAを扱う多くのエンジニアが、最初の壁としてぶつかるのが「表（Table）」の操作だ。特にセル結合や不規則な行削除を繰り返すと、途端にコードはスパゲッティ化し、`Runtime Error 5941`（要求されたメンバーはコレクションに存在しません）の泥沼にはまる。
なぜ彼らは失敗するのか？ それはWordの表が「線形的な配列」ではなく「動的かつ階層的なオブジェクトの集合体」であるという本質を無視しているからだ。
今日は、現場で即戦力となり、かつ1年後の自分が修正に絶望しない「堅牢な表操作」の極意を授ける。
—
1. なぜ「Select」や「Selection」を使ってはいけないのか
初心者が書くコードの典型例はこれだ。
‘ 悪しき例：Selectionへの依存
Selection.Tables(1).Cell(1, 1).Select
Selection.TypeText “Data”
これこそがバグの温床だ。`Selection`は現在フォーカスされている場所に依存する。途中でユーザーが別のウィンドウをクリックしたり、処理中にカーソルが動いたりすれば、自動化は一瞬で崩壊する。
真のアーキテクトは`Range`と`Table`オブジェクトを直接操作する。
オブジェクトを「変数」として捕捉し、メモリ上で完結させる。これが高速化と安定化の絶対条件だ。
—
2. 堅牢な表操作のための「3つの鉄則」
① 結合・分割は「境界」を意識せよ
`Cell.Merge`や`Cell.Split`は、表の構造を物理的に書き換える破壊的メソッドだ。
- 鉄則: セル操作を行う際は、必ず「処理対象のRange」を再取得せよ。結合によってインデックスが変わった瞬間、古い`Cell`オブジェクトへの参照は無効化される。
② 表の行数は「行単位」で制御せよ
行の追加・削除は `Table.Rows.Add` を使う。特定のセルを基準にするのではなく、`Table`オブジェクト全体を管理対象とするのが定石だ。
③ エラーハンドリングの要は「存在確認」
表が期待した構造（列数や行数）を維持しているか、処理の直前に `If` 文でガード節を入れよ。
—
3. 実践：プロダクション品質のセル代入コード
以下は、特定の表の指定セルを安全に書き換え、必要に応じて行を追加する実用的なコードだ。
Public Sub WriteToTableCell(ByVal tbl As Table, ByVal r As Long, ByVal c As Long, ByVal val As String)
‘ ガード節：インデックス範囲外アクセスを未然に防ぐ
If r > tbl.Rows.Count Or c > tbl.Columns.Count Then
Debug.Print “範囲外のセルが指定されました: R=” & r & ” C=” & c
Exit Sub
End If
‘ Cellオブジェクトを変数に格納して操作する
Dim targetCell As Cell
Set targetCell = tbl.Cell(r, c)
‘ Rangeオブジェクトを抽出して値を代入（Selectionは一切使わない）
With targetCell.Range
.Text = val
.Collapse Direction:=wdCollapseEnd ‘ カーソルを末尾に置く
End With
End Sub
‘ 使用例
Sub Example_UpdateTable()
Dim doc As Document: Set doc = ActiveDocument
Dim targetTable As Table
‘ 表の存在確認
If doc.Tables.Count = 0 Then Exit Sub
Set targetTable = doc.Tables(1)
‘ データの書き込み
Call WriteToTableCell(targetTable, 1, 1, “売上管理表”)
End Sub
—
4. プロフェッショナルな設計思想：外部連携の罠
もしあなたが、Excelのデータやデータベース（SQL Server等）からWordの表へ流し込むツールを作っているなら、以下の点に注意せよ。
1. テンプレートの外部化: Wordファイル内にロジックを詰め込むな。Wordは「レイアウトの器」に徹し、処理ロジックは標準モジュールに集約させ、外部から呼び出す形が理想だ。
2. 型変換の厳格化: `Range.Text` に放り込む値は必ず文字列型（String）にキャストせよ。特に数値や日付をそのまま渡すと、Wordの表示設定やロケールに依存して表示が崩れる。
3. トランザクション管理: 複数のセルを書き換える際は、`Application.ScreenUpdating = False` を利用せよ。描画更新を止めるだけで、処理速度は5倍〜10倍に跳ね上がる。
—
最後に：コードは「読み手」のために書け
Wordのオブジェクトモデルは一見複雑だが、`Application` > `Document` > `Table` > `Row` > `Cell` > `Range` という階層構造さえ頭に入っていれば、恐れることはない。
私がコードを書くとき、常に自問するのは「このコードは、半年前の自分が見て直感的に理解できるか？」という点だ。`Selection`に頼るな。`Range`を支配せよ。
あなたの自動化ツールが、ただ動くだけのものではなく、組織の資産となることを願っている。質問があればいつでも持ってこい。現場の最前線で待っている。
