Word表の枠線をデータ内容に応じて動的に太くする条件付き書式の実装
Word VBAにおける表（Table）の操作は、Excelのそれに比べて抽象化のレイヤーが一段高く、オブジェクトモデルの挙動を正確に把握していないと、途端にパフォーマンスが劣化するか、あるいは予期せぬメモリリークを引き起こす。
特に「データの値に応じた動的なスタイリング（条件付き書式）」を大量のレコードを持つ表に対して適用する場合、不適切なオブジェクト参照の繰り返しは、COMコンポーネントのマーシャリングオーバーヘッドを増大させ、数千行規模の文書生成において致命的な速度低下を招く。
本稿では、Word表のセル枠線（`Borders`プロパティ）をデータ内容に応じて動的に制御し、さらにアーキテクチャレベルでの最適化を施した実務直結のソリューションを提示する。
—
1. Word表における枠線操作のアーキテクチャ的課題
Excelであれば `FormatConditions` コレクションを用いて宣言的に条件付き書式を適用できるが、Wordの `Table` オブジェクトには、セル単位での高度な動的条件付き書式エンジンは備わっていない。したがって、VBA側でイテレーションを回し、セルの値を評価した上で `Cell.Borders` を直接操作する必要がある。
ここでエンジニアが陥りがちな罠が、「暗黙のオブジェクト生成と参照の肥大化」である。
‘ 【アンチパターン】これはいけない
Dim i As Long, j As Long
For i = 1 to tbl.Rows.Count
For j = 1 to tbl.Columns.Count
If Val(tbl.Cell(i, j).Range.Text) > 100 Then
tbl.Cell(i, j).Borders(wdBorderBottom).LineWidth = wdLineWidth075pt
End If
Next
Next
上記のコードは一見正しく動くように見えるが、ループのたびに `tbl.Cell(i, j)` が新しいRangeおよびCellオブジェクトをCOM経由でインスタンス化し、VBAのランタイムヒープを圧迫する。さらに、文字列比較のたびにTrailingの制御文字（セル終端マーカー `13` や `7`）が混入するため、数値評価のコストも無視できない。
—
2. 極限まで最適化された条件付き書式エンジンの実装
以下のコードは、オブジェクト変数を適切にキャッシュし、メモリフットプリントを最小限に抑えつつ、特定の値（例: 閾値超えの数値）を持つセルの下部枠線を動的に太くするプロシージャである。
Option Explicit
‘ —————————————————————–
‘ 担当: チーフアーキテクト
‘ 概要: 表データに応じた動的枠線変更（条件付き書式）の最適化実装
‘ —————————————————————–
Public Sub ApplyConditionalBordersToTable()
Dim doc As Word.Document
Set doc = ActiveDocument
If doc.Tables.Count = 0 Then
MsgBox “対象となる表が存在しません。”, vbExclamation
Exit Sub
End If
‘ 処理対象の表（ここでは先頭の表とする）
Dim targetTable As Word.Table
Set targetTable = doc.Tables(1)
‘ 画面描画とイベントを停止し、COMトランザクションのオーバヘッドを極限まで削減
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
On Error GoTo ErrorHandler
Dim r As Long, c As Long
Dim totalRows As Long, totalCols As Long
totalRows = targetTable.Rows.Count
totalCols = targetTable.Columns.Count
‘ ループ変数の外側でセルオブジェクトを保持するための変数
Dim currentCell As Word.Cell
Dim cellText As String
Dim numericValue As Double
‘ ヘッダー行（1行目）をスキップし、データ行から走査
For r = 2 To totalRows
For c = 1 To totalCols
Set currentCell = targetTable.Cell(r, c)
‘ セル内のテキストからWord特有の制御文字（Chr(13) + Chr(7)）を除去
cellText = CleanCellText(currentCell.Range.Text)
‘ 数値変換可能か検証した上でビジネスロジックを適用
If IsNumeric(cellText) Then
numericValue = CDbl(cellText)
‘ 【条件分岐】例: 値が 1000 を超える場合、下線を太くし、色を赤系に変更
If numericValue > 1000 Then
With currentCell.Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth225pt ‘ 2.25ptの太線
.Color = RGB(192, 0, 0)
‘ 視認性向上のため背景色も微調整する場合
‘ currentCell.Shading.BackgroundPatternColor = RGB(255, 230, 230)
Else
‘ 通常行のボダーリセット
With currentCell.Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = RGB(211, 211, 211)
End With
End If
End If
‘ ループの都度、オブジェクト参照を明示的に解放（COM参照カウンタのリーク防止）
Set currentCell = Nothing
Next c
Next r
CleanUp:
‘ 画面描画の復元
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
‘ —————————————————————–
‘ Wordセルのテキストに含まれる終端文字を除去するヘルパー関数
‘ —————————————————————–
Private Function CleanCellText(ByVal rawText As String) As String
If Len(rawText) >= 2 Then
‘ Wordのセル範囲テキストは末尾に Chr(13) & Chr(7) が含まれる
CleanCellText = Left$(rawText, Len(rawText) – 2)
CleanCellText = Trim$(CleanCellText)
Else
CleanCellText = “”
End If
End Function
—
3. コードのアーキテクチャ的解説と実務上のポイント
1. 画面描画の停止 (`ScreenUpdating = False`)
数千セル規模の表に対して枠線のプロパティ（`LineWidth`, `Color` など）を書き換えるたびに Word が GUI の再描画を行っていると、実行時間が何倍にも膨れ上がる。処理の冒頭で描画を止め、最後に一括して更新をかけることで、体感速度を劇的に向上させている。
2. COMオブジェクトのライフサイクル管理とメモリ最適化
VBAからWordを操作する場合、背後ではCOM（Component Object Model）のインターフェースが動いている。
`targetTable.Cell(r, c)` を呼び出すたびに新しいCOMラッパーが生成されるため、ループ内で `Set currentCell = Nothing` を実行し、ガベージコレクションのタイミングを待たずに即座に参照カウンタをデクリメントすることが、メモリリークや「メモリ不足」エラーを防ぐための鉄則である。
3. Word特有の終端文字のハンドリング
Excelのセルと異なり、Wordの `Cell.Range.Text` は必ず `vbCr & vbBell` （`Chr(13) & Chr(7)`）で終わる。これをそのまま `IsNumeric` にかけると、意図した判定が行われない。`CleanCellText` 関数によって、このゴミデータを確実にトリミングしてから評価を行っている点に注目してほしい。
—
総括
Word VBAにおける動的スタイリングは、単に「動けばいい」というレベルでコードを書くと、実業務の大規模文書（契約書、監査報告書、大規模仕様書など）を処理する際に必ず破綻する。
オブジェクトの寿命を正確にコントロールし、無駄なCOMラウンドトリップを排除すること。このプロフェッショナルなアパートメントを維持してこそ、レガシーとモダンが混在する enterprise 環境において、真に信頼性の高い自動化基盤を築くことができる。
