汚れたWord文書を「プロの設計図」へ。直接書式をスタイルへ昇華させるVBA極意
こんにちは。Word VBAの深淵を覗き込もうとしているあなたへ。
これまでマクロの記録を繰り返してきたなら、一度は「なぜこの文書は、少し修正するだけでレイアウトが崩壊するのか」と頭を抱えたことがあるはずです。その犯人は「直接書式（Direct Formatting）」です。
直接書式とは、ツールバーから手動でポチポチと設定した「その場しのぎの装飾」。これらは文書の「負債」です。今日は、この泥沼を解消し、文書を「スタイル」ベースの堅牢な構造へとリファクタリングする、最高峰の自動化手法を伝授します。
—
なぜ「直接書式」を追放すべきなのか？
Wordのエンジンは、スタイル（Style）を基準にレンダリングを行います。直接書式が混在すると、Wordは「スタイルの設定」と「後から加えられた手動設定」の優先順位を計算し続けることになります。これが文書の肥大化と、謎の挙動を引き起こす原因です。
プロの仕事は、「文書内に隠れた共通の直接書式を抽出し、一括でスタイルとして再定義する」こと。これを自動化しましょう。
—
実践：直接書式解析・スタイル登録マクロ
以下のコードは、文書内で「最も頻繁に使われている直接書式」を見つけ出し、それを「Custom_Style_01」という名前のスタイルへ昇華させるためのプロトタイプです。
Sub RefactorDirectFormattingToStyle()
Dim doc As Document
Dim para As Paragraph
Dim targetStyle As Style
Set doc = ActiveDocument
‘ 1. 新しいスタイルを定義する（既に存在する場合はエラー回避）
On Error Resume Next
Set targetStyle = doc.Styles.Add(Name:=”Custom_Standard”, Type:=wdStyleTypeParagraph)
On Error GoTo 0
‘ 2. 直接書式を持つ段落を解析し、スタイルを適用する
For Each para In doc.Paragraphs
‘ ここでは「フォントサイズが12ptかつ太字」という条件を抽出例とする
If para.Range.Font.Size = 12 And para.Range.Font.Bold = wdToggle Then
‘ スタイルを適用（直接書式をクリアしてスタイル化する）
para.Style = targetStyle
‘ 必要に応じて直接書式を保持しつつスタイルを適用する場合は
‘ 別のロジックが必要だが、基本は「クリアして適用」が正攻法
End If
Next para
MsgBox “リファクタリング完了：直接書式がスタイルへ統合されました。”
End Sub
コード解説：ここが「プロの境界線」
1. `On Error Resume Next` の正しい使い方:
スタイル作成は「同名があればエラー」になるため、あえてエラーを無視し、存在確認を省略するテクニックです。
2. `para.Range` の重要性:
`Paragraph`オブジェクトは単なる段落の器です。その中身（テキストや書式）に触れるには、必ず `Range` プロパティを経由してください。ここを理解していないと、Word VBAのメモリ管理で必ず躓きます。
3. スタイルの適用は「負債の返済」:
`para.Style = targetStyle` を実行した瞬間、その段落にべた書きされていた直接書式は一掃され、スタイル定義に従った表示に切り替わります。これが「文書を軽くする」唯一の方法です。
—
初学者が陥りやすい「3つの落とし穴」
- 落とし穴1：`Selection` オブジェクトの乱用
マクロの記録を使うと必ず `Selection` が出ますが、これは人間が画面を見ているときしか使えません。`Paragraphs` コレクションを直接ループさせるのが、高速化の第一歩です。
- 落とし穴2：書式の継承
Wordには「次の段落スタイル」という概念があります。スタイルを登録する際は、`targetStyle.NextParagraphStyle` を意識すると、文書作成の効率が劇的に上がります。
- 落とし穴3：Undo（元に戻す）の限界
VBAによる一括変更は、一度実行すると `Ctrl + Z` が効かないことがあります。必ず作業前にバックアップを取る癖をつけてください。これは伝説的なエンジニアほど徹底している習慣です。
—
次のステップへ
今回のコードは、特定の属性を抽出する「入り口」に過ぎません。さらに高度な自動化を目指すなら、以下の要素を組み合わせてみてください。
- 辞書オブジェクト（Scripting.Dictionary）: 文書内の全段落のフォント情報を取得し、出現回数が多い順に自動でスタイル化する。
- XML解析: Wordの `.docx` ファイルは実態がZIP圧縮されたXMLです。VBAでXMLを直接操作すれば、数万ページの文書でも一瞬で解析可能です。
「マクロの記録」で生成された汚いコードを捨て、オブジェクトを直接操作する。この快感を知ったとき、あなたはもうWord VBAの初学者ではありません。
さあ、あなたの手元にある「崩れかけた文書」を、完璧な構造を持つプロのドキュメントへと生まれ変わらせてください。応援しています。
