【入門編】【上級者向け】Word表の構造をクラスモジュールで抽象化し、再利用可能なライブラリを作る – Word VBA解析バイブル

こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して出てきたコードをそのまま貼り付けるだけのステージは、もう卒業しませんか？

実務でWordの表（Table）を操作しようとした途端、こんな壁にぶつかったことはありませんか？

• 「行を追加するたびに、セルの結合ズレが起きてレイアウトが崩壊する…」
• 「どのセルに何を流し込んでいるのか、コードがスパゲッティ化して自分でも読めない…」
• 「エラー処理を入れたつもりが、ドキュメントのオブジェクトがメモリリークを起こしている気がする…」

Wordの表操作は、ExcelのRangeとは異なり、セルのインデックス構造や結合（Merge）の仕様が非常にクセ者です。ここで場当たり的なコードを書いていると、メンテナンス不可能な「動くゴミ」が量産されてしまいます。

今回は、「クラスモジュール」という武器を使ってWordの表構造を完全にカプセル化し、まるでモダンなプログラミング言語のように美しく・安全に表を構築する「上級アプローチ」を伝授します。

ここをクリアすれば、あなたのWord VBAのスキルは間違いなくプロの領域に到達します。一緒にマスターしていきましょう！

—

なぜWordの表操作は難しいのか？（基本の落とし穴）

Excelであれば `Cells(row, col)` で一発ですが、Wordの表（`Table`オブジェクト）は以下のような特殊性を持っています。

1. 結合セルが存在すると、列数・行数の概念が狂う
横方向や縦方向にセルを結合すると、`Cell(r, c)` の指定が意図しないエラー（「そのインデックスのセルは存在しません」）を引き起こします。
2. データの流し込みとレイアウトが混在する
「どこにテキストを入れ、どこを結合し、どこに太線を引くか」を一つのプロシージャに書くと、コードが肥大化します。

これを解決するのが「オブジェクト指向設計」です。表の生成や操作を一つの「クラス」に閉じ込め（カプセル化）、外側からは単純なメソッドだけで操作できるようにします。

—

実装の全体像：今回作る仕組み

今回は以下の2つのモジュールを作成します。

1. `ClsSmartTable`（クラスモジュール）

• Wordの `Table` を内部に保持し、「行の追加」「セルの結合」「値の流し込み」を安全に行うメソッドを提供する。

2. `Module1`（標準モジュール）

• クラスを呼び出し、実際のデータ（例えば見積書や報告書）を表に流し込む。

—

ステップ1：クラスモジュールを作る (`ClsSmartTable`)

VBE（Visual Basic Editor）を開き、「挿入」＞「クラスモジュール」を選択してください。プロパティウィンドウで名前を `ClsSmartTable` に変更します。

以下のコードをそのまま貼り付けてください。

‘ =================================================================
‘ クラス名: ClsSmartTable
‘ 概要: Wordの表操作を抽象化し、安全かつ直感的に操作するためのラッパークラス
‘ =================================================================
Option Explicit

Private m_Table As Word.Table
Private m_CurrentRow As Long

‘ — 初期化：指定した位置に表を作成する —
Public Sub Init(ByVal targetRange As Word.Range, ByVal numRows As Long, ByVal numCols As Long)
‘ 渡されたRangeの位置に表を新規作成
Set m_Table = targetRange.Tables.Add(Range:=targetRange, NumRows:=numRows, NumCols:=numCols)

‘ 表の基本スタイルを設定（必要に応じて変更）
m_Table.Style = “テーブル (格子)”
m_Table.AllowAutoFit = False

‘ 現在行を1行目にリセット
m_CurrentRow = 1
End Sub

‘ — 既存の表をラップして操作する場合の初期化 —
Public Sub Bind(ByVal tgtTable As Word.Table)
Set m_Table = tgtTable
m_CurrentRow = 1
End Sub

‘ — 指定セルのテキストを設定する —
Public Sub SetCellText(ByVal row As Long, ByVal col As Long, ByVal text As String, Optional ByVal isBold As Boolean = False, Optional ByVal alignment As WdParagraphAlignment = wdAlignParagraphLeft)
On Error GoTo ErrorHandler

Dim tgtCell As Word.Cell
Set tgtCell = m_Table.Cell(row, col)

With tgtCell.Range
.Text = text
.Font.Name = “Meiryo”
.Font.Size = 10
.Font.Bold = isBold
.Paragraphs.Alignment = alignment
End With
Exit Sub

ErrorHandler:
MsgBox “セルの設定に失敗しました。指定した行・列（” & row & “, ” & col & “）が結合等の影響で存在しない可能性があります。”, vbCritical
End Sub

‘ — セルを水平方向（横）に結合する —
Public Sub MergeCellsH(ByVal startRow As Long, ByVal startCol As Long, ByVal endCol As Long)
On Error GoTo ErrorHandler
Dim startCell As Word.Cell
Dim endCell As Word.Cell

Set startCell = m_Table.Cell(startRow, startCol)
Set endCell = m_Table.Cell(startRow, endCol)

startCell.Merge mergeTo:=endCell
Exit Sub

ErrorHandler:
MsgBox “水平方向のセル結合に失敗しました。”, vbCritical
End Sub

‘ — 背景色を設定する —
Public Sub SetCellShading(ByVal row As Long, ByVal col As Long, ByVal colorIndex As WdColorIndex)
m_Table.Cell(row, col).Shading.BackgroundPatternColorIndex = colorIndex
End Sub

‘ — プロパティ：内部のTableオブジェクトを返す（高度な操作用） —
Public Property Get TargetTable() As Word.Table
Set TargetTable = m_Table
End Property

—

ステップ2：標準モジュールから呼び出す (`Module1`)

次に、標準モジュールを挿入し、先ほどのクラスを利用して実際に美しい表を組み立てるコードを記述します。

‘ =================================================================
‘ 標準モジュール: Module1
‘ 概要: ClsSmartTableを使って、ドキュメントに業務用の表を動的生成する
‘ =================================================================
Option Explicit

Sub CreateProfessionalTable()
‘ 画面描画を停止してパフォーマンスを爆発的に上げる（鉄則！）
Application.ScreenUpdating = False

Dim doc As Word.Document
Set doc = ActiveDocument

‘ カーソル位置、または文書の末尾に表を挿入するためのRangeを取得
Dim rng As Word.Range
Set rng = doc.Content
rng.Collapse wdCollapseEnd ‘ 文書の最後に移動

‘ 見出しを入れる
rng.Text = vbCrLf & “【 2年度 業務進捗報告書 】” & vbCrLf
rng.Font.Bold = True
rng.Font.Size = 14
rng.Collapse wdCollapseEnd

‘ — クラスのインスタンス化と初期化 —
Dim smartTbl As ClsSmartTable
Set smartTbl = New ClsSmartTable

‘ 5行 4列 の表を生成
smartTbl.Init targetRange:=rng, numRows:=5, numCols:=4

‘ — ヘッダー行の構築 —
Dim col As Long
Dim headers As Variant
headers = Array(“項目ID”, “作業内容”, “担当者”, “ステータス”)

For col = 0 To UBound(headers)
smartTbl.SetCellText 1, col + 1, headers(col), isBold:=True, alignment:=wdAlignParagraphCenter
smartTbl.SetCellShading 1, col + 1, wdGray20 ‘ 背景をグレーに
Next col

‘ — サンプルデータの流し込み —
‘ 2行目
smartTbl.SetCellText 2, 1, “TASK-001”
smartTbl.SetCellText 2, 2, “要件定義書の作成とレビュー”
smartTbl.SetCellText 2, 3, “山田 太郎”
smartTbl.SetCellText 2, 4, “完了”, isBold:=True

‘ 3行目
smartTbl.SetCellText 3, 1, “TASK-002”
smartTbl.SetCellText 3, 2, “データベース設計・構築”
smartTbl.SetCellText 3, 3, “鈴木 次郎”
smartTbl.SetCellText 3, 4, “進行中”

‘ — 応用：セルの結合と高度な流し込み —
‘ 4行目をすべて結合して「特記事項」にする
smartTbl.MergeCellsH startRow:=4, startCol:=1, endCol:=4
smartTbl.SetCellText 4, 1, “※ 特記事項：次週よりテスト工程へ移行予定。”

‘ 5行目（フッター的使い方）
smartTbl.SetCellText 5, 1, “総合評価”, isBold:=True
smartTbl.MergeCellsH startRow:=5, startCol:=2, endCol:=4
smartTbl.SetCellText 5, 2, “順調に推移している。”, isBold:=False, alignment:=wdAlignParagraphCenter

‘ 画面描画を復元
Application.ScreenUpdating = True

MsgBox “表の動的生成が完了しました！”, vbInformation
End Sub

—

プロのエンジニアが教える「ここがポイント」

1. `Application.ScreenUpdating = False` の絶大な効果
Word VBAでも、表の構築やセルの書式変更を1回行うごとに画面が再描画されると、実行速度が劇的に落ちます。処理の最初に `False` にし、最後に `True` に戻すだけで、体感速度が数倍〜十数倍になります。
2. エラーハンドリングの局所化
クラスモジュール側（`ClsSmartTable`）に `On Error GoTo` を閉じ込めているため、もし万が一「存在しないセルにアクセスした」というバグを踏んでも、VBAの真っ赤なデバッグ画面がいきなりユーザーに突きつけられるのを防げます。
3. 拡張性の高さ
今後、「表全体に罫線を引くメソッド」や「特定の行をゴッソリ削除するメソッド」を追加したくなったら、`ClsSmartTable` クラスに処理を書き足すだけです。標準モジュールのコードを汚さずに機能を拡張していけるのが、オブジェクト指向の最大のメリットです。

—

まとめ

今回は、Word表の構造をクラスモジュールで抽象化し、再利用可能なライブラリを作るアプローチを解説しました。

「マクロの記録」の呪縛から抜け出し、自分でクラスを設計してコードを部品化できるようになると、Word VBA開発は圧倒的に楽しく、そして強固なものになります。

ぜひご自身の開発現場や業務効率化のツールに取り入れて、スマートな自動化ライフを満喫してください。ここをクリアしたあなたなら、どんな複雑なWord文書の自動生成も怖くありませんよ！