【Word VBA】直接書式の呪縛を断つ：文書解析による「動的スタイル自動生成・適用」エンジニアリング
Word文書の自動化において、最も開発者を絶望させるアンチパターン何か。それは「直接書式（Direct Formatting）」の乱用である。
現場のユーザーは自由奔放だ。「なんとなく目立たせたい」という理由で、スタイル（Style）を無視し、段落ごとにフォント名、サイズ、文字色、インデント、行間をバラバラに直接指定する。この「スパゲッティ・書式文書」をプログラムで一括置換しようとした瞬間、開発者は地獄を見る。`Range.Font` や `ParagraphFormat` のプロパティを総当たりで変更する泥臭いマクロを書いたところで、処理は重くなり、わずかな揺らぎ（例：10.5ptと11ptの混在）を吸収できずに破綻する。
プロのWord VBAエンジニアであれば、アプローチを変えるべきだ。
「人間がバラバラに散らした直接書式を統計的に解析し、最も頻出するパターンを自動的に『名前付きスタイル』として昇華させ、文書全体を一網打尽にリファクタリングする」。
今回は、Wordのオブジェクトモデルの深淵を突き、実務の現場で即座に使えるプロダクションコードとともに、その堅牢な設計思想を伝授する。
—
1. なぜ「直接書式」の解析とスタイル化が必要なのか？
Wordのスタイル機能は、Web開発におけるCSS（Cascading Style Sheets）に相当する。しかし、実務で受け取るWord文書の9割は「インラインスタイル（直接書式）」まみれだ。
直接書式をそのまま放置してプログラムを走らせると、以下の致命的な問題が発生する。
1. パフォーマンスの劣化：段落や文字レンジ単位で細かくプロパティアクセスを繰り返すと、COMの境界を跨ぐオーバーヘッドにより、数百ページの文書で処理が数十分単位に跳ね上がる。
2. 保守性の欠如：後から「やっぱり見出しの色を全部変えてほしい」と言われたとき、直接書式で組まれた文書は全手動修正、あるいは複雑怪奇なパターンの文字列置換コードの追加を余儀なくされる。
これを解決するのが、「書式シグネチャ（Signature）」によるグループ化である。
段落が持つ主要な書式プロパティを抽出し、それを「キー」としてハッシュ的な文字列（シグネチャ）を生成する。文書全体を走査してこのシグネチャの出現頻度をカウントし、閾値を超えたものを「真のスタイル候補」として動的に新規登録、一括置換する。このアプローチにより、文書の構造美とパフォーマンスを同時に手に入れることができる。
—
2. 堅牢な設計のためのアーキテクチャ
今回のツールは、以下の3つのフェーズで構築する。
- Phase 1: 収集とシグネチャ化
文書内のすべての標準（Normal等）以外の直接書式を持つ段落をスキャンし、書式情報を結合した「シグネチャ文字列」を作成。Dictionaryオブジェクトで出現回数を集計する。
- Phase 2: スタイルの動的生成
出現頻度が指定した閾値（例：文書内で5回以上使われている等）を超えたシグネチャを抽出し、Wordの `Styles.Add` メソッドを用いて自動的に新しいカスタムスタイルを生成する。
- Phase 3: スタイルの適用とリファクタリング
文書を再度走査し、該当する直接書式を持つ段落に対し、生成したカスタムスタイルを適用（直接書式をクリア）。
—
3. プロダクションコード
以下のコードは、エラーハンドリング、メモリ管理、COMオブジェクトのライフサイクルを考慮した実務レベルのVBAコードである。そのまま標準モジュールに貼り付けて実行してほしい。
Option Explicit
‘ =================================================================================
‘ 業務自動化プロフェッショナル向け: 段落直接書式の統計的スタイル化エンジン
‘ =================================================================================
Public Sub RefactorDirectFormattingToStyles()
Dim startTime As Double
startTime = Timer
‘ 画面描画と警告を停止し、処理速度を極限まで引き上げる
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.Calculation = wdCalculationManual
End With
On Error GoTo ErrorHandler
Dim doc As Document
Set doc = ActiveDocument
‘ 1. 出現頻度集計用のDictionary (要: 参照設定「Microsoft Scripting Runtime」)
Dim freqDict As Object
Set freqDict = CreateObject(“Scripting.Dictionary”)
Dim sigMap As Object
Set sigMap = CreateObject(“Scripting.Dictionary”) ‘ シグネチャと書式オブジェクトの紐付け用
Dim para As Paragraph
Dim sig As String
Debug.Print “=== Phase 1: 直接書式パターンの解析と集計を開始 ===”
‘ 文書全体の段落を走査
For Each para in doc.Paragraphs
‘ 箇条書きや見出しなど、既に独自スタイルが当たっているものは一旦スキップする場合の条件
‘ 今回は「標準スタイルかつ直接書式を持つもの」をターゲットとする
If para.Style = “標準” Or para.Style = “Normal” Then
If HasDirectFormatting(para) Then
sig = GenerateFormatSignature(para)
If freqDict.Exists(sig) Then
freqDict(sig) = freqDict(sig) + 1
Else
freqDict.Add sig, 1
‘ 後のスタイル生成のためにサンプル段落の参照を保持
Set sigMap(sig) = para
End If
End If
End If
Next para
Debug.Print “=== Phase 2: 頻出パターンのスタイル自動生成 ===”
Dim threshold As Long
threshold = 3 ‘ 【重要】文書内で3回以上出現する直接書式パターンのみスタイル化する閾値
Dim key As Variant
Dim styleCount As Long
styleCount = 1
Dim customStyleName As String
For Each key in freqDict.Keys
If freqDict(key) >= threshold Then
customStyleName = “AutoStyle_” & Format(styleCount, “00”)
‘ 既存の同名スタイルがあれば削除（クリーンリランのため）
On Error Resume Next
doc.Styles(customStyleName).Delete
On Error GoTo ErrorHandler
‘ 新規スタイルの作成
Dim newStyle As Style
Set newStyle = doc.Styles.Add(Name:=customStyleName, Type:=wdStyleTypeParagraph)
‘ サンプル段落から書式をスタイルに継承
ApplyParagraphFormattingToStyle sigMap(key), newStyle
‘ シグネチャとスタイル名の紐付けを更新
Set sigMap(key) = Nothing
Set sigMap(key) = newStyle
styleCount = styleCount + 1
Debug.Print “スタイル作成: ” & customStyleName & ” (出現回数: ” & freqDict(key) & “)”
End If
Next key
Debug.Print “=== Phase 3: スタイルの適用と直接書式のパージ ===”
‘ 再度段落を走査し、該当するシグネチャを持つものにスタイルを適用
For Each para in doc.Paragraphs
If para.Style = “標準” Or para.Style = “Normal” Then
If HasDirectFormatting(para) Then
sig = GenerateFormatSignature(para)
If sigMap.Exists(sig) Then
If TypeName(sigMap(sig)) = “Style” Then
‘ スタイルを適用
para.Style = sigMap(sig).NameLocal
‘ 直接書式をクリア（スタイル定義外の不要な個別修飾を剥ぎ取る）
‘ para.Range.Font.Reset ‘ 必要に応じて文字装飾の直接書式をリセット
End If
End If
End If
End If
Next para
MsgBox “リファクタリングが完了しました。” & vbCrLf & _
“生成されたスタイル数: ” & (styleCount – 1) & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & “秒”, vbInformation, “完了”
CleanUp:
‘ 環境を復元
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
.Calculation = wdCalculationAutomatic
End With
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
‘ =================================================================================
‘ ヘルパー関数: 段落に直接書式が含まれているか判定
‘ =================================================================================
Private Function HasDirectFormatting(para As Paragraph) As Boolean
‘ フォントや段落書式に標準からの逸脱があるかを簡易判定
Dim r As Range
Set r = para.Range
‘ ここでは簡易的に、フォント名やサイズが明示的に変更されているかをチェック
‘ 実務では必要に応じて判定条件を拡張してください
If r.Font.Name <> para.Style.Font.Name Or _
r.Font.Size <> para.Style.Font.Size Or _
para.Format.LeftIndent <> 0 Or _
para.Format.SpaceAfter <> para.Style.ParagraphFormat.SpaceAfter Then
HasDirectFormatting = True
Else
HasDirectFormatting = False
End If
End Function
‘ =================================================================================
‘ ヘルパー関数: 書式シグネチャの生成（ハッシュの代わり）
‘ =================================================================================
Private Function GenerateFormatSignature(para As Paragraph) As String
Dim r As Range
Set r = para.Range
Dim sig As String
‘ 比較に必要な主要プロパティを連結して文字列化
sig = “FontName:” & r.Font.Name & _
“|Size:” & CStr(r.Font.Size) & _
“|Color:” & CStr(r.Font.Color) & _
“|Bold:” & CStr(r.Font.Bold) & _
“|Italic:” & CStr(r.Font.Italic) & _
“|SpaceAfter:” & CStr(para.Format.SpaceAfter) & _
“|LineSpacing:” & CStr(para.Format.LineSpacing)
GenerateFormatSignature = sig
End Function
‘ =================================================================================
‘ ヘルパー関数: 段落の書式をスタイルへコピー
‘ =================================================================================
Private Sub ApplyParagraphFormattingToStyle(sourcePara As Paragraph, targetStyle As Style)
Dim r As Range
Set r = sourcePara.Range
With targetStyle.Font
.Name = r.Font.Name
.Size = r.Font.Size
.Color = r.Font.Color
.Bold = r.Font.Bold
.Italic = r.Font.Italic
End With
With targetStyle.ParagraphFormat
.LeftIndent = sourcePara.Format.LeftIndent
.RightIndent = sourcePara.Format.RightIndent
.SpaceBefore = sourcePara.Format.SpaceBefore
.SpaceAfter = sourcePara.Format.SpaceAfter
.LineSpacing = sourcePara.Format.LineSpacing
End With
End Sub
—
4. 実務運用上の重要ポイントと注意点
このコードを実際の業務システムや大量のドキュメント処理パイプラインに組み込む際、以下の「現場の罠」に注意してほしい。
1. 参照設定のスマートな回避（早期バインディング vs 遅延バインディング）
コード内では `Scripting.Dictionary` を使用しているため、VBAの「ツール > 参照設定」から `Microsoft Scripting Runtime` にチェックを入れる必要がある。
もし配布するマクロで参照設定の手間を省きたい場合は、Dictionaryの代わりにWord内蔵のコレクションや、一時的な非表示テーブル、あるいは以下のように完全な遅延バインディング（`CreateObject(“Scripting.Dictionary”)`）で統一することで、参照エラーを完全に回避できる。
2. トランザクションとファイル保護
大規模な文書を書き換えるため、処理の最初で必ず元のファイルを別名でバックアップ保存する処理を挟むこと。
ActiveDocument.SaveAs2 ActiveDocument.Path & “\backup_” & Format(Now, “yyyymmdd_hhmmss”) & “_” & ActiveDocument.Name
自動化スクリプトにおいて、「元に戻せない破損」は開発者の責任に直結する。
3. パフォーマンスの魔力
コード冒頭の `Application.ScreenUpdating = False` と `Calculation = wdCalculationManual` は絶対に削ってはいけない。Wordは段落書式を変更するたびに再描画とレイアウト再計算を行おうとするため、これらを切るだけで処理速度が 10倍〜50倍 変わる。
—
5. チーフアーキテクトからの総括
直接書式を駆逐し、文書を構造化されたスタイルへと昇華させるこのアプローチは、単なる「見た目の綺麗さ」のためではない。「データとしてのWord文書の品質を高め、その後の二次利用（PDF変換、HTMLパース、外部DBへのデータ抽出など）の精度を担保するため」の必須要件である。
スパゲッティなコードを場当たり的に継ぎ接ぎするのではなく、文書の本質的な構造を見極めたアーキテクチャを設計すること。それこそが、プロの業務自動化エンジニアの仕事である。
