泥沼のドキュメントから「フォントの怪」を炙り出す：Word VBAによる校閲の自動化とメモリ管理の極意
Wordのドキュメントを長年運用していると、必ず遭遇する「怪奇現象」がある。コピペの繰り返しや、スタイルの競合によって、一部の文字だけが「フォントサイズ1pt」といった視認不可能な小ささに変貌しているケースだ。
これを人の目で探すのは不毛な作業であり、システム管理者の矜持が許さない。今回は、Word VBAを駆使して、ドキュメント内の微細なフォントサイズを強制的に炙り出し、視覚的に警告するツールを実装する。
単に動くだけのコードは捨てろ。ここでは、メモリ消費を抑え、巨大なドキュメントに対しても安定して動作する「堅牢なアーキテクチャ」を解説する。
—
1. 検索の最適化：Rangeオブジェクトの流儀
Word VBAにおいて、`Selection`オブジェクトを動かして処理を行うのは素人の所業だ。画面描画を伴う処理は極めて遅く、メモリリークの温床となる。我々が使うべきは `Range` オブジェクトであり、バックグラウンドで完結させるのが鉄則だ。
実装コード：フォントサイズ監視スクリプト
Option Explicit
‘ ———————————————————
‘ 名称: HighlightMicroFontSize
‘ 概要: 指定した閾値より小さいフォントサイズを持つ箇所をハイライトする
‘ ———————————————————
Public Sub HighlightMicroFontSize()
Dim doc As Document
Dim rng As Range
Dim threshold As Single
‘ 閾値の設定（例：8pt未満を異常とみなす）
threshold = 8
Set doc = ActiveDocument
‘ 画面更新を停止し、処理速度を極限まで引き上げる
Application.ScreenUpdating = False
‘ Rangeオブジェクトの探索
‘ 文書全体を走査するためにRangeを使用する
Set rng = doc.Content
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “”
.Forward = True
.Wrap = wdFindContinue
.Format = True
‘ 検索設定はあえて空にする（文字ごとにフォントをチェックするため）
End With
‘ 文字単位で走査し、サイズを確認する
Dim i As Long
For i = 1 To doc.Characters.Count
With doc.Characters(i).Font
‘ サイズが定義されており、かつ閾値未満であれば黄色でマーク
If .Size < threshold And .Size > 0 Then
doc.Characters(i).HighlightColorIndex = wdYellow
End If
End With
Next i
‘ 明示的なオブジェクト解放（VBAでは破棄のタイミングを制御する）
Set rng = Nothing
Set doc = Nothing
Application.ScreenUpdating = True
MsgBox “校閲完了：異常なフォントサイズをマークしました。”, vbInformation
End Sub
—
2. 伝説のアーキテクトが教える「パフォーマンスの真実」
① `ScreenUpdating` の強制制御
VBAはWordのGUIエンジンと密接に結合している。`ScreenUpdating = False` は単なる高速化の手段ではない。描画プロセスのスタックを回避し、メモリのオーバーフローを防ぐための防御壁だ。これを忘れることは、高速道路をサイドブレーキを引いたまま走るに等しい。
② オブジェクトの明示的解放
VBAはガベージコレクションが脆弱だ。`Set rng = Nothing` を記述することに意味がないという議論もあるが、巨大なドキュメントを扱う際、スコープの生存期間を明確に制御することは、ヒープ領域の断片化（フラグメンテーション）を防ぐ唯一の策となる。
③ なぜ `Characters` コレクションなのか
本来、検索は `Find` メソッドを使うのが定石だが、フォントサイズは「文字単位」で保持されるプロパティだ。段落単位のループでは検知しきれない「極小文字」を見逃さないため、あえて `Characters` を叩く。ただし、この処理は重い。実務では、ドキュメントのセクションごとに分割して処理するなどの工夫が必要になることもある。
—
3. レガシー環境と今後の展望
このマクロは、Word 2010から最新のMicrosoft 365環境まで、普遍的に動作する。もし、このツールを社内インフラとして展開するなら、VBAのコードを直接配布するのではなく、「Wordアドイン（.dotm）」として配布し、スタートアップフォルダに配置させることを推奨する。
また、さらに高度な自動化を目指すのであれば、VBAの限界を超え、`.NET (VSTO)` への移行を検討すべきだ。VSTOであれば、メモリ空間の管理能力が飛躍的に向上し、Wordの内部イベントと非同期で連携させることが可能になる。
まとめ：技術者としての矜持
「小さい文字が混じっている」という些細な問題も、自動化のレンズを通せば、システムの堅牢性を測るリトマス試験紙になる。コードをコピペして終わりにするのではなく、なぜここで `Range` を使うのか、なぜ描画を止めるのか。その「理由」を理解した者だけが、真の自動化エンジニアとして評価される。
次は、これを「スタイル定義を無視して強制変更する」ロジックへ発展させてみせろ。健闘を祈る。
