はじめに：なぜ、あなたのWord VBAは大規模文書で「沈黙」するのか
エンタープライズの現場において、仕様書、契約書、あるいは障害報告書といった数万ページに及ぶWordドキュメントの自動生成・整形は日常茶飯事である。その中で、「特定のキーワード（例：『警告』『極秘』『要確認』）が含まれる段落を自動的に検知し、美しい枠線で囲んで視覚的に強調する」という要件は、一見するとVBAの入門レベルに思えるかもしれない。
しかし、これを「全段落をループで回し、`InStr`で文字列を判定し、ヒットしたら枠線を描画する」という、入門書に書かれているような素朴なアプローチで実装すると、実務では即座に破綻する。
100ページを超える文書に差し掛かった瞬間、Wordは応答なし（フリーズ）となり、COMの重いマーシャリングオーバーヘッドによってCPUコアを1つ100%に張り付かせたまま、システムは沈黙する。さらに、Word特有の「段落（Paragraph）オブジェクトのライフサイクル」と「枠線（Borders）プロパティのメモリリーク」に対する深い理解がなければ、処理の途中で予期せぬ「実行時エラー 4605」や、リソース枯渇によるクラッシュを引き起こすことになる。
本稿では、Word VBAにおける「段落枠線の自動描画」をテーマに、数万段落をミリ秒単位で走査し、メモリを1バイトも無駄にしないプロフェッショナル規格の極限アーキテクチャを提示する。
—
1. アーキテクチャの核心：全件ループを排し「Find物理走査」へシフトせよ
Word VBAにおいて、最もコストが高い処理は「VBA実行エンジンとWordレイアウトエディタ（COM）間のプロセッサ境界の横断」である。
`ActiveDocument.Paragraphs` コレクションに対する `For Each` ループは、段落にアクセスするたびにこの境界を横断するため、段落数 $N$ に対して $O(N)$ の莫大な通信オーバーヘッドが発生する。
解決策：`Range.Find` によるダイレクト・インデックス・アクセス
これを回避するためには、WordのネイティブC++検索エンジンである `Find` オブジェクトを駆動させ、該当するキーワードが存在するアドレス（Range）のみをピンポイントで抽出し、そのRangeから「段落」へと昇格（Upcast）させる設計をとる。これにより、計算量はヒット数 $M$ （$M \ll N$）に依存する $O(M)$ へと劇的に縮退する。
【非効率なアプローチ (O(N))】
全段落を走査 ──> [段落1] ──> [段落2 (判定)] ──> [段落3] ──> … ──> [段落10000]
※ 毎回COM境界を横断し、パフォーマンスが崩壊する。
【プロフェッショナル・アプローチ (O(M))】
Findエンジン ──> キーワードを直接インデックス検索 ──> [ヒットしたRange] ──> 段落へ拡張
※ Word内部の高速C++エンジンに処理を委ねるため、VBA側のオーバーヘッドは最小限となる。
—
2. Wordにおける「枠線（Borders）」の物理特性と罠
Wordの段落枠線（`Paragraph.Borders`）を制御する際、避けて通れない仕様上の罠がいくつか存在する。
① 隣接する段落の自動結合問題
Wordの既定の挙動では、同じ枠線書式を持つ段落が連続した場合、それらは1つの巨大なボックスとして結合されてしまう。個別の段落ごとに独立した枠線（または左側のアクセントライン）を描画したい場合は、段落の境界設定（`Borders.JoinBorders`）や、段落前後のスペース（`SpaceBefore` / `SpaceAfter`）を明示的に制御する必要がある。
② 左アクセントライン（wdBorderLeft）と4辺ボックス（Box）の選択
単に4辺を囲むだけでは、モダンなドキュメントデザインとしては些か古臭い。現代的なドキュメントデザインでは、「左側に太さ3ptの特色（赤やオレンジ）の縦線を引き、背景を薄いグレーにする」といった、Markdownの「Blockquote（引用）」風のデザインが好まれる。本実装では、この「左単一線」と「4辺囲み」を柔軟に切り替えられる抽象化レイヤーを構築する。
—
3. 極限のパフォーマンス＆メモリ最適化
本システムを本番環境（特に数時間連続稼働するバッチ処理や、共有サーバー上のドキュメント変換エンジン）で稼働させるためには、以下の低レイヤーでの最適化が必須となる。
① 描画および自動校正エンジンの完全停止
Wordの「リアルタイムスペルチェック（`Spelling`）」や「文章校正（`Grammar`）」、および「画面描画（`ScreenUpdating`）」は、VBAによるテキスト変更や書式適用が行われるたびにバックグラウンドで再計算を実行する。これらを処理開始時に一時的に封印し、処理終了時に復元することで、実行速度を数倍〜数十倍に引き上げる。
② COMオブジェクトの厳密なライフサイクル管理
VBAのガベージコレクション（GC）は参照カウント方式である。ループ内で生成される `Range` や `Find` オブジェクトを変数に代入したまま放置すると、Wordの内部メモリ（ヒープ領域）が断片化し、最終的に「アウト・オブ・メモリー」を引き起こす。
処理の各フェーズで、不要になったCOMラッパーを明示的に `Nothing` で解放し、参照カウントをゼロに戻す。
③ Windows API（QueryPerformanceCounter）による超精密プロファイリング
最適化の効果をミリ秒単位で検証するため、Windowsのカーネルから高精度タイマーを取得し、処理時間をロギングする。
—
4. 完全実戦配備用プロダクションコード
以下に、上記の設計思想をすべて具現化した、極めて堅牢で高速なVBAマクロコードを示す。
このコードは、エラーハンドリング、Windows APIによる精密計測、描画抑制、メモリ解放、そして枠線の高度なカスタマイズ機能をすべて内包している。
Option Explicit
‘ ==============================================================================
‘ Windows API 定義（高精度パフォーマンスカウンタ用）
‘ ==============================================================================
If VBA7 Then
Private Declare PtrSafe Function QueryPerformanceCounter Lib “kernel32” (lpPerformanceCount As Currency) As Long
Private Declare PtrSafe Function QueryPerformanceFrequency Lib “kernel32” (lpFrequency As Currency) As Long
Else
Private Declare Function QueryPerformanceCounter Lib “kernel32” (lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib “kernel32″ (lpFrequency As Currency) As Long
End If
‘ ==============================================================================
‘ 列飾用の定数定義
‘ ==============================================================================
Public Enum DecorationStyle
DecoStyle_LeftBar = 1 ‘ 左側に太いアクセントライン（推奨：モダンデザイン）
DecoStyle_FullBox = 2 ‘ 四辺を囲むボックス（クラシック警告枠）
End Enum
”’
”’
Public Sub ApplyAdvancedParagraphBorders()
On Error GoTo ErrorHandler
‘ ————————————————————————–
‘ 1. 環境測定の準備（プロファイリング開始）
‘ ————————————————————————–
Dim curFreq As Currency, curStart As Currency, curEnd As Currency
Dim dblTimeElapsed As Double
QueryPerformanceFrequency curFreq
QueryPerformanceCounter curStart
‘ ————————————————————————–
‘ 2. アプリケーション状態の退避と最適化の有効化
‘ ————————————————————————–
Dim originalScreenUpdating As Boolean
Dim originalScreenRefresh As Boolean
Dim originalSpelling As Boolean
Dim originalGrammar As Boolean
With Application
originalScreenUpdating = .ScreenUpdating
.ScreenUpdating = False
originalScreenRefresh = .Options.ScreenItems
.Options.ScreenItems = False
originalSpelling = .Options.CheckSpellingAsYouType
.Options.CheckSpellingAsYouType = False
originalGrammar = .Options.CheckGrammarAsYouType
.Options.CheckGrammarAsYouType = False
End With
‘ ————————————————————————–
‘ 3. 走査パラメータの設定
‘ ————————————————————————–
Dim targetDoc As Document
Set targetDoc = ActiveDocument
Dim targetKeyword As String
targetKeyword = “【警告】” ‘ トリガーとなるキーワード
Dim selectedStyle As DecorationStyle
selectedStyle = DecoStyle_LeftBar ‘ 装飾スタイルの選択
Dim borderRGBColor As Long
borderRGBColor = RGB(220, 53, 69) ‘ 警告色（鮮烈なレッド：#DC3545）
Dim backgroundRGBColor As Long
backgroundRGBColor = RGB(248, 249, 250) ‘ 背景色（極めて薄いグレー：#F8F9FA）
‘ ————————————————————————–
‘ 4. Find物理走査エンジンによる超高速マッチング
‘ ————————————————————————–
Dim searchRange As Range
Set searchRange = targetDoc.Content.Duplicate ‘ ドキュメント全体のコピーをRangeとして取得
Dim findEngine As Find
Set findEngine = searchRange.Find
Dim matchCount As Long
matchCount = 0
With findEngine
.ClearFormatting
.Text = targetKeyword
.Forward = True
.Wrap = wdFindStop ‘ 終端に達したら停止（無限ループ防止）
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
‘ 検索ループの実行
Do While findEngine.Execute
‘ マッチしたRangeから、所属する段落オブジェクト（Paragraphs(1)）を特定
Dim paragraphRange As Range
Set paragraphRange = searchRange.Duplicate
paragraphRange.Expand Unit:=wdParagraph ‘ 段落全体に選択範囲を拡張
‘ 装飾処理の実行
ApplyBordersToParagraphRange paragraphRange, selectedStyle, borderRGBColor, backgroundRGBColor
matchCount = matchCount + 1
‘ 次の検索のために検索開始位置を現在の段落の末尾にシフト
searchRange.Collapse Direction:=wdCollapseEnd
‘ COM参照の解放（ループ内メモリリーク対策）
Set paragraphRange = Nothing
Loop
‘ ————————————————————————–
‘ 5. 後処理とプロファイリング結果の出力
‘ ————————————————————————–
QueryPerformanceCounter curEnd
dblTimeElapsed = CDbl(curEnd – curStart) / CDbl(curFreq)
‘ アプリケーション状態の復元
With Application
.ScreenUpdating = originalScreenUpdating
.Options.ScreenItems = originalScreenRefresh
.Options.CheckSpellingAsYouType = originalSpelling
.Options.CheckGrammarAsYouType = originalGrammar
End With
‘ メモリの明示的解放
Set findEngine = Nothing
Set searchRange = Nothing
Set targetDoc = Nothing
‘ 完了報告（シニア仕様のコンソールログ）
Debug.Print “==================================================”
Debug.Print ” WORD PARAGRAPH DECORATION ENGINE TERMINATED”
Debug.Print “==================================================”
Debug.Print ” 処理時間 : ” & Format(dblTimeElapsed, “0.0000”) & ” 秒”
Debug.Print ” 検出ヒット数 : ” & matchCount & ” 件”
Debug.Print ” 装飾スタイル : ” & IIf(selectedStyle = DecoStyle_LeftBar, “左アクセントバー”, “四辺囲みボックス”)
Debug.Print “==================================================”
MsgBox “自動装飾が完了しました。” & vbCrLf & _
“処理時間: ” & Format(dblTimeElapsed, “0.0000”) & ” 秒” & vbCrLf & _
“処理段落数: ” & matchCount & ” 件”, vbInformation, “処理完了”
Exit Sub
ErrorHandler:
‘ 異常発生時のセーフティネット
On Error Resume Next
With Application
.ScreenUpdating = True
.Options.ScreenItems = True
.Options.CheckSpellingAsYouType = True
.Options.CheckGrammarAsYouType = True
End With
Dim errNum As Long, errDesc As String
errNum = Err.Number
errDesc = Err.Description
‘ メモリ強制解放
Set paragraphRange = Nothing
Set findEngine = Nothing
Set searchRange = Nothing
Set targetDoc = Nothing
MsgBox “致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & errNum & vbCrLf & _
“エラー内容: ” & errDesc, vbCritical, “システムエラー”
End Sub
”’
”’
Private Sub ApplyBordersToParagraphRange( _
ByRef targetRange As Range, _
ByVal style As DecorationStyle, _
ByVal borderRGB As Long, _
ByVal bgRGB As Long)
‘ Wordの段落書式（ParagraphFormat）および枠線（Borders）へのショートカット作成
Dim targetBorders As Borders
Set targetBorders = targetRange.ParagraphFormat.Borders
‘ 一旦すべての既存枠線をクリアして初期化（安全性の担保）
targetBorders.Enable = False
‘ 背景色の適用（Shading）
targetRange.ParagraphFormat.Shading.BackgroundPatternColor = bgRGB
‘ スタイル分岐による物理描画
Select Case style
Case DecoStyle_LeftBar
‘ 左側にモダンな太い縦線を描画
With targetBorders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt ‘ 3.0ポイント（重厚感のあるアクセント）
.Color = borderRGB
End With
‘ 他の3辺を明示的に非表示
targetBorders(wdBorderTop).LineStyle = wdLineStyleNone
targetBorders(wdBorderBottom).LineStyle = wdLineStyleNone
targetBorders(wdBorderRight).LineStyle = wdLineStyleNone
Case DecoStyle_FullBox
‘ 4辺をクラシックな実線で囲む
Dim borderIndex As Variant
Dim targetSides As Variant
targetSides = Array(wdBorderTop, wdBorderBottom, wdBorderLeft, wdBorderRight)
For Each borderIndex In targetSides
With targetBorders(borderIndex)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth150pt ‘ 1.5ポイント（バランスの良い太さ）
.Color = borderRGB
End With
Next borderIndex
End Select
‘ 隣接段落との間隔調整（枠線が詰まって見苦しくなるのを防ぐためのインデント・余白設計）
With targetRange.ParagraphFormat
.SpaceBefore = 6 ‘ 段落前のスペース（6pt）
.SpaceAfter = 6 ‘ 段落後のスペース（6pt）
‘ 必要に応じてインデントを調整することで、枠線と文字の衝突を防ぐ
.LeftIndent = MillimetersToPoints(4) ‘ 左インデントを4mmに設定
.RightIndent = MillimetersToPoints(4) ‘ 右インデントを4mmに設定
End With
‘ COM参照の解放
Set targetBorders = Nothing
End Sub
—
5. コードのディープダイブ：なぜこのコードは「劇的に速く、安全」なのか
このコードが単なるサンプルマクロの領域を超え、エンタープライズでの使用に耐えうる理由を解説する。
① `Duplicate` プロパティによるRangeのデカップリング
検索ルーチン内において、`targetDoc.Content.Duplicate` を使用している。
`ActiveDocument.Content` を直接操作（破壊）したり、カーソル（`Selection`）を移動させたりすると、画面の再描画プロセスがトリガーされ、速度が著しく低下する。`Duplicate` メソッドは、Wordのメモリ空間内に「現在のドキュメントの複製ポインタ」を生成するため、ユーザーの画面表示や選択状態を一切乱すことなく、バックグラウンドでの超高速演算が可能になる。
② `wdFindStop` による無限ループの完全排除
Word VBAの `Find` は、検索がドキュメントの末尾に達した際に、既定の設定では最初に戻ってループを継続しようとする（`wdFindAsk` や `wdFindContinue` の挙動）。
本コードでは `Wrap = wdFindStop` を明示的に指定し、且つヒットした段落の末尾に `searchRange.Collapse Direction:=wdCollapseEnd` で検索範囲を圧縮・移動させている。これにより、同じキーワードを二度検出して無限ループに陥るバグを物理的に排除している。
③ インデントと余白の自動計算（美観の追求）
段落に枠線を引くだけでは、文字が枠線の極限まで接近し、DTP（卓上出版）の観点から非常に美しいとは言えない成果物になってしまう。
このコードでは、`MillimetersToPoints` を使用して左右に正確に `4mm` の余白（インデント）を確保し、段落の前後にも `6pt` のマージン（`SpaceBefore` / `SpaceAfter`）を動的に付与している。これにより、ただ自動化するだけでなく、「人間が読みやすい極めて洗練されたレイアウト」を動的に生成する。
—
おわりに：レガシーを「掌握」し、モダンな資産へ昇華させる
Wordドキュメントの自動生成や整形は、一見すると枯れた技術に見える。しかし、その内部に潜むCOMの挙動、メモリリークの温床、そしてレイアウトエンジンの特性を理解しているエンジニアは極めて少ない。
今回紹介した「`Find` によるインデックス抽出」「COMオブジェクトの明示的解放」「描画・校正エンジンの抑制」を組み合わせたアーキテクチャは、Word VBAにおけるパフォーマンスチューニングの「極み」である。
このアプローチは、Word VBAのみならず、ExcelからWordを制御するクロスアプリケーション開発や、VB.NET / C# によるVSTO開発、さらにはCOMインターフェースを仲介するすべてのシステム連携において絶大な効果を発揮する。
レガシーな技術だからこそ、誰よりも深く、その物理構造を理解して操る。これこそが、開発の現場を支配するチーフアーキテクトに求められる真の技術力である。
