Word VBAを掌握する極限の知見：スタイル逸脱監査ツールの設計と実装
Word文書の品質管理において、最大の敵は「ヒューマンエラーによる手動上書き」である。
コーポレートスタイルガイドや納品仕様書で厳格に「見出し1にはArial、14pt、Boldを指定する」と定めていても、実務の現場では、執筆者が泥臭くリッチテキストエディタ感覚でフォントサイズを直接変更し、スタイル定義の整合性を破壊していく。
スタイルの継承構造を信じて自動目次生成や一括置換を走らせた結果、手動でローカル書式が上書きされた段落だけが例外として取り残され、ドキュメント全体の一貫性が音を立てて崩壊する。この「スタイルの偽装」を許容することは、ドキュメントエンジニアリングの敗北を意味する。
今回は、Word VBAのオブジェクトモデルの深部を突撃し、段落に適用されたスタイルと、実際のローカルフォント/段落プロパティの乖離をミリ秒単位で検知・監査するエンタープライズグレードの監査ツールを構築する。
—
1. Wordスタイルアーキテクチャの暗部：なぜ `.Font` を直接見ても無駄なのか？
多くのVBA初学者は、スタイル逸脱を検知しようとして、次のようなナイーブなコードを書く。
‘ 【アンチパターン】これでは手動上書きを検知できない
If rng.Paragraphs(1).Style.Font.Size <> rng.Paragraphs(1).Range.Font.Size Then
‘ 差異ありと判定…
End If
このアプローチは完全に破綻している。Wordの `Range.Font` や `Paragraph.Range.Font` は、「スタイルから継承された結果の値」を返す仕様になっているからだ。つまり、手動で上書きされていようがいまいが、現在の見かけ上のフォントサイズが取得されるだけであり、スタイル定義との比較にはならない。
手動上書き（ローカル書式変更）を正確に検知するためには、Word内部のオブジェクトライフサイクルと、書式プロパティが持つ「3値論理（True / False / 9999=Undefined）」の特性を暴く必要がある。
ローカル書式オーバーライドの判定メカニズム
Wordの各プロパティ（例：`Font.Bold`, `Font.Name`, `ParagraphFormat.SpaceBefore`）は、明示的に手動変更された場合と、スタイルから継承されている場合で挙動が変わる。
特に、フォントや段落の個別のプロパティを監査する場合、「スタイルが持つデフォルト値」と「Rangeオブジェクトが持つ実効値」の乖離、あるいはプロパティの明示的な設定状態を追跡しなければならない。
—
2. 実装：スタイル逸脱監査ツール（Enterprise Edition）
以下のコードは、指定されたWord文書を走査し、スタイル定義と一致しない（手動でフォント名、サイズ、太字などが直接上書きされている）段落を検出して、イミディエイトウィンドウおよび別ファイルの監査レポートに出力する完全なVBAモジュールである。
メモリ効率を最大化するため、画面描画のロック、イベントの抑制、オブジェクトの明示的な解放（`Set … = Nothing`）を徹底している。
Option Explicit
‘ ==============================================================================
‘ 業務自動化アーキテクチャ：Wordスタイル監査エンジン
‘ 概要: スタイル定義から逸脱したローカル書式（手動上書き）を検出し報告する
‘ ==============================================================================
Public Sub AuditDocumentStyles()
Dim startTime As Double
startTime = Timer
‘ — 1. パフォーマンスと安定性のための環境最適化 —
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.Calculation = wdCalculationManual
End With
On Error GoTo ErrorHandler
Dim docTarget As Document
Set docTarget = ActiveDocument
Dim targetPara As Paragraph
Dim violationCount As Long
violationCount = 0
‘ 監査結果を蓄積するStringBuilder代わりのテキスト（巨大文書対策）
Dim reportBuffer As String
reportBuffer = “=== Word Style Audit Report ===” & vbCrLf & _
“Target Document: ” & docTarget.FullName & vbCrLf & _
“Execution Time: ” & Now & vbCrLf & _
“————————————————–” & vbCrLf
Dim auditedParaCount As Long
auditedParaCount = 0
‘ — 2. 段落コレクションの高速走査 —
For Each targetPara in docTarget.Paragraphs
auditedParaCount = auditedParaCount + 1
‘ 組み込みの標準スタイル（Normalなど）や空段落、リストマーカーのみの段落を必要に応じ除外
If Not targetPara.Range.Style Is Nothing Then
Dim currentStyle As Style
Set currentStyle = targetPara.Style
‘ スタイルが「標準 (Normal)」以外、あるいは特定の見出しスタイルを対象にする場合
‘ ここでは「すべてのスタイル適用段落」を対象に、手動上書きをチェックする
Dim isOverridden As Boolean
isOverridden = False
Dim violationDetails As String
violationDetails = “”
‘ — A. フォント名のローカル上書きチェック —
‘ Range.Font.Name と Style.Font.Name を比較
‘ ※Wordの仕様上、日本語フォントと英字フォントの差異を考慮
If targetPara.Range.Font.Name <> currentStyle.Font.Name Then
isOverridden = True
violationDetails = violationDetails & “[FontName: Expected=” & currentStyle.Font.Name & “, Actual=” & targetPara.Range.Font.Name & “] ”
End If
‘ — B. フォントサイズのローカル上書きチェック —
If targetPara.Range.Font.Size <> currentStyle.Font.Size Then
isOverridden = True
violationDetails = violationDetails & “[FontSize: Expected=” & currentStyle.Font.Size & “pt, Actual=” & targetPara.Range.Font.Size & “pt] ”
End If
‘ — C. 太字(Bold)のローカル上書きチェック —
‘ WordのBoldプロパティは 9999 (wdToggle) などを返すことがあるため、True/Falseで正規化比較
Dim styleBold As Integer, rangeBold As Integer
styleBold = IIf(currentStyle.Font.Bold = True, 1, 0)
rangeBold = IIf(targetPara.Range.Font.Bold = True, 1, 0)
If styleBold <> rangeBold Then
isOverridden = True
violationDetails = violationDetails & “[Bold Override] ”
End If
‘ — 違反検出時の処理 —
If isOverridden Then
violationCount = violationCount + 1
Dim truncatedText As String
truncatedText = Left(Replace(Replace(targetPara.Range.Text, vbCr, “”), vbLf, “”), 30)
reportBuffer = reportBuffer & “Para #” & auditedParaCount & _
” | Style: ” & currentStyle.NameLocal & _
” | Text: ” & truncatedText & “…” & vbCrLf & _
” -> Violation: ” & violationDetails & vbCrLf
End If
‘ オブジェクト変数の解放（メモリリーク防止）
Set currentStyle = Nothing
End If
Next targetPara
‘ — 3. 監査結果の出力 —
reportBuffer = reportBuffer & “————————————————–” & vbCrLf & _
“Audit Complete. Total Paragraphs: ” & auditedParaCount & _
“, Violations Found: ” & violationCount & vbCrLf & _
“Execution Time: ” & Format(Timer – startTime, “0.00”) & ” seconds.”
‘ 新規ドキュメントにレポートを出力
Dim docReport As Document
Set docReport = Documents.Add
docReport.Content.Text = reportBuffer
MsgBox “スタイル監査が完了しました。” & vbCrLf & _
“検出された逸脱数: ” & violationCount & ” 件”, vbInformation, “品質管理システム”
CleanUp:
‘ — 4. 環境の復元 —
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
.Calculation = wdCalculationAutomatic
End With
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
Resume CleanUp
End Sub
—
3. チーフアーキテクトが解説するコードの急所と極意
1. 巨大文書におけるパフォーマンスの支配
Word VBAで数千ページのドキュメントを `For Each targetPara In docTarget.Paragraphs` で回す場合、`ScreenUpdating = False` と `Calculation = wdCalculationManual` の設定を怠ると、段落を読み込むたびに再描画とフィールドの再計算が走り、実行時間が数十倍に跳ね上がる。
さらに、オブジェクト変数のループ内での適切な破棄（`Set currentStyle = Nothing`）を行い、VBAのガベージコレクションに依存しないメモリ管理を徹底することで、メモリ肥大化を防ぐ。
2. Word特有のプロパティ値の「濁り」への対策
Wordのプロパティ（特に `Font.Bold` や `Font.Italic`）は、純粋な `True`/`False` だけでなく、一部のみが太字になっている混合状態を示す `-1`（`wdToggle`）や、未定義を示す `9999` を返すことがある。
これをそのまま比較すると型ミスマッチや予期せぬ論理エラーを引き起こすため、コード内のように `IIf(currentStyle.Font.Bold = True, 1, 0)` のように二値化（Normalized Boolean）するマッピング手法が、実務的なエンタープライズ開発では不可欠となる。
3. システム間連携への拡張性
今回のコードでは監査結果をWordの新規ドキュメントに出力しているが、実戦においてはこれを拡張し、JSON形式やCSV形式にシリアライズして、CI/CDパイプライン（例：GitHub ActionsやAzure DevOpsで管理されるドキュメントビルドプロセス）へとWebhook経由でPOSTする設計への移行も容易である。
‘ 【将来拡張】外部API（RESTエンドポイント）へのJSON送信イメージ
‘ Dim http As Object
‘ Set http = CreateObject(“MSXML2.ServerXMLHTTP.6.0”)
‘ http.Open “POST”, “https://api.internal.quality-control.com/v1/audit”, False
‘ http.setRequestHeader “Content-Type”, “application/json”
‘ http.Send convertToJson(reportBuffer)
—
総括
手動上書きの監査は、単なる「見た目のチェック」ではない。それは文書の構造的インテグリティ（整合性）を保ち、組織のドキュメント資産を陳腐化させないための防衛線である。
フレームワークやライブラリの背後にある「オブジェクトの振る舞い」を正確に理解し、制御下に置く者だけが、真に堅牢な業務自動化システムを構築できる。手作業のチェックから脱却し、コードによる完全な統制をあなたの開発環境に実装せよ。
