Word VBAを掌握する：表の枠線を「値」で操る、動的帳票生成の極意
こんにちは。現場で泥臭く、かつエレガントな自動化コードを書き続けているエンジニアです。
「マクロの記録」ボタンを押して生成された、冗長で意味不明なコードに絶望したことはありませんか？Wordの表操作は、Excelに比べて少しクセが強い。特に「枠線の制御」は、オブジェクトの階層構造を理解していないと、途端に迷宮入りしてしまいます。
今回は、「データが空なら線を消し、値があれば強調する」という、帳票自動化の現場で必ず直面する課題を、極めてスマートに解決する手法を伝授します。これさえ理解すれば、Word VBAはあなたの思いのままです。
—
1. なぜ「罫線」の制御は難しいのか？
Wordの表（`Table`オブジェクト）は、`Rows`、`Columns`、そして`Cells`という階層構造を持っています。多くの初学者は、`Cell(1, 1).Borders`のように、力技で個別に線を指定しようとして挫折します。
実は、Word VBAにおける罫線操作の本質は、「どの境界線（BorderIndex）を対象にするか」を明確に指定することにあります。
- `wdBorderLeft`（左）
- `wdBorderRight`（右）
- `wdBorderTop`（上）
- `wdBorderBottom`（下）
- `wdBorderHorizontal`（内側水平）
- `wdBorderVertical`（内側垂直）
これらを`Borders(定数)`として呼び出すのが、最短ルートです。
—
2. 実践：データ駆動型の動的枠線制御
今回は、「セルの値が空っぽなら枠線を消し、入力があれば実線を表示する」という、実用的な関数を作成します。
Sub FormatTableByData()
Dim tbl As Table
Dim cell As cell
Dim i As Long, j As Long
‘ アクティブな文書の最初の表を対象にする
If ActiveDocument.Tables.Count = 0 Then Exit Sub
Set tbl = ActiveDocument.Tables(1)
‘ 表全体をループ処理する
For i = 1 To tbl.Rows.Count
For j = 1 To tbl.Columns.Count
Set cell = tbl.Cell(i, j)
‘ セル内のテキストから空白を除去して判定
If Trim(Replace(cell.Range.Text, Chr(13) & Chr(7), “”)) = “” Then
‘ 空なら線を消す
Call SetCellBorder(cell, False)
Else
‘ 値があれば線を表示
Call SetCellBorder(cell, True)
End If
Next j
Next i
End Sub
‘ 罫線制御を抽象化したヘルパー関数
Sub SetCellBorder(targetCell As cell, showBorder As Boolean)
Dim b As Border
‘ セルの全境界線をループして一括制御
For Each b In targetCell.Borders
If showBorder Then
b.LineStyle = wdLineStyleSingle
b.LineWidth = wdLineWidth050pt
Else
b.LineStyle = wdLineStyleNone
End If
Next b
End Sub
このコードの「賢い」ポイント
1. 文字列判定のトラップ回避: Wordのセルには、必ず「セル終了マーカー（`Chr(13) & Chr(7)`）」が含まれています。これを除去せずに比較すると、空セル判定が正しく機能しません。ここが初学者が一番ハマる落とし穴です。
2. ロジックの分離: `SetCellBorder`のように機能を関数化することで、メインのループが読みやすくなり、後からの修正（「線をもっと太くしたい！」など）が1箇所で完結します。
—
3. 陥りやすいエラーと対策
Q. 「オブジェクトが必要です」というエラーが出る
表が選択されていない、あるいは`Tables(1)`が存在しない状態で実行すると発生します。必ず`If ActiveDocument.Tables.Count > 0 Then`のように、存在チェックを行う癖をつけましょう。
Q. 枠線が消えない（あるいは全部消える）
Wordの表は、隣り合うセル同士で境界線を共有しています。個別のセルで線を消しても、隣のセルの線が残っている場合があります。
- 対策: 表全体に対して一旦線を消す（`tbl.Borders.Enable = False`）処理を最初に入れ、その後で必要なセルだけに線を引くという「引き算」の発想を持つと、コードが格段にスッキリします。
—
4. ステップアップ：プロの知見
実務でさらに磨きをかけるなら、`Application.ScreenUpdating = False`をコードの冒頭に入れ、終了後に`True`に戻すことを忘れないでください。これをするだけで、画面のチラつきが抑えられ、実行速度が劇的に向上します。
Word VBAは、単に文字を並べる道具ではありません。ドキュメントという構造体を、プログラムで「建築」する仕事です。
まずはこのコードをコピーして、あなたのドキュメントで動かしてみてください。セルの値に応じて表の表情が変わる瞬間、きっと「自動化の面白さ」を実感できるはずです。
何か詰まったら、いつでも聞いてください。壁を越えたその先で、またお会いしましょう！
