Word VBAで帳票を自動化する：なぜ「表操作」で地獄を見るのか
Word VBAによる業務効率化において、最も頻繁に発生するのが「動的な表の生成と制御」だ。しかし、多くのエンジニアがここで躓く。セルを一つずつ選択（Select）し、カーソルを移動（Move）させるようなコードを書いてはいないだろうか？
結論から言おう。`.Select`や`.Selection`を使うのは今すぐやめろ。
Wordのオブジェクトモデルにおいて、`Selection`は極めて低速で不安定だ。視覚的な追従が発生するため、数百行の表を生成すれば画面は点滅し、処理時間は指数関数的に増大する。
真にプロフェッショナルなエンジニアは、`Range`オブジェクトを直接操作し、メモリ上で構造を組み上げる。今回は、実務で必須となる「日付の入力と曜日判定による色分け」を例に、堅牢かつ高速な設計術を伝授する。
—
1. 堅牢な設計のためのアーキテクチャ
単に「動くコード」を書くのはアマチュアだ。実務レベルでは、以下の3点を徹底しなければならない。
1. オブジェクトの直接参照: `Selection`を排除し、`Table`オブジェクトと`Cell`オブジェクトを直接叩く。
2. 保守性の確保: 曜日判定のようなビジネスロジックは、メイン処理から切り離して独立した関数（Function）にする。
3. エラーハンドリング: 表が存在しない、あるいはセルが結合されているといった異常系に備える。
—
2. 実践：曜日判定ロジックを組み込んだ表生成コード
以下のコードは、指定した表の特定列に対して、日付を流し込み、土日を色分けするプロダクションコードだ。
Option Explicit
‘ メイン処理：表の特定列に日付と曜日判定を適用
Public Sub GenerateReportTable()
Dim tbl As Table
Dim i As Long
Dim targetDate As Date
‘ 1. 表の取得（アクティブドキュメントの最初の表を対象）
If ActiveDocument.Tables.Count = 0 Then
MsgBox “表が見つかりません。”, vbCritical
Exit Sub
End If
Set tbl = ActiveDocument.Tables(1)
targetDate = Date ‘ 本日を開始日とする
‘ 2. 表の行をループ処理（ヘッダー行を除く1行目から開始）
For i = 2 To tbl.Rows.Count
‘ 日付列（1列目）に日付を入力
tbl.Cell(i, 1).Range.Text = Format(targetDate, “yyyy/mm/dd”)
‘ 曜日判定と色分け（2列目に曜日を表示）
Call ApplyWeekdayFormatting(tbl.Cell(i, 2), targetDate)
targetDate = targetDate + 1 ‘ 翌日に更新
Next i
MsgBox “帳票の生成が完了しました。”, vbInformation
End Sub
‘ 曜日判定と色分けを行う汎用プロシージャ
Private Sub ApplyWeekdayFormatting(targetCell As Cell, d As Date)
Dim wd As Integer
wd = Weekday(d, vbSunday) ‘ 日曜日を1とする
With targetCell.Range
.Text = Format(d, “(aaa)”)
‘ 背景色の設定（定数を使用することで保守性を高める）
Select Case wd
Case vbSunday ‘ 日曜：赤
.Shading.BackgroundPatternColor = wdColorLightRed
Case vbSaturday ‘ 土曜：青
.Shading.BackgroundPatternColor = wdColorLightBlue
Case Else ‘ 平日：白
.Shading.BackgroundPatternColor = wdColorWhite
End Select
End With
End Sub
—
3. なぜこの設計が「最強」なのか
1. `Range`オブジェクトの活用
`tbl.Cell(i, 1).Range`という書き方は、カーソルを動かさずに直接メモリ内のコンテンツを書き換える。これにより、処理速度が劇的に向上し、Wordの「画面の揺れ」も発生しない。
2. ロジックの分離
`ApplyWeekdayFormatting`という関数を分離した意図は、「仕様変更への耐性」だ。将来的に「祝日も色を変えたい」という要件が来た場合、この関数の中身を外部の祝日リストと照合するように書き換えるだけでいい。メインのループを汚さず、副作用を最小限に抑えられる。
3. マジックナンバーの排除
`vbSunday`や`vbSaturday`といったVBA標準の定数を使用している。`1`や`7`といった数字をコードに直書きする「マジックナンバー」は、他人が読んだ瞬間にバグの温床となるため、絶対に避けるべきだ。
—
4. 現場で生き残るためのアドバイス
- データソース連携: もしこれがCSVやデータベースからの読み込みであれば、`Do While Not EOF`のようなファイルI/O処理とこの表生成ロジックを分けること。データ層と表示層を分離する意識が、大規模ツール開発の鍵となる。
- セルの結合への注意: `tbl.Cell(i, j)`は結合されたセルを含むとエラーを吐く場合がある。もし動的に行を追加・結合するなら、`Split`メソッドや`Merge`メソッドの挙動を事前に検証しておくこと。
Word VBAは、決して「おまけ」の機能ではない。正しく設計すれば、Excelよりも遥かに柔軟な帳票自動化エンジンとなる。君たちが書くコードが、誰かの無駄な労働を削り、創造的な時間を生み出すことを期待している。
さあ、エディタを開け。今すぐ無駄な`Select`を削除し、コードを磨き上げろ。
