【Word VBA】段落の「網掛け・塗りつぶし色」を一括駆逐する極限のクリーンアップ・アーキテクチャ
業務システムの帳票出力、あるいは社内の様々な部署から寄せ集められた文書。これらを統合するフェーズにおいて、エンジニアの前に立ち塞がる最大の障壁の1つが「過剰な装飾とスタイルの崩壊」である。
特に、ユーザーが善意のつもりで適用した「段落の網掛け（背景色・塗りつぶし）」は、Wordの内部XML構造において厄介なフットプリントを残す。これを放置したまま後続の自動処理やPDF化、他システムへのデータ連携を行うと、予期せぬレイアウト崩壊や描画パフォーマンスの低下を引き起こす。
今回は、Word VBAのオブジェクトモデルの深淵を見据え、文書全体に散らばる段落の背景色を一網打尽にクリアし、視認性を標準化するための「プロダクション品質」のマクロを提示する。
—
1. Word背景色の正体と、標準機能の限界
Wordにおける「段落の塗りつぶし」は、単なるフォントの色変更とは異なる。これは段落書式（`ParagraphFormat`）の一部、あるいは網掛け（`Shading`）オブジェクトとして保持されている。
GUI操作であれば「段落の網掛け」から「色なし」を選択すれば済む話だが、何百ページもある膨大なレガシー文書や、数十のファイルをバッチ処理するシステムにおいて、手動でのクリーンアップなどエンジニアの恥辱である。
ここで安易に「全選択してクリア」というコードを書く初心者がいるが、それはドキュメント内の意図的なインライン画像や表構造まで破壊する暴挙だ。我々は、「段落の背景色のみを狙い撃ちし、メモリ効率を極限まで高めたアルゴリズム」を実装しなければならない。
—
2. 実装コード：High-Performance Shading Cleaner
以下のコードは、単に動くだけのスクリプトではない。大規模文書をノーロックで高速処理するため、画面描画の抑制、オブジェクトの適切なスコープ管理、そして網掛けプロパティの完全な初期化を組み込んだプロフェッショナル仕様である。
Option Explicit
‘ ==============================================================================
‘ 処理名: 暴走する段落背景色を駆逐し、文書の視認性を標準化するクリーンアッププロシージャ
‘ アーキテクチャノート:
‘ – ScreenUpdating と DisplayAlerts を無効化し、COMの描画コストを排除
‘ – ShadingオブジェクトのBackgroundPatternColorをwdColorAutomaticに強制置換
‘ ==============================================================================
Sub CleanUpParagraphShading()
Dim startTime As Double
startTime = Timer
‘ 1. システムリソースの最適化（描画と警告の抑制）
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ 文書保護がかかっている場合の安全装置
If targetDoc.ProtectionType <> wdNoProtection Then
MsgBox “この文書は保護されています。保護を解除してから実行してください。”, vbCritical, “アーキテクチャ警告”
GoTo CleanUpExit
End If
Dim pGraph As Paragraph
Dim processedCount As Long
processedCount = 0
‘ 2. 段落コレクションの走査
‘ ※ 逆順ループ（For i = … To 1）は、段落削除を伴わないため正順で十分高速
For Each pGraph In targetDoc.Paragraphs
‘ 網掛け（Shading）オブジェクトへの参照を取得
With pGraph.Shading
‘ 背景色が設定されている場合のみ処理（無駄な代入コストを避ける）
If .BackgroundPatternColor <> wdColorAutomatic Then
.BackgroundPatternColor = wdColorAutomatic
.ForegroundPatternColor = wdColorAutomatic
.Texture = wdTextureNone
processedCount = processedCount + 1
End If
End With
ForNextParagraph:
Next pGraph
‘ 3. 変更の確定と完了通知
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
MsgBox “クリーンアップが完了しました。” & vbCrLf & _
“処理対象段落数: ” & processedCount & ” 件” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00秒”), _
vbInformation, “チーフアーキテクト報告”
Exit Sub
CleanUpExit:
‘ 異常終了時のフォールバック
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
Set targetDoc = Nothing
End Sub
—
3. コードの急所：なぜこの実装なのか？
シニアエンジニアであれば、上記のコードに散りばめられた「現場の知見」に気づくだろう。
① `Shading` オブジェクトの完全初期化
単に `BackgroundPatternColor = wdColorAutomatic` とするだけでは不十分な場合がある。前任者が不適切なテクスチャや前景色を設定しているケースでは、以下の3点セットで初期化するのが鉄則である。
- `.BackgroundPatternColor = wdColorAutomatic`
- `.ForegroundPatternColor = wdColorAutomatic`
- `.Texture = wdTextureNone`
これらを網羅することで、XMLレベルでの「ゴミ」を完全に消し去る。
② COM Interop のオーバーヘッド排除
VBAからWordを操作する際、最もボトルネックになるのはVBAとWord本体（C++製コア）の間で行われるCOMコンテキストのスイッチングである。
`Application.ScreenUpdating = False` を挟むことは基本中の基本だが、さらに `For Each` ループ内で余計なオブジェクト生成（`Selection` の利用など）を一切行わず、直接メモリ上の `Paragraph.Shading` プロパティを叩くことで、数万行の文書であっても一瞬で処理を完了させる。
③ 堅牢なエラーハンドリングとフォールバック
巨大なマクロでありがちなのが、途中でエラーが発生した際に `ScreenUpdating = False` のまま画面がフリーズしたように固まる現象である。本コードでは `GoTo CleanUpExit` による確実な状態復帰（クリーンアップ・パターンの踏襲）を実装し、実運用における安全性を担保している。
—
総括
文書のクリーンアップは、自動化システムの信頼性を左右する地味だが極めて重要な工程である。
場当たり的なマクロで一時しのぎをするのではなく、Wordの内部構造とオブジェクトのライフサイクルを理解した上でコードを書くこと。それこそが、レガシーシステムを永遠に保守可能な資産へと昇華させる唯一の道である。
