【Word VBA】「段落枠」を自動描画せよ：キーワード検知による動的装飾の極意
開発現場でよくある要望だ。「この長大な仕様書や契約書の中で、『重要』『注意』『Forbidden』といった特定のキーワードが含まれる段落だけを、視覚的に枠で囲んで強調したい」。
これを手動でやっているようでは、エンジニアの名が廃る。さらに言えば、素人が書いた場当たり的なVBAコードを使えば、Wordの描画エンジンが悲鳴を上げ、数千行のドキュメントでメモリリークやフリーズを引き起こす。
今回は、Word VBAにおける「段落（Paragraph）オブジェクト」と「境界線（Borders）コレクション」のライフサイクルを完全に掌握し、実務の現場で絶対に破綻しない堅牢な自動装飾ロジックを伝授する。
—
1. なぜ素人コードは遅く、壊れるのか？
Word VBAで最もやってはいけないアンチパターンは、ドキュメント全体を漫然とループさせ、その都度画面を再描画（ScreenUpdating）させることだ。
特に「段落枠（Borders）」の操作は、Wordの内部DOM（文書オブジェクトモデル）において非常に重い処理の一つである。
以下の設計原則を無視したコードは、プロダクション環境では使い物にならない。
1. 画面描画の抑制（`ScreenUpdating = False`）の徹底:
これを怠ると、段落が1つ処理されるたびにWordがGUIを再描画し、処理速度が数百倍に落ちる。
2. オブジェクト変数の適切な解放:
特にRangeやParagraphを操作する際、メモリの参照リークを防ぐ意識が必要だ。
3. 境界線プロファイルの一括設定:
Bordersコレクションは、上下左右を個別にいじると処理が肥大化する。一括でスタイル、太さ、色を流し込む設計が基本となる。
—
2. 堅牢なプロダクションコード
以下のコードは、指定したキーワード（複数可）が段落内に含まれるかを判定し、該当する場合のみ「美しい段落枠」を動的に描画するプロシージャだ。
エラーハンドリング、パフォーマンスチューニング、可読性を極限まで高めた実務仕様となっている。
Option Explicit
‘ ==============================================================================
‘ 処理名: HighlightParagraphsByKeyword
‘ 概要 : 指定キーワードを含む段落に、自動的に段落枠（ボダー）を描画して強調する
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Public Sub HighlightParagraphsByKeyword()
‘ 1. 監視・設定するキーワードの定義（必要に応じて拡張可能）
Dim targetKeywords() As String
targetKeywords = Split(“【重要】,【注意】,【Forbidden】,WARNING”, “,”)
Dim doc As Document
Set doc = ActiveDocument
‘ 2. ドキュメント保護のチェック（必要に応じ）
If doc.ProtectionType <> wdNoProtection Then
MsgBox “このドキュメントは保護されているため、書式を変更できません。”, vbCritical, “処理中断”
Exit Sub
End If
‘ 3. パフォーマンスと安定性のための環境設定
With Application
.ScreenUpdating = False
.Calculation = wdCalculationManual
.DisplayAlerts = wdAlertsNone
End With
Dim startTime As Double
startTime = Timer
On Error GoTo ErrorHandler
Dim targetPara As Paragraph
Dim keyword As Variant
Dim isMatch As Boolean
Dim processedCount As Long
processedCount = 0
‘ 4. 段落コレクションの走査（逆順ループではなく、通常の順方向イテレーション）
For Each targetPara In doc.Paragraphs
‘ 空段落や表内の特殊な段落などをスキップ（範囲外アクセス防止）
If targetPara.Range.Characters.Count > 1 Then
isMatch = False
‘ キーワード判定
For Each keyword in targetKeywords
If InStr(1, targetPara.Range.Text, CStr(keyword), vbTextCompare) > 0 Then
isMatch = True
Exit For ‘ ヒットした時点で内側ループを抜ける
End If
Next keyword
‘ 条件一致した場合のみ枠線を適用
If isMatch Then
Call ApplyAttentionBox(targetPara)
processedCount = processedCount + 1
Else
‘ 既存の不要な枠線をクリア（再実行時のクレンジング処理）
Call ClearAttentionBox(targetPara)
End If
End If
Next targetPara
ErrorHandler_Exit:
‘ 5. 環境設定の確実な復元（エラー発生時も必ず実行）
With Application
.ScreenUpdating = True
.Calculation = wdCalculationAutomatic
.DisplayAlerts = wdAlertsAll
End With
‘ 完了ログ
Debug.Print “処理完了: 該当段落数 = ” & processedCount & ” / 処理時間 = ” & Format(Timer – startTime, “0.00秒”)
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
Resume ErrorHandler_Exit
End Sub
‘ ==============================================================================
‘ 内部関数: 段落に美しい強調枠（左太線＋周囲の薄い枠）を適用する
‘ ==============================================================================
Private Sub ApplyAttentionBox(ByVal para As Paragraph)
Dim borderItem As Border
‘ 段落全体の囲み線を有効化
For Each borderItem In para.Borders
With borderItem
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth075 ‘ 0.75ptの細い枠
.Color = wdColorGrayLight
End With
Next borderItem
‘ さらに視認性を高めるため、左側だけ太くシャープなアクセントカラー（赤など）にする
With para.Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300 ‘ 3.0ptの太線
.Color = wdColorDarkRed
End With
‘ 枠内とテキストの余白（パディング）を設定して読みやすくする
With para
.LeftIndent = MillimetersToPoints(3)
.RightIndent = MillimetersToPoints(3)
‘ 必要に応じて背景色（網掛け）を薄く敷く場合
‘ .Shading.BackgroundPatternColor = wdColorGray10
End With
End Sub
‘ ==============================================================================
‘ 内部関数: 不要になった枠線をクリアする
‘ ==============================================================================
Private Sub ClearAttentionBox(ByVal para As Paragraph)
Dim borderItem As Border
For Each borderItem In para.Borders
borderItem.LineStyle = wdLineStyleNone
Next borderItem
‘ インデントをリセット（初期値に戻す）
para.LeftIndent = 0
para.RightIndent = 0
End Sub
—
3. アーキテクチャの解説：なぜこのコードが「プロ仕様」なのか？
① 状態のクレンジング（冪等性・アイデポテンシーの担保）
このコードには `ClearAttentionBox` が組み込まれている。
ドキュメントの修正と再実行を行った際、「以前はキーワードが含まれていたが、削除された段落」に古い枠線が残ってしまう事故を防ぐためだ。プログラムを何回実行しても結果が一致する（冪等性）設計は、業務自動化において絶対の正義である。
② 計算モード（Calculation）と画面描画の完全制御
`Application.Calculation = wdCalculationManual` により、Wordの自動フィールド更新やページレイアウトの再計算を一時停止させている。
これにより、何百ページもある重厚長大なWordファイルであっても、数秒足らずで一括処理が完了する。
③ インデントとパディングの調和
単に枠で囲むだけでは、文字が枠の境界線に張り付いてしまい、かえって視認性が落ちる。
`ApplyAttentionBox` では、`LeftIndent` / `RightIndent` をミリメートル単位（`MillimetersToPoints`）で適切に調整し、さらに左側にのみ太いレッド系のアクセントボーダーを配置することで、UI/UX的に洗練された「デザイナーズドキュメント」のような仕上がりを実現している。
—
4. 拡張と外部システム連携を見据えて
実務でこのマクロを運用する場合、次のような拡張が求められる。
- データベースやExcelからのキーワード動的取得:
コード内にハードコーディングされた `targetKeywords` ではなく、外部のExcelマスタやSQL Server、あるいはJSON設定ファイルから「今監視すべきキーワードリスト」を動的に読み込ませるアーキテクチャへの変更は容易だ。
- ログのファイル出力:
`Debug.Print` だけでなく、処理された段落のページ番号やテキストのハッシュ値をCSVログとして吐き出す監査ログ機能を付加すれば、ISOや内部統制の文書管理プロセスにも組み込める。
妥協のないコード設計で、あなたの手元のWordファイルを「読む気にさせる美しいドキュメント」へと生まれ変わらせてほしい。
