こんにちは！ Word VBAの自動化の世界へようこそ。
マクロの記録ボタンを押して出てきたコードをただ貼り付けるだけの作業に、そろそろ限界を感じていませんか？「行を追加するたびにコードがぐちゃぐちゃになる」「結合セルを扱おうとした途端にエラーで止まる」……そんな悩みを持つあなたへ。
今回は、Word VBAを「単なる作業の自動化ツール」から「洗練されたシステム」へと昇華させる、オブジェクト指向アプローチを伝授します。
ここをクリアすれば、Word VBAの基本だけでなく、プログラミングの本質がバッチリ見えてきますよ。さあ、伝説の扉を開けましょう！
—
なぜ、Wordの「表操作」はスパゲッティコードになりやすいのか？
Wordの表（`Table`オブジェクト）をVBAで操作しようとすると、コードがすぐに複雑怪奇（スパゲッティ状態）になります。
- 行を追加するたびにインデックス番号がズレる。
- セルの結合（`Merge`）や分割を行おうとすると、参照ロジックが破綻する。
- データの流し込みとレイアウトの調整が混ざり合い、どこを直せばいいか分からない。
「マクロの記録」が吐き出すコードは、その場限りの使い捨てです。実務で耐えうる堅牢なシステムを作るには、「表の構造をカプセル化し、人間が直感的に扱えるAPI（メソッド）としてラップする」必要があります。
今回は、VBAの「クラスモジュール」を駆使して、再利用可能な『テーブル操作ライブラリ』を一緒に構築していきます。
—
設計思想：私たちが目指す「理想のテーブル操作」
今回作成するクラス（仮に `WordTableBuilder` と名付けましょう）を使うと、実際のデータ流し込みコードは、以下のように美しく、直感的になります。
Sub 実際の利用イメージ()
Dim tbl As New WordTableBuilder
‘ 3行4列の表を新規作成し、ヘッダー行を設定
tbl.Create 3, 4, Selection.Range
tbl.SetHeader 1, Array(“項目”, “数量”, “単価”, “金額”)
‘ データを流し込む
tbl.SetCell 2, 1, “ライセンス費用”
tbl.SetCell 2, 2, “5”
tbl.SetCell 2, 3, “10,000”
tbl.SetCell 2, 4, “= 5 10,000” ‘ （※概念としてのイメージ）
‘ 行を追加してデータを追記
tbl.AddRow
tbl.SetCell 3, 1, “保守サポート”
tbl.SetCell 3, 2, “1”
tbl.SetCell 3, 3, “50,000”
‘ セルを結合してレイアウトを整える
tbl.MergeCells 4, 1, 4, 3 ‘ 最終行の1〜3列目を結合して「合計」見出しに
tbl.SetCell 4, 1, “合計”
‘ 完了！
MsgBox “表の構築が完了しました！”, vbInformation
End Sub
どうですか？ このコードには、Wordの面倒な内部オブジェクトの制御（`Selection`や`Range`の競合など）が一切ありません。これが、クラスモジュールの魔力です。
—
実装ステップ1：クラスモジュールの作成
それでは実際に手を動かしていきましょう。
VBE（Visual Basic Editor）を開き、[挿入] ＞ [クラス モジュール] を選択してください。プロパティウィンドウで、このモジュールの名前を `WordTableBuilder` に変更します。
このクラスの内部には、「現在操作しているWordのテーブル本体」を保持するプライベート変数を持たせます。
クラスモジュール：`WordTableBuilder` のコード
以下のコードを、作成したクラスモジュールにそのまま貼り付けてください。
Option Explicit
‘ ————————————————–
‘ 内部保持するWordのTableオブジェクト
‘ ————————————————–
Private m_Table As Table
Private m_Doc As Document
‘ ————————————————–
‘ コンストラクタ的な初期化メソッド：表の新規作成
‘ ————————————————–
Public Sub Create(rowCount As Long, colCount As Long, targetRange As Range)
Set m_Doc = targetRange.Document
‘ 指定されたレンジに表を挿入
Set m_Table = m_Doc.Tables.Add(Range:=targetRange, NumRows:=rowCount, NumColumns:=colCount)
‘ 基本的な表スタイル（グリッド）を適用
m_Table.Style = “テーブル (グリッド)”
m_Table.AutoFitBehavior wdAutoFitFixed
End Sub
‘ ————————————————–
‘ 指定セルのテキストを設定するメソッド
‘ ————————————————–
Public Sub SetCell(row As Long, col As Long, text As String)
If m_Table Is Nothing Then Exit Sub
On Error GoTo ErrorHandler
‘ Wordのセルは 1始まり (Row, Column)
m_Table.Cell(row, col).Range.Text = text
Exit Sub
ErrorHandler:
Err.Raise vbObjectError + 1, “WordTableBuilder”, “指定したセル (” & row & “, ” & col & “) は存在しないか、結合されています。”
End Sub
‘ ————————————————–
‘ ヘッダー行の一括設定メソッド（配列を受け取る）
‘ ————————————————–
Public Sub SetHeader(row As Long, headers As Variant)
Dim i As Long
For i = LBound(headers) To UBound(headers)
‘ 配列のインデックスと列のインデックスのズレを吸収
Dim colIndex As Long
colIndex = (i – LBound(headers)) + 1
Me.SetCell row, colIndex, CStr(headers(i))
Next i
‘ ヘッダー行の背景色をグレーにするなど、装飾をここに集約可能
Dim c As Cell
For Each c In m_Table.Rows(row).Cells
c.Shading.BackgroundPatternColor = wdColorLightGray
Next c
End Sub
‘ ————————————————–
‘ 末尾への行追加メソッド
‘ ————————————————–
Public Function AddRow() As Row
If m_Table Is Nothing Then Exit Function
Set AddRow = m_Table.Rows.Add
End Function
‘ ————————————————–
‘ セルの結合メソッド
‘ ————————————————–
Public Sub MergeCells(startRow As Long, startCol As Long, endRow As Long, endCol As Long)
If m_Table Is Nothing Then Exit Sub
Dim startCell As Cell
Dim endCell As Cell
Set startCell = m_Table.Cell(startRow, startCol)
Set endCell = m_Table.Cell(endRow, endCol)
startCell.Merge mergeTo:=endCell
End Sub
‘ ————————————————–
‘ プロパティ：生（生粋の）Tableオブジェクトへのアクセスが必要な場合
‘ ————————————————–
Public Property Get NativeTable() As Table
Set NativeTable = m_Table
End Property
—
実装ステップ2：標準モジュールから呼び出す
クラスの準備ができたら、次はそれを呼び出す標準モジュールを作成しましょう。
[挿入] ＞ [標準モジュール] を選択し、以下のコードを記述します。
Option Explicit
Sub RunTableBuilderSample()
‘ カーソルのある位置、または文書の末尾を取得
Dim rng As Range
Set rng = Selection.Range
‘ クラスのインスタンス化
Dim builder As New WordTableBuilder
‘ 1. 表の作成 (3行3列)
builder.Create 3, 3, rng
‘ 2. ヘッダーの流し込みと装飾
builder.SetHeader 1, Array(“製品名”, “数量”, “単価”)
‘ 3. データの流し込み
builder.SetCell 2, 1, “Wordプロフェッショナル解説書”
builder.SetCell 2, 2, “1”
builder.SetCell 2, 3, “3,500円”
‘ 4. 行の動的追加とデータ流し込み
builder.AddRow
builder.SetCell 3, 1, “VBAマスター実践講座”
builder.SetCell 3, 2, “2”
builder.SetCell 3, 3, “4,800円”
‘ 5. セルの結合テスト（3行目の1列目と2列目を結合）
‘ ※行を追加したので、現在は全体で4行になっています
builder.AddRow
builder.MergeCell 4, 1, 4, 2
builder.SetCell 4, 1, “小計（税別）”
builder.SetCell 4, 3, “13,100円”
MsgBox “テーブルの自動生成が正常に完了しました。”, vbInformation, “成功”
End Sub
—
現場で役立つ！陥りやすい罠とエンジニアの知見
ここで、Word VBA特有の「ハマりどころ」と、それをクラスデザインでどう回避しているかという重要な知見をシェアします。
1. `Range.Text` を代入するときの「セル末尾の制御文字」問題
Wordのセルには、必ず「セル終了マーク（Cell End Marker）」という不可視の特殊文字が含まれています。
素人が書いたコードでよくあるのが、`m_Table.Cell(1,1).Range.Text = “hoge”` とやった瞬間に、表のスタイルやセルの書式が全て吹き飛ぶという現象です。
今回は直接 `Range.Text` に代入するシンプルな形にしていますが、実務でフォントやサイズを保持したい場合は、以下のように記述を厳密にする必要があります。
‘ セル全体の書式を維持してテキストだけを書き換えるテクニック
Dim rngCell As Range
Set rngCell = m_Table.Cell(row, col).Range
rngCell.MoveEnd wdCharacter, -1 ‘ セル終了マークの手前までを選択
rngCell.Text = text
このような「Word特有のお作法」をクラスの中に隠蔽（カプセル化）しておけば、呼び出し側のコードを汚さずに済みます。これがオブジェクト指向の最大のメリットです。
2. インデックスのズレ（Off-by-one エラー）を防ぐ
Excel VBAは 1始まりですが、配列の扱い（`Split` や `Array` 関数）は 0始まりであることが多いです。
先ほどの `SetHeader` メソッドを見てください。
Dim i As Long
For i = LBound(headers) To UBound(headers)
Dim colIndex As Long
colIndex = (i – LBound(headers)) + 1
…
このように、「呼び出し側は自然な配列を渡し、クラス内部で安全にWordの列インデックス（1始まり）へ変換する」という設計にしておけば、現場でありがちな「あれ？列が1つズレるぞ？」というバグを根絶できます。
—
おわりに
お疲れ様でした！
今回は、単なるマクロの記録を超え、クラスモジュールを用いた「再利用可能なテーブル操作ライブラリ」の設計思想と実装を解説しました。
- 表の生成、データの流し込み、結合といった複雑な処理をクラスに閉じ込める。
- 呼び出し側（メインの処理）は、ビジネスロジック（何を書き込むか）だけに集中する。
このアプローチが身につけば、Word VBAだけでなく、ExcelやPowerPoint、さらには外部API連携に至るまで、あらゆる自動化開発のスキルが劇的に跳ね上がります。
「ここをクリアすれば、Word VBAの基本はバッチリですよ！」
ぜひ、あなたの開発現場にこのライブラリを導入し、退屈な手作業をエレガントに自動化してみてください。あなたのエンジニアライフの強力な武器になることを確信しています。
