—
Word VBAで『段落の網掛け』を支配する：BordersとShadingの極限制御
Microsoft Wordは、Excelのような「絶対座標のセル構造」とは異なり、文字と段落が動的に流動する「ストリーム（流体）型」のレンダリングエンジンを搭載している。この本質を理解せずにWord VBAでドキュメントの自動生成、特に段落の網掛け（Shading）や枠線（Borders）を大量に制御しようとすると、描画遅延、メモリリーク、そして最悪の場合はWordの異常強制終了（クラッシュ）に直面することになる。
本稿では、エンタープライズ環境での数万ページ規模のドキュメント自動生成や、レガシーシステムの移行・保守を担うシニアエンジニアに向けて、Wordオブジェクトモデルの深淵と、Borders/Shadingを極限まで高速かつ堅牢に制御するためのアーキテクチャを解説する。
—
1. Wordオブジェクトモデルの深淵：Borders と Shading の階層構造
段落（Paragraph）に装飾を施す際、VBA開発者が最も頻繁に触れるのが `Paragraph.Borders` コレクションと `Paragraph.Format.Shading` オブジェクトである。しかし、これらのオブジェクトはWord内部で極めて複雑なリレーションを持っている。
1.1 `Borders` コレクションの二面性
`Borders` は、上下左右（`wdBorderTop`, `wdBorderBottom`, `wdBorderLeft`, `wdBorderRight`）の境界線を管理する。ここで重要なのは、「隣接する段落が同一のBorders設定およびスタイルを持つ場合、Wordはそれらを1つの境界領域として結合（マージ）する」という既定の振る舞い（Behavior）である。
個別の段落ごとに完全に独立した枠線を適用したい場合は、段落間に異なるスタイルを挟むか、`Borders.DistanceFrom` などのプロパティを緻密に制御し、Wordの自動マージアルゴリズムを意図的にバイパスしなければならない。
1.2 `Shading` のカラー深度とグラデーションの罠
`Shading` オブジェクトは、背景色（`BackgroundPatternColor`）と前景色（`ForegroundPatternColor`）、そしてテクスチャ（`Texture`）の3つの要素で構成される。
‘ 網掛けの基本構造
With oParagraph.Format.Shading
.Texture = wdTextureNone
.BackgroundPatternColor = RGB(240, 240, 240) ‘ フラットな背景色
.ForegroundPatternColor = wdColorAutomatic
End With
ここで注意すべきは、`wdColor` 定数（例: `wdColorGray10`）と `RGB` 関数の混在である。Word内部のレンダリングエンジンは、これらを異なるカラーパレットとして処理するため、1つのドキュメント内でこれらを混在させると、PDFエクスポート時や印刷時に微妙な色ズレや描画バグを引き起こす。原則として、すべてのカラー指定は `RGB` 関数（24ビットカラー）に統一すべきである。
—
2. パフォーマンスの極限：Paragraphsループを排除し、Rangeを走査せよ
多くのVBAサンプルコードでは、以下のような `For Each p In ActiveDocument.Paragraphs` というループが紹介されている。これは大規模文書においてはアンチパターン（大罪）である。
‘ 【アンチパターン】大規模文書でフリーズを引き起こすコード
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
p.Format.Shading.BackgroundPatternColor = RGB(245, 245, 245) ‘ 遅い！
Next p
なぜ `Paragraphs` コレクションのループは遅いのか？
Wordの `Paragraphs` コレクションは、インデックスによるランダムアクセスや順次走査の際、ドキュメントの先頭から段落記号（`\r`）を動的に再カウント（再評価）する。つまり、段落の書式を変更してレイアウトが再計算されるたびに、Wordはドキュメント全体を再スキャンしている。
これを回避するための極限の最適化手法が、`Range` オブジェクトのスライド走査、またはXML構造（WordOpenXML）の直接書き換えである。ここでは、VBAのメモリ空間で最も高速に動作する `Range` ポインタの移動アルゴリズムを示す。
—
3. 完全制御：超高速・堅牢な段落装飾ラッパークラス
以下に、Windows APIを用いた描画ロック、エラーハンドリング、およびCOMオブジェクトの明示的解放を徹底した、実戦仕様の堅牢なラッパープロシージャを提示する。
実装コード
Option Explicit
‘ Windows API宣言: 描画更新の物理的抑制による極限の高速化
If VBA7 Then
Private Declare PtrSafe Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Else
Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
End If
Private Const WM_SETREDRAW As Long = &HB
”’
”’
Public Sub ApplyParagraphStyling()
Dim doc As Word.Document
Set doc = ActiveDocument
‘ 1. 描画ロックおよびWord環境設定の退避
Dim prevScreenUpdating As Boolean
Dim prevPagination As Boolean
Dim hwndWord As LongPtr
prevScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
‘ バックグラウンドの自動改ページ（Pagination）を一時停止
prevPagination = doc.ActiveWindow.View.ShowRevisionsAndComments
doc.Options.Pagination = False
‘ Windows APIによるウィンドウ描画の完全固定
#If VBA7 Then
hwndWord = Application.hwnd
#Else
hwndWord = CLng(Application.hwnd)
#End If
SendMessage hwndWord, WM_SETREDRAW, 0, ByVal 0&
On Error GoTo ErrorHandler
‘ 2. Rangeポインタを用いた超高速走査
Dim rng As Word.Range
Set rng = doc.Content
Dim borderCol As Word.Borders
Dim shadingObj As Word.Shading
‘ ドキュメントの最初の段落から開始
Dim paraRange As Word.Range
Set paraRange = rng.Paragraphs(1).Range
Do While paraRange.End <= rng.End ' 特定の条件（例: 特定のスタイルが適用されている、または特定のキーワードで始まる等） ' ここではデモとして、すべての段落を対象とするが、実務では条件分岐を挟む If Len(paraRange.Text) > 1 Then ‘ 空の段落は除外
‘ オブジェクトのローカル参照（ドット演算子のネストによるオーバーヘッドを削減）
Set borderCol = paraRange.Borders
Set shadingObj = paraRange.Format.Shading
‘ — 網掛け（Shading）の適用 —
With shadingObj
.Texture = wdTextureNone
.BackgroundPatternColor = RGB(245, 247, 250) ‘ 洗練されたスレートグレー
.ForegroundPatternColor = wdColorAutomatic
End With
‘ — 枠線（Borders）の適用（左側のみにアクセントラインを引く） —
‘ 既存の枠線をクリア
borderCol.Enable = False
‘ 左側の枠線のみをアクティブ化し、太さと色を制御
With borderCol(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth30pt ‘ 3.0 pt の極太アクセント
.Color = RGB(0, 90, 158) ‘ コーポレートブルー
End With
‘ 上下のパディング調整（隣接段落とのマージを防ぐためのインセット）
borderCol.DistanceFromTop = 4
borderCol.DistanceFromBottom = 4
End If
‘ 次の段落へポインタを移動（Paragraphs(i)を使わない走査技術）
If paraRange.End = rng.End Then Exit Do
paraRange.Collapse wdCollapseEnd
‘ 走査範囲を次の段落に拡張
On Error Resume Next
paraRange.MoveEnd wdParagraph, 1
If Err.Number <> 0 Then Exit Do
On Error GoTo ErrorHandler
Loop
CleanUp:
‘ 3. オブジェクトの明示的解放（COM参照カウンタのクリーンアップ）
Set paraRange = Nothing
Set borderCol = Nothing
Set shadingObj = Nothing
Set rng = Nothing
Set doc = Nothing
‘ 4. 環境設定の復元と描画ロックの解除
SendMessage hwndWord, WM_SETREDRAW, 1, ByVal 0&
Application.ScreenUpdating = prevScreenUpdating
If Not doc Is Nothing Then
doc.Options.Pagination = True
End If
‘ 画面を強制的に物理再描画
Application.ScreenRefresh
Exit Sub
ErrorHandler:
Dim errDetail As String
errDetail = “Error ” & Err.Number & “: ” & Err.Description
Debug.Print “【SYSTEM ERROR】” & errDetail
‘ 障害発生時も必ずクリーンアップ処理を通す
Resume CleanUp
End Sub
—
4. アーキテクチャの解説：なぜこのコードは「壊れない」のか
上記のコードは、単に「段落に色を塗る」だけのスクリプトではない。エンタープライズレベルでの稼働に耐えうるよう、以下の「防御的設計」が施されている。
4.1 COMオブジェクトの参照カウンタ管理
WordをExcelやC#（.NET）などの外部プロセスからCOMオートメーションを介して制御する場合、ローカル変数（`paraRange`, `borderCol`, `shadingObj`）に割り当てたオブジェクト参照を `Set obj = Nothing` で明示的に解放しないと、プログラム終了後も `WINWORD.EXE` がバックグラウンドプロセスに残留する原因となる。本コードでは、あらゆるルートで `CleanUp` ラベルを通過し、参照を確実に破棄する構造を担保している。
4.2 Windows API による描画シグナルの遮断
Wordの `Application.ScreenUpdating = False` は、Word内部の描画キューを完全に止めるものではない。特に大量の書式変更が発生した場合、Wordはリフロー（再割付け）をバックグラウンドで実行し続け、それがCPU使用率の高騰を招く。
Windows APIの `SendMessage` を使用して、OSレベルでウィンドウの `WM_SETREDRAW` フラグを `0` に書き換えることで、グラフィックカードへの描画命令を完全に凍結し、処理速度を数倍〜数十倍にまで引き上げることができる。
4.3 `Paragraphs(i)` の排除による $O(1)$ 走査
`Paragraphs(i)` のようなインデックス指定による走査は、段落数 $N$ に対して $O(N^2)$ の計算量を強いる。本コードで採用している `Range.Collapse wdCollapseEnd` および `MoveEnd` を用いたポインタ走査は、常に現在位置の直後のみを探索するため、ドキュメントの規模に依存せず常に $O(1)$、全体で $O(N)$ の線形時間で処理を完了する。
—
5. レガシー環境保守とシステム間連携における実践のアドバイス
もしあなたが、2000年代初頭に構築された「Access + Word」や「VB6 + Word」といった超レガシーな帳票出力システムの保守改修を行っている、あるいはそれらをモダンなシステムへ移行するロードマップを描いているなら、以下の知見を心に留めておいてほしい。
1. Wordの「段落記号（CRLF）」の扱い
Wordの段落の最後にある改行コード（`\r`）には、その段落のすべての書式情報（ShadingやBordersの設定）がバイナリとして内包されている。そのため、`Range.Text` を操作して文字列を置換する際、誤ってこの末尾の改行文字を削除・上書きしてしまうと、せっかく設定した網掛けや枠線の書式が一瞬で消失し、次の段落の書式と混ざり合うという怪奇現象が発生する。文字列操作の際は、常に `Range.End – 1` を指定して改行文字を保護する設計を徹底せよ。
2. スタイルシートへの隠蔽
VBAコードから直接 `Shading.BackgroundPatternColor` をハードコードするのは、一時的なアドホック処理に留めるべきである。保守性を極限まで高めるには、あらかじめテンプレート（`.dotx`）側に「網掛け（警告）」や「枠線（注記）」といったカスタム段落スタイルを定義しておき、VBAからは `paraRange.Style = “CustomStyleName”` と、スタイル名のみを適用するのがアーキテクトとしての正しい選択である。
Word VBAは、一見すると直感的でレガシーな技術に見える。しかし、その内部に潜むストリーム型レンダリングエンジンとCOMの挙動を正しく掌握したとき、それは如何なるモダンなライブラリにも引けを取らない、超高速かつ表現力豊かなドキュメント生成エンジンへと変貌する。
