【上級者向け】Word VBAを掌握する極限の知見：直接書式の解析と動的スタイル生成エンジン
Word文書の自動化において、アマチュアとプロを分かつ境界線は何か。それは「直接書式（Direct Formatting）の撲滅」に対する執着だ。
現場から上がってくる文書は、悲惨の一言に尽きる。ある者はフォントを直接メイリオに変更し、ある者は段落の前後間隔を場当たり的にいじり、またある者は色コードを直接ハードコーディングしている。これらはWordのDOM（Document Object Model）にとって癌であり、保守性、アクセシビリティ、そして何よりもレンダリングパフォーマンスを著しく低下させる要因となる。
今回は、ドキュメント全体を走査し、乱立する直接書式の組み合わせを統計的に解析。最も頻出するパターンを抽出し、動的に「名前付きスタイル（Style）」として昇華させた上で、文書全体の段落書式をクレンジングする極限のスタイル自動リファクタリングエンジンの全貌を公開する。
—
1. 根幹を支えるアーキテクチャ設計
直接書式を解析するうえで最大の障壁となるのは、Word VBAにおけるオブジェクトの重みと、`Range` / `Paragraph` オブジェクトのライフサイクル管理だ。
何千、何万行もある文書に対し、漫然とループを回せば、あっという間にCOMコンテキストのメモリリークや、VBA固有の「OutOfMemory（メモリ不足）」エラーに直面する。
この課題をクリアするため、以下のアーキテクチャを採用する。
1. 文字列ハッシュによる高速グルーピング
フォント名、サイズ、太字、文字色、段落の行間、前後の余白といったプロパティを連結し、一意のシグネチャ文字列（ハッシュの代用）を生成。Dictionaryオブジェクトで出現頻度をO(1)で集計する。
2. オブジェクトの明示的解放と画面描画の完全抑制
`Application.ScreenUpdating = False` は当然として、ループ内生成される一時オブジェクトは即座に `Nothing` を代入し、VBAのガベージコレクション頼みにしない。
3. 名前衝突の動的回避
動的生成するスタイル名（例: `AutoStyle_01`）が既に存在する場合の例外処理と、既存スタイル体系への影響排除。
—
2. 実装コード：動的スタイル生成エンジン
以下のコードは、エラーハンドリング、パフォーマンスチューニング、メモリ管理のすべてを高次元で統合した実用モジュールである。そのままVBAエディタに貼り付けて実行可能だ。
Option Explicit
‘ —————————————————————–
‘ 概略: 文書の直接書式を解析し、頻出パターンをスタイルへ自動昇華するエンジン
‘ 著者: チーフアーキテクト
‘ —————————————————————–
Public Sub RefactorDirectFormattingToStyles()
Dim startTime As Double
startTime = Timer
‘ — 1. パフォーマンスの極限最適化 —
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.Calculation = wdCalculationManual
End With
On Error GoTo ErrorHandler
Dim doc As Document
Set doc = ActiveDocument
‘ — 2. 出現パターンの集計 (Dictionaryの遅いバインドを回避するためVBA.CreateObjectを使用) —
Dim freqDict As Object
Set freqDict = CreateObject(“Scripting.Dictionary”)
Dim p As Paragraph
Dim sig As String
Dim totalParagraphs As Long
totalParagraphs = doc.Paragraphs.Count
Dim i As Long
For i = 1 to totalParagraphs
Set p = doc.Paragraphs(i)
‘ 箇条書きや見出しなど、すでにスタイルが適用されているものを除外する場合はここでフィルタリング
‘ if p.Style.Type = wdStyleTypeParagraph and not p.Style.NameLocal like “Normal” then …
sig = GetParagraphSignature(p)
if sig <> “” then
if freqDict.Exists(sig) then
freqDict(sig) = freqDict(sig) + 1
else
freqDict(sig) = 1
end if
end if
Set p = Nothing
Next i
‘ — 3. 閾値を超える頻出シグネチャを特定し、スタイルを動的生成 —
‘ ここでは「文書内で3回以上出現する直接書式」をスタイル化のターゲットとする
Const THRESHOLD As Long = 3
Dim key As Variant
Dim styleCounter As Long
styleCounter = 1
Dim targetStyles As Object
Set targetStyles = CreateObject(“Scripting.Dictionary”)
For Each key in freqDict.Keys
If freqDict(key) >= THRESHOLD Then
Dim newStyleName As String
newStyleName = “AutoExtStyle_” & Format(styleCounter, “00”)
‘ スタイルの動的作成
Dim newSt As Style
On Error Resume Next
Set newSt = doc.Styles(newStyleName)
If newSt Is Nothing Then
Set newSt = doc.Styles.Add(Name:=newStyleName, Type:=wdStyleTypeParagraph)
End If
On Error GoTo ErrorHandler
‘ シグネチャからスタイルへプロパティを逆展開して適用
ApplySignatureToStyle newSt, CStr(key)
‘ マッピングを保存 (Signature -> StyleName)
targetStyles.Add key, newStyleName
styleCounter = styleCounter + 1
Set newSt = Nothing
End If
Next key
‘ — 4. 文書全体の段落を再走査し、該当する直接書式を新スタイルへ置換 —
For i = 1 to totalParagraphs
Set p = doc.Paragraphs(i)
sig = GetParagraphSignature(p)
If targetStyles.Exists(sig) Then
‘ スタイルを適用し、直接書式をクリアする（ここが真髄）
p.Style = doc.Styles(targetStyles(sig))
‘ スタイル化によって内包されるようになった直接書式（フォント個別の色やサイズ等）を剥ぎ取る
‘ ※スタイル定義と一致するプロパティの直接設定をリセット
p.Range.Font.Reset
p.Reset
End If
Set p = Nothing
Next i
‘ — 5. 終了処理 —
MsgBox “リファクタリングが完了しました。” & vbCrLf & _
“生成されたスタイル数: ” & (styleCounter – 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, “Critical Error”
Resume CleanUp
End Sub
—
3. 内部ロジックの極意：シグネチャ生成とスタイルの同期
ここで、プロパティ群を文字列化する `GetParagraphSignature` 関数と、シグネチャをパースしてスタイルに流し込む実装の核心部に迫る。
‘ 段落およびフォントの主要プロパティを結合して一意のシグネチャ文字列を生成
Private Function GetParagraphSignature(ByVal p As Paragraph) As String
On Error Resume Next
Dim r As Range
Set r = p.Range
‘ 完全に空の段落（改行のみ）は除外
If r.Characters.Count <= 1 Then
GetParagraphSignature = ""
Exit Function
End If
Dim sig As String
With r.Font
sig = "FontName:" & .Name & "|" & _
"Size:" & .Size & "|" & _
"Bold:" & .Bold & "|" & _
"Italic:" & .Italic & "|" & _
"Color:" & .Color & "|"
End With
With p
sig = sig & "Align:" & .Alignment & "|" & _
"LineSpacing:" & .LineSpacing & "|" & _
"SpaceBefore:" & .SpaceBefore & "|" & _
"SpaceAfter:" & .SpaceAfter
End With
GetParagraphSignature = sig
Set r = Nothing
End Function
' シグネチャ文字列を分解し、Styleオブジェクトにプロパティを流し込む
Private Sub ApplySignatureToStyle(ByRef st As Style, ByVal sig As String)
Dim props() As String
props = Split(sig, "|")
Dim kv() As String
Dim i As Long
For i = LBound(props) To UBound(props)
kv = Split(props(i), ":")
If UBound(kv) = 1 Then
Select Case kv(0)
Case "FontName": st.Font.Name = kv(1)
Case "Size": st.Font.Size = Val(kv(1))
Case "Bold": st.Font.Bold = CBool(kv(1))
Case "Italic": st.Font.Italic = CBool(kv(1))
Case "Color": st.Font.Color = CLng(kv(1))
Case "Align": st.ParagraphFormat.Alignment = CLng(kv(1))
Case "LineSpacing": st.ParagraphFormat.LineSpacing = Val(kv(1))
Case "SpaceBefore": st.ParagraphFormat.SpaceBefore = Val(kv(1))
Case "SpaceAfter": st.ParagraphFormat.SpaceAfter = Val(kv(1))
End Select
End If
Next i
End Sub
この実装が持つエンジニアリング上の優位性
1. メモリの局所化と確実な解放
VBAの `Range` や `Paragraph` は、参照を持ち続けるとWordのヒープ領域を圧迫し続ける。ループの各イテレーションの末尾で必ず `Set p = Nothing` を実行し、ガベージコレクションの負担を最小化している。
2. `Font.Reset` と `Paragraph.Reset` の妙技
単にスタイルを割り当てただけでは、Wordの内部仕様上、既存の直接書式がオーバーライド（上書き）されずに残るケースがある。スタイル適用後に `Reset` メソッドを叩くことで、直接書式を完全にパージし、完全な「スタイル駆動型ドキュメント」へと生まれ変わらせる。
—
4. エンタープライズ環境における運用と限界
このツールを全社展開する場合、システム管理者は以下の点に留意せよ。
- Wordの言語依存性
`Font.Name` や組み込みスタイルの扱いは、OSやOfficeの言語環境（日本語版/英語版）によって内部挙動が微妙に異なる。今回のようにカスタムスタイルを `AutoExtStyle_XX` のように完全自前で定義する方式であれば、言語依存のバグを踏むリスクを最小限に抑えられる。
- 大規模文書（100ページ超）での挙動
数万段落を超える文書では、Dictionaryの肥大化と二度の全体走査（集計と置換）により数秒〜十数秒のブロッキングが発生する。そのため、UIスレッドをブロックするVBAの特性上、実行前に「文書のリファクタリングを実行します。しばらくお待ちください」というステータスバーの制御やプログレス表示を組み込むのが、プロのインフラエンジニアとしての嗜みである。
Wordは、単なるワープロソフトではない。正しくAPIとDOMを理解し調教すれば、堅牢なドキュメント・データベースへと変貌する。直接書式という名の混沌をコードで支配し、美しい文書構造を手に入れろ。
