Word VBAの「フォント一括置換」を極める：スタイルを破壊せず、堅牢に制御する設計思想
業務自動化において、Wordの書式設定は「地雷原」です。特に「フォントの一括置換」という単純な要求に対し、安易に`Selection`オブジェクトを多用したり、不適切なループ処理を組んだりすれば、Wordは瞬時に悲鳴を上げ、文書の構造は崩壊します。
今日は、プロフェッショナルとして、「スタイルを汚さず」「文書構造を破壊せず」「再現性のある」フォント統一の極意を伝授します。
—
なぜ「手作業」や「適当な置換」ではいけないのか
多くの初心者が陥る罠は、`ActiveDocument.Content.Font.Name = “…”` という記述です。これを行うと、見出し（Heading）や特殊な装飾が施された箇所まで、すべてが強制的に上書きされてしまいます。
我々エンジニアが目指すべきは、「書式指定の優先順位」を理解した上での制御です。Wordにおいて、直接的な書式設定はスタイル設定よりも優先されます。無闇な全域置換は、長年積み上げた文書のスタイル設計を台無しにします。
今回紹介するコードは、「段落単位でフォントを再指定する」というアプローチをとります。これにより、既存のスタイル定義に影響を与えずに、文書全体のフォントを統一する「安全な介入」が可能になります。
—
プロダクション環境のための堅牢なコード
以下のコードは、文書内の全段落を走査し、指定したフォント名で上書きするものです。エラーハンドリングと、処理速度を向上させるための「画面描画の停止」を組み込んでいます。
Option Explicit
‘ —
‘ 文書全体の段落フォントを強制的に統一するプロシージャ
‘ 目的: スタイルを維持しつつ、直接書式としてフォントを適用する
‘ —
Public Sub UnifiedFontProcessor()
Dim targetParagraph As Paragraph
Dim targetFontName As String
‘ 統一したいフォント名を設定
targetFontName = “游ゴシック”
‘ 処理の高速化: 画面更新と再計算を停止
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
‘ 全段落をループしてフォントを適用
‘ ※ Rangeオブジェクトを直接操作することで、Selectionを排除する（重要）
For Each targetParagraph In ActiveDocument.Paragraphs
With targetParagraph.Range.Font
‘ 日本語用フォントの設定
.NameFarEast = targetFontName
‘ 英数字用フォントの設定（必要に応じて）
.NameAscii = targetFontName
End With
Next targetParagraph
MsgBox “フォントの統一処理が完了しました。”, vbInformation
ExitProc:
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Resume ExitProc
End Sub
—
開発エンジニアが押さえるべき3つの極意
1. `Selection`を排除し、`Range`オブジェクトを使いこなす
初心者が書きがちな`Selection.Next`などの記述は、処理が遅いだけでなく、カーソルの位置によって挙動が不安定になります。`Paragraphs`コレクションを直接ループさせることで、カーソルの動きに依存しない、高速で安定した処理を実現してください。
2. `ScreenUpdating` は「礼儀」である
数千ページの文書を処理する場合、画面描画を有効にしたままでは、Wordが描画のたびにCPUリソースを消費します。`Application.ScreenUpdating = False` は、業務自動化において「相手（Word）への負担を減らす」という最低限の礼儀です。
3. データベースや外部ファイル連携時の注意
もし、フォント情報を外部のCSVやDBから取得して動的に切り替える場合、「そのフォントがターゲットPCにインストールされているか」を事前に検証するロジックを必ず挟んでください。存在しないフォントを適用しようとすると、Wordは即座に代替フォントへの置換を試み、その過程で予期せぬ書式の崩れが発生します。
まとめ：自動化の先にある「保守性」を考える
今回のコードは、あえて「スタイル定義そのものを変更する」のではなく、「直接書式として強制的に上書きする」というアプローチをとりました。
なぜか？
それは、実務においては「スタイルの定義をいじると、全体がどう崩れるか予測できない」という恐怖が伴うからです。このコードは、「今ある文書を、最小限のコストで、最大限の見た目の統一感に仕上げる」ための、最もリスクの低い解です。
この設計をベースに、皆さんの現場のニーズに合わせて拡張してください。道具は使いよう。堅牢なコードは、あなたの業務を自動化する最強の武器になります。
