Word VBAの深淵を征く：フォント埋め込みの「見えない壁」を突破する自動化アーキテクチャ
現場でWord文書を配布する際、最も疎かにされ、そして最も致命的なトラブルを招くのが「フォントの埋め込み」だ。作成者の環境では完璧に見える資料が、他者の環境でレイアウト崩壊や文字化けを起こす。この「環境依存」という悪夢をVBAで一掃する。
今回は、単なる置換ロジックの提示ではない。Wordのオブジェクトモデルの癖を見抜き、数千ページ規模の文書でもスタックオーバーフローやパフォーマンス低下を招かない「プロダクション品質の設計」を伝授する。
—
1. なぜ「全置換」は危険なのか？
初心者はよく「文書内の全文字を走査してフォントを強制変更する」というアプローチをとる。だが、これは愚策だ。
- パフォーマンスの欠如: `Selection`オブジェクトや`Range.Characters`をループで回せば、文書が長くなるほど処理速度は指数関数的に低下する。
- スタイルの衝突: 手動設定した書式と、スタイル定義による書式が混在する中で、無計画な置換はドキュメント構造を破壊する。
- 埋め込み不可フォントの混入: 一部のフォントはライセンス上、埋め込みが不可能だ。これを知らずに自動処理すると、保存時のエラーを誘発する。
我々が目指すべきは、「スタイルを基軸とした一括制御」と「Rangeオブジェクトの効率的な再利用」である。
—
2. プロダクションコード：FontValidator & Replacer
このスクリプトは、文書内のフォントを走査し、埋め込み不可のフォントを組織標準のフォント（例: MS ゴシックや游ゴシック）へ安全に差し替えるための堅牢なテンプレートだ。
Option Explicit
‘ 埋め込み不可リスト（必要に応じて拡張すること）
Private Const FORBIDDEN_FONTS As String = “MS PMincho,MS Mincho,Century”
”’
”’
Public Sub NormalizeDocumentFonts()
Dim doc As Document
Set doc = ActiveDocument
‘ 画面描画を停止して高速化（必須の定石）
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
‘ 1. スタイル定義の修正（大本を叩く）
FixStyles doc
‘ 2. 直接書式（Direct Formatting）の修正
FixDirectFormatting doc
MsgBox “フォントの正規化が完了しました。”, vbInformation
Exit Sub
ErrorHandler:
MsgBox “致命的なエラー: ” & Err.Description, vbCritical
Application.ScreenUpdating = True
End Sub
Private Sub FixStyles(ByVal doc As Document)
Dim sty As Style
For Each sty In doc.Styles
If sty.Type = wdStyleTypeParagraph Or sty.Type = wdStyleTypeCharacter Then
If InStr(FORBIDDEN_FONTS, sty.Font.Name) > 0 Then
sty.Font.Name = “游ゴシック”
End If
End If
Next sty
End Sub
Private Sub FixDirectFormatting(ByVal doc As Document)
Dim rng As Range
Set rng = doc.Content
‘ Findオブジェクトによる一括置換（ループより圧倒的に高速）
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Font.Name = “MS PMincho” ‘ ターゲット
.Replacement.Font.Name = “游ゴシック” ‘ 置換先
.Text = “”
.Replacement.Text = “”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Execute Replace:=wdReplaceAll
End With
End Sub
—
3. 実務で勝つための「3つの極意」
① 「Findオブジェクト」を信じろ
VBAで文字を一つずつループさせるのは、Wordに「処理を一行ずつ命令している」のと同じだ。`Range.Find`は、Word内部の最適化された検索エンジンを叩く。`.Format = True`を設定することで、フォント属性のみをターゲットにした高速な置換が可能になる。
② スタイル定義と直接書式の分離
Wordの構造は「スタイル」の上に「直接書式」がレイヤーとして重なっている。コード内で両方をケアしなければ、一部の強調箇所だけ置換漏れが発生する。上記のコードは、まずスタイルを浄化し、その後に残った「例外的な手動書式」をFindで掃討する二段構えを採用している。
③ 外部データベースとの連携（拡張性）
もし、プロジェクトごとに「許可フォントリスト」が変わる場合、コードに直書きしてはならない。CSVやJSON、あるいはSQL Serverから設定を読み込む設計にするべきだ。
- 設計指針: `Scripting.FileSystemObject`で設定ファイルを読み込み、`Dictionary`オブジェクトにキャッシュしてからループを回す。これにより、コードの変更なしにフォントポリシーを運用できる。
—
最後に：エンジニアとしての矜持
VBAは、古い技術ではない。Wordという巨大なDOM（ドキュメントオブジェクトモデル）を自在に操るための、最も強力な武器だ。
「とりあえず動くコード」を書くことは誰にでもできる。しかし、「数年後もメンテナンス可能で、1000ページの文書でもクラッシュしないコード」を書くことこそが、我々エンジニアの役割だ。
このスクリプトをベースに、君の現場の「フォントの無秩序」を制圧してほしい。健闘を祈る。
