【テクニカル・上級編】【初心者向け】置換処理で「書式（フォントや色）」だけを検索条件に含める方法 – Word VBA解析バイブル

Word VBA

2026.09.30

Word VBAの深淵：検索・置換の「書式」指定がもたらす自動化のパラダイムシフト

諸君、Wordの自動化において「文字列」を検索するのは初歩の初歩だ。だが、実務で真に価値を持つのは「特定のフォント、あるいは特定のスタイルが適用された箇所」を正確に射抜き、変換する技術である。

校正作業の自動化を命じられた際、多くのエンジニアが `Find.Text` に頼り、泥沼のパターンマッチングに陥る。しかし、Wordの `Find` オブジェクトが持つ真の能力は、書式属性というメタデータへのアクセスにある。

本稿では、レガシーな文書環境を掌握し、メモリ消費を極限まで抑制する「書式検索」の極意を伝授する。

—

Wordの `Find` オブジェクトは、直前の検索状態を保持する「ステートフル」な設計になっている。これをリセットせずに次の処理へ移行することは、バグの温床だ。

検索を行う前に、必ず `ClearFormatting` メソッドで検索条件を初期化せよ。そして、`Replacement.ClearFormatting` で置換条件もクリーンに保つ。これは単なる作法ではない。Wordの背後で動くメモリ管理機構に対して、正しいシグナルを送るための必須要件だ。

Public Sub ReformatByFontColor()
Dim rng As Range
Set rng = ActiveDocument.Content

‘ 検索・置換オブジェクトの初期化（重要：キャッシュの汚染を防ぐ）
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting

‘ 検索条件：フォント色が「赤（wdColorRed）」であること
.Font.Color = wdColorRed

‘ 置換条件：スタイルを「強調」に変更
.Replacement.Style = ActiveDocument.Styles(wdStyleEmphasis)

‘ 実行条件の設定
.Text = “” ‘ 内容は問わない
.Replacement.Text = “” ‘ 置換後の文字列も変更しない
.Forward = True
.Wrap = wdFindContinue
.Format = True ‘ ← これが書式検索の鍵

‘ 一括実行
.Execute Replace:=wdReplaceAll
End With

‘ オブジェクトの明示的解放（メモリ管理の鉄則）
Set rng = Nothing
End Sub

—

VBAのガーベッジコレクションは、C#やJavaのそれに比べると不透明だ。特に `Range` オブジェクトをループ内で生成し続けると、Wordの「Undo（元に戻す）」履歴と相まって、巨大な文書ではメモリリークが加速する。

Rangeを再利用せよ: ループ処理が必要な場合、新しい `Range` を作るのではなく、`SetRange` メソッドで既存のオブジェクトを使い回せ。
Undoスタックの制御: `Application.UndoRecord` を利用し、一括処理を一つの単位としてまとめろ。これにより、処理後のメモリ回収が劇的にスムーズになる。

—

Wordの検索機能には限界がある。複雑な論理構造を持つ文字列（例：特定の書式を持った数字のみを抽出する等）を扱う場合、VBA標準の `Find` だけでは力不足だ。

この場合、「VBScript.RegExp」を呼び出すのではなく、Wordの「ワイルドカード検索」と「書式」を組み合わせるのが最も効率的だ。 外部ライブラリのロードはコンテキストスイッチを発生させ、パフォーマンスを低下させる。Word内部で完結する機能こそ、最強の最適化である。

`Find.MatchWildcards = True` を有効にし、`Find.Font` プロパティを併用せよ。例えば、「赤字かつ数字のみ」を置換したい場合、以下の設定が最短距離となる。

With rng.Find
.MatchWildcards = True
.Text = “[0-9]{1,}” ‘ 数字の連続
.Font.Color = wdColorRed
‘ ここで置換処理を実行
End With

—

社内システムや長年運用されている定型文書には、不可解なスタイルや隠し文字が潜んでいる。`Find` でヒットしない場合は、`Paragraph.Format` や `Font.Name` をイミディエイトウィンドウで直接覗き、ドキュメントの「汚染度」を確認せよ。

また、大規模な文書を処理する際は、`Application.ScreenUpdating = False` を忘れてはならない。これは単なる表示の高速化ではない。レンダリングエンジンの更新を止めることで、CPU負荷を最小化し、バックグラウンドでの検索精度を向上させるための防御策だ。

結論として、Word VBAにおける書式検索は「状態の管理」と「オブジェクトの最小化」に集約される。
ツールを使いこなすのではない。ツールがメモリ上でどう振る舞っているかを感じ取り、その波長にコードを合わせるのだ。それが、伝説的な自動化を成し遂げるための唯一の道である。