Wordの「書式崩れ」を論理で解剖する：VBAでスタイル継承関係を可視化せよ
こんにちは。現場でWordの自動化に頭を悩ませる皆さん、お疲れ様です。
Wordを使っていると、「なぜか特定の段落だけフォントが勝手に変わる」「見出しのデザインが一部だけ崩れる」といった怪現象に遭遇しませんか？その犯人の正体は、Wordの「スタイル継承（Inheritance）」にあります。
Wordのスタイルは「親」から設定を引き継ぎ、そこに「差分」を書き加える仕組みです。この連鎖が深くなると、人間にはどこで何が上書きされたのか、追跡不可能になります。
今日は、そんな「目に見えない継承の迷宮」を解き明かす、スタイル継承診断ツールの設計図を皆さんに授けましょう。これを理解すれば、Word VBAのオブジェクトモデルの核心に触れることができます。
—
1. Wordの「スタイル」とは何か？
Wordのスタイルは、単なる書式設定のテンプレートではありません。プログラミングで言うところの「クラスの継承」そのものです。
- 親スタイル（Base Style）: 全体の基本設定（例：標準スタイル）
- 子スタイル（Derived Style）: 親の設定を引き継ぎつつ、一部を変更（例：見出し1は「標準」に「太字・サイズ変更」を加えたもの）
VBAでは、この関係を `Style.BaseStyle` というプロパティで辿ることができます。この「親を辿る」という再帰的な思考こそが、自動化エンジニアへの第一歩です。
—
2. 実践：スタイル継承関係を可視化するVBA
以下のコードは、選択した段落に適用されているスタイルから、その先祖（ルートスタイル）までを遡り、イミディエイトウィンドウに出力するツールです。
‘ ==========================================================
‘ スタイル継承の系譜を解析するツール
‘ ==========================================================
Sub TraceStyleInheritance()
Dim currentStyle As Style
‘ 現在のカーソル位置の段落スタイルを取得
Set currentStyle = Selection.Paragraphs(1).Style
Debug.Print “— 継承診断開始 —”
‘ 親がいなくなる（BaseStyleが自分自身、あるいは存在しない）まで遡る
Do While Not currentStyle Is Nothing
Debug.Print “適用スタイル: ” & currentStyle.NameLocal
‘ 継承元のスタイルを取得
If currentStyle.BaseStyle Is Nothing Then
Debug.Print “これ以上、親スタイルはありません。”
Exit Do
Else
‘ 親が自分自身（「標準」など）になったらループ終了
If currentStyle.BaseStyle = currentStyle Then Exit Do
Debug.Print ” ↓ (継承元: ” & currentStyle.BaseStyle.NameLocal & “)”
Set currentStyle = currentStyle.BaseStyle
End If
Loop
Debug.Print “— 診断完了 —”
End Sub
コードの解説：なぜここで躓くのか？
- `Selection.Paragraphs(1)`: 選択範囲の最初の段落を掴みます。Wordのオブジェクトモデルは階層構造ですが、まずは「どこをいじりたいか」を特定するのが鉄則です。
- `Do While` ループ: 継承関係を遡るための「再帰的思考」をループで実装しています。
- `BaseStyle`: ここが肝です。ここを辿ることで、どの設定が「親」から来ていて、どの設定が「今、このスタイルで独自に上書きされているか」の境界線が見えてきます。
—
3. 現場で「書式崩れ」が起きる理由
このコードを動かして、「なぜ崩れるのか」の理由が分かったら、もうあなたは脱・初学者です。よくある原因はこれらです。
1. 「標準スタイル」の汚染: 全てのスタイルの親である「標準」を直接いじってしまうと、文書全体に影響が出ます。
2. 直接書式（Direct Formatting）: スタイルを適用した後に、ツールバーで「手動で色を変える」などを行うと、スタイル定義よりも優先され、継承関係が無視されます。
3. 多重継承の迷宮: 親の親の親……と辿った先で、意図しないフォント設定が含まれているケースです。
—
4. 次のステップへ：自動修復への道
この診断ツールは「現状を知る」ためのものですが、次は「意図しない直接書式を全て削除する」といった自動化へ進んでみてください。
‘ おまけ：直接書式を強制解除してスタイルを再適用するヒント
Selection.Paragraphs(1).Range.ClearFormatting ‘ 直接書式を削除
Selection.Paragraphs(1).Style = “標準” ‘ スタイルを再適用
VBAを学ぶ上で一番大切なのは、「Wordが裏側でどうやって文書を管理しているか」を想像することです。Wordのオブジェクトモデルは一見複雑ですが、この「継承」という論理構造さえ掴めば、怖れることはありません。
まずはこのコードをVBE（Visual Basic Editor）に貼り付けて、お手元の文書で試してみてください。自分の書いたドキュメントの「家系図」が見えた瞬間、Wordの見え方がガラリと変わるはずです。
応援しています。何か詰まったら、またいつでも聞きに来てくださいね。
