Word文書のフォント埋め込みを掌握せよ：VBAによる「見えないフォント化け」の撲滅戦略
世の中の多くのVBAエンジニアは、`Selection`や`Range`を闇雲に操作し、Wordの「書式設定」という名の迷宮で迷子になっている。特に、配布用文書におけるフォント埋め込み問題は、単なるプロパティ操作の域を超えた、ドキュメント・エンジニアリングの根幹だ。
「なぜ、あの環境でだけフォントが崩れるのか？」
その答えは、Wordの`Font`オブジェクトの背後に隠された、OSのフォントサブシステムと埋め込みフラグの「不整合」にある。今日は、シニアエンジニアとして、この厄介な問題に対する最善の解を提示しよう。
—
1. フォント埋め込みの「真実」を理解する
Wordのフォント埋め込み設定は、`ActiveDocument.EmbedTrueTypeFonts = True`だけで完結するほど甘くはない。問題は、システム上に「埋め込みを許可していないフォント」が混入した際、Wordがどう振る舞うかだ。
多くの現場では、古いテンプレートや他社からの流用データが混ざり、埋め込み不可のフォントが文書内に「残留」している。これを検知し、安全な代替フォントへ強制的に置換するロジックを組むのが、プロフェッショナルの仕事である。
—
2. 破壊的変更を避けるための「Range」最適化戦略
`Paragraph`オブジェクトを直接操作するな。それはメモリ上のオーバーヘッドを増大させ、特に数千ページに及ぶドキュメントでは`COM`呼び出しの回数がボトルネックとなる。
我々が取るべきは、`Document.Content`を基点とした`Find`オブジェクトによる一括置換だ。これは内部的にバイナリレベルに近い効率で最適化されており、UIの再描画を極限まで抑制できる。
実装：フォント埋め込み適正化スクリプト
以下のコードは、文書内の全フォントを検査し、埋め込み不可フォントを安全な「MS ゴシック」へ置換する実装例だ。
Option Explicit
”’
”’
Public Sub OptimizeDocumentFonts()
Dim doc As Document
Set doc = ActiveDocument
‘ 埋め込み機能を明示的にON（物理的な整合性の担保）
doc.EmbedTrueTypeFonts = True
‘ 効率化のため、画面更新を停止
Application.ScreenUpdating = False
Dim rng As Range
Set rng = doc.Content
‘ 検索置換による高速一括処理
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “” ‘ 全テキスト対象
.Replacement.Text = “”
.Font.Name = “埋め込み不可フォント名” ‘ ここに標的のフォント名を入れる
.Replacement.Font.Name = “MS ゴシック”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
‘ 置換実行（ReplaceAllが最も高速）
.Execute Replace:=wdReplaceAll
End With
‘ オブジェクトの明示的解放（VBAのメモリ管理の鉄則）
Set rng = Nothing
Application.ScreenUpdating = True
MsgBox “フォントの最適化が完了しました。”, vbInformation
End Sub
—
3. なぜ「Range.Find」なのか？
`Paragraphs`コレクションをループで回すコードをよく見かけるが、あれはアンチパターンだ。`Paragraph`の各`Range`に対するプロパティアクセスは、その都度COM経由のマーシャリングが発生し、CPUリソースを浪費する。
一方、`Find`オブジェクトを用いたアプローチは、Wordのレンダリングエンジンに近いレイヤーで処理が行われる。特に大規模文書においては、処理速度に100倍以上の差が出ることもある。
—
4. シニアエンジニアへの提言：レガシーとの対峙
システム間連携において、フォントは常にトラブルの温床となる。
もしあなたが配布先環境をコントロールできない立場なら、VBAだけで解決しようとせず、以下のガードレールを引くことを推奨する。
1. 事前チェックの徹底: 文書保存時に、`Font.Embeddable`プロパティを再帰的にチェックするバリデーションロジックを`DocumentBeforeSave`イベントに仕込むこと。
2. OSレベルの監視: `GDI+`経由でフォントの埋め込み制限情報を取得するC#のラッパーDLLを作成し、VBAから`Declare PtrSafe`で呼び出す。これが究極の解だ。
VBAは、単なる自動化ツールではない。システムの整合性を守るための「最後の防波堤」である。書式が崩れる、という些細な事象の裏にあるオブジェクトのライフサイクルと、メモリの挙動を想像せよ。
それこそが、伝説的なアーキテクトが持つべき視座である。
—
「コードは書くものではない。設計するものである。」
