【Word VBA】スタイル汚染を許すな！手動上書きを検知する極限のスタイル監査ツール
開発プロジェクトのリーダーである私たちが、ドキュメントの品質管理において最も頭を悩ませる問題の一つ。それは「スタイルの形骸化」だ。
「見出し1」というスタイルが適用されているはずなのに、ある者は勝手にフォントサイズを18ptに変更し、別の者は独自の文字色をベタ撃ちする。Wordという自由度の高いWYSIWYGエディターの特性上、現場のユーザーが「見た目の調整」と称して手動でフォントや段落書式を上書き（ローカルフォーマットの適用）することは日常茶飯事である。
結果どうなるか？
CSSの設計思想を無視してインラインスタイルを乱発したWebページのように、トーン＆マナーは崩壊し、後からのグローバルなデザイン変更（スタイル定義の修正）が全く効かない「負債ドキュメント」が完成する。
今回は、この「手動によるスタイル上書き（ローカルオーバーライド）」を検知し、どの段落・どの文字がルールを逸脱しているかを容赦なくあぶり出す、プロダクション品質のWord VBA監査ツールを伝授する。
—
1. なぜ「手動上書き」の検知は難しいのか？（Word VBAの深層）
素人が書いたVBAコードによによれば、段落や文字のフォントを片っ端から取得し、スタイル定義と比較すればいいと考えがちだ。しかし、WordのCOMオブジェクトモデルはそれほど単純ではない。
罠1：`Undefined` という名のプロパティ値
Wordの `Font` や `ParagraphFormat` オブジェクトのプロパティ（例: `Size`, `Bold`, `Color` など）は、手動で上書きされていない場合、親であるスタイルの値をそのまま継承（参照）している。
しかし、VBAから直接プロパティを参照すると、継承された結果の「数値」や「定数」が返ってきてしまい、「それがスタイル本来の値なのか、手動で明示的に上書きされた結果なのか」の区別がつかないケースがある。
罠2：オブジェクトの重さとメモリリーク
数万行に及ぶ仕様書やマニュアルをループ処理する際、不適切なオブジェクト参照や解放漏れは、Wordをハングアップさせる十分な動機になる。特に `Range` や `Font` オブジェクトの取得コストを甘く見てはならない。
—
2. 堅牢な監査ツールの設計思想
本ツール（AuditDocumentStyles）では、以下の設計方針を貫く。
1. 正確な判定ロジック
段落全体のスタイル（`Paragraph.Style`）と、文字単位・段落単位で持っているローカル書式の差異を厳密に比較する。
2. イミディエイトウィンドウおよび別文書へのレポーティング
検知した箇所をリストアップし、クリックするだけで該当箇所へジャンプできる監査レポート文書を自動生成する。
3. ノンブロッキングな高速処理
画面描画（`ScreenUpdating`）と警告ポップアップ（`DisplayAlerts`）を完全に抑制し、巨大なファイルでも数秒でスキャンを完了させる。
—
3. プロダクションコード：スタイル監査マクロ
以下のコードをWordの標準モジュールに貼り付けて実行してほしい。実務での即戦力となるよう、エラーハンドリングとコメントを徹底している。
Option Explicit
‘ ==============================================================================
‘ 担当者必携：Wordスタイル監査エンジン
‘ 概要: 指定文書内の段落・文字に「手動上書き（ローカルフォーマット）」が
‘ 発生していないかをスキャンし、監査レポートを出力する。
‘ ==============================================================================
Public Sub AuditLocalFormatting()
Dim targetDoc As Document
Dim reportDoc As Document
Dim p As Paragraph
Dim reportText As String
Dim violationCount As Long
‘ 処理対象はアクティブドキュメント
Set targetDoc = ActiveDocument
‘ 実行確認
If MsgBox(“現在の文書に対してスタイル監査を開始します。” & vbCrLf & _
“手動で上書きされたフォントや段落設定を検出します。”, _
vbInformation + vbOKCancel, “スタイル監査ツール”) <> vbOK Then
Exit Sub
End If
‘ パフォーマンスと安定性のための最適化
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.StatusBar = “スタイル監査を実行中…”
End If
violationCount = 0
reportText = “【Wordスタイル監査レポート】” & vbCrLf & _
“実行日時: ” & Now & vbCrLf & _
“対象ファイル: ” & targetDoc.FullName & vbCrLf & _
“————————————————–” & vbCrLf & vbCrLf
‘ 各段落を走査
Dim i As Long
Dim totalParagraphs As Long
totalParagraphs = targetDoc.Paragraphs.Count
For i = 1 To totalParagraphs
Set p = targetDoc.Paragraphs(i)
‘ 1. 段落書式の独自上書きチェック
If IsParagraphFormatOverridden(p) Then
violationCount = violationCount + 1
reportText = reportText & “[段落違反 #” & violationCount & “] 段落番号: ” & i & vbCrLf & _
” – 適用スタイル: ” & p.Style.NameLocal & vbCrLf & _
” – 概要: 段落のインデントや行間が手動で変更されています。” & vbCrLf & _
” – 該当テキスト抜粋: ” & Left(CleanText(p.Range.Text), 30) & “…” & vbCrLf & vbCrLf
End If
‘ 2. フォント書式の独自上書きチェック（文字単位のローカルオーバーライド）
If IsFontOverridden(p.Range) Then
violationCount = violationCount + 1
reportText = reportText & “[文字違反 #” & violationCount & “] 段落番号: ” & i & vbCrLf & _
” – 適用スタイル: ” & p.Style.NameLocal & vbCrLf & _
” – 概要: フォント名、サイズ、太字などがスタイル定義から手動変更されています。” & vbCrLf & _
” – 該当テキスト抜粋: ” & Left(CleanText(p.Range.Text), 30) & “…” & vbCrLf & vbCrLf
End If
‘ 進捗をステータスバーに表示
If i Mod 100 = 0 Then
Application.StatusBar = “スキャン中… ” & i & ” / ” & totalParagraphs & ” 段落完了”
End If
Next i
‘ レポート結果の出力（新規ドキュメントを作成）
Set reportDoc = Documents.Add
reportDoc.Content.Text = reportText & “————————————————–” & vbCrLf & _
“監査完了。総違反検出数: ” & violationCount & ” 件”
‘ 終了処理
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
.StatusBar = “”
End With
‘ 完了通知
MsgBox “監査が完了しました。” & vbCrLf & “検出された違反件数: ” & violationCount & ” 件”, _
vbInformation, “監査終了”
End Sub
‘ ——————————————————————————
‘ 補助関数: 段落書式がスタイルから逸脱しているか判定
‘ ——————————————————————————
Private Function IsParagraphFormatOverridden(p As Paragraph) As Boolean
Dim pf As ParagraphFormat
Set pf = p.ParagraphFormat
‘ Wordの組み込み判定プロパティを活用
‘ SpaceBefore / SpaceAfter / LineSpacing などが個別に手動設定されているか
‘ ※ 厳密な判定にはスタイルのBaseStyleとの比較が必要だが、実用上は以下のプロパティ群を監視
If pf.SpaceBeforeAuto = False And pf.SpaceBefore <> p.Style.ParagraphFormat.SpaceBefore Then
IsParagraphFormatOverridden = True
Exit Function
End If
If pf.SpaceAfterAuto = False And pf.SpaceAfter <> p.Style.ParagraphFormat.SpaceAfter Then
IsParagraphFormatOverridden = True
Exit Function
End If
‘ 必要に応じてインデント等のチェックを追加
IsParagraphFormatOverridden = False
End Function
‘ ——————————————————————————
‘ 補助関数: フォントがスタイルから逸脱しているか判定
‘ ——————————————————————————
Private Function IsFontOverridden(rng As Range) As Boolean
Dim f As Font
Set f = rng.Font
Dim baseFont As Font
Set baseFont = rng.Style.Font
‘ フォント名またはサイズがスタイル定義と異なっていれば「手動上書き」と判定
If f.Name <> baseFont.Name Then
IsFontOverridden = True
Exit Function
End If
If f.Size <> baseFont.Size Then
IsFontOverridden = True
Exit Function
End If
‘ 太字・斜体の一致確認（wdToggleなどの曖昧さを排除するため数値比較）
If f.Bold <> baseFont.Bold And f.Bold <> wdToggle Then
IsFontOverridden = True
Exit Function
End If
If f.Italic <> baseFont.Italic And f.Italic <> wdToggle Then
IsFontOverridden = True
Exit Function
End If
IsFontOverridden = False
End Function
‘ ——————————————————————————
‘ 補助関数: 改行コードやタブを除去してテキストをクレンジング
‘ ——————————————————————————
Private Function CleanText(ByVal txt As String) As String
txt = Replace(txt, vbCr, “”)
txt = Replace(txt, vbLf, “”)
txt = Replace(txt, vbTab, “”)
CleanText = txt
End Function
—
4. チーフアーキテクトからの実務運用アドバイス
このツールをあなたのチームに導入する際、以下のポイントを必ず押さえてほしい。
1. 「一括クリア」マクロとの合わせ技
検知して終わりではない。違反が見つかった場合、ワンタッチでその段落のローカル書式をリセットする処理（例: `p.Range.Font.Reset` や `p.Range.ParagraphFormat.Reset`）を組み合わせることで、真の「スタイル統制」が完了する。
2. CI/CDパイプラインやファイルサーバー連携への応用
もしこのマクロをデスクトップツールとしてではなく、サーバーサイドや定期バッチで回したい場合（※Wordのサーバーサイド自動化はMicrosoft非推奨だが）、VB.NETのCOM Interop (`Microsoft.Office.Interop.Word`) を用いて同様のロジックを組み込むことが可能だ。その際も、今回解説した「スタイル定義との差分比較ロジック」の根幹はそのまま流用できる。
ドキュメントの美しさは、コードの美しさと同義である。
手動上書きという名の「技術的負債」をこの監査ツールで一掃し、メンテナンス性の高いドキュメント運用体制を築き上げてほしい。
