Word VBAを掌握する極限の知見：スタイルを汚さずに「特定の文字列」だけを染め上げる技術
開発現場でよくある要望だ。「この報告書フォーマットの段落スタイルや文字スタイルはそのままに、『重要』というキーワードだけを赤字にしてほしい」。
素人が最初に書くコードはこうなる。
`Selection.Find` で回して、ヒットした範囲の `Font.Color` を書き換える。あるいは、文書全体を走査して一文字ずつ判定する――。
待ってほしい。それはプロの仕事ではない。
そんなアプローチでは、Wordの強力なスタイル継承構造を破壊し、文書全体のフォント情報がバラバラになる「書式崩壊の爆弾」を仕込むことになる。何より、ドキュメントのサイズが大きくなった途端に処理が重くなり、実用に耐えなくなる。
今回は、Wordのオブジェクトモデルの裏側にある「Findオブジェクトの書式アタッチメント」と「ライフサイクル」を完全に制御し、段落スタイルを1ミリも汚さずに特定文字列のみを高速かつ安全に装飾する極限のテクニックを伝授する。
—
なぜ「愚直なループ処理」は現場で破綻するのか？
多くの開発者が陥る罠は、`Range` オブジェクトや `Selection` オブジェクトに対して力技でアプローチすることだ。
Wordのスタイル体系は、「段落スタイル ＞ 文字スタイル ＞ 直接設定（ダイレクトフォーマット）」というカスケード（優先順位）で成り立っている。
愚直に `Range.Font.Color` を書き換えると、それは「直接設定」として上書きされる。結果として、後からスタイルシート側でフォント色を変更しても、そのキーワードだけ色が追随しなくなるという「保守性の低い負債コード」が完成する。
また、`Selection` を画面上でカチカチと動かすコードは、ScreenUpdatingを切っていたとしても、Wordの描画エンジンに負荷をかけ、処理速度を致命的に低下させる。
我々が目指すべきは、「Wordのネイティブな検索エンジン（Find）に条件を丸投げし、メモリ上で一網打尽にする」設計だ。
—
堅牢な設計：Findオブジェクトの正確な初期化と状態リセット
Wordの `Find` オブジェクトは、非常に気まぐれでステートフル（状態保持型）な厄介者である。前回の検索条件（大文字小文字の区別、ワイルドカードの使用有無など）がメモリに残ったまま実行されるため、環境によって挙動が変わるバグの温床となる。
プロのエンジニアは、Findを使う前に必ず「状態の完全な初期化（ClearFormatting）」を行う。
With rngTarget.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strKeyword
.Replacement.Text = “”
.Forward = True
.Wrap = wdFindStop
.MatchCase = False
.MatchWholeWord = False
‘ ★極意：検索側のフォントは指定せず、置換側のフォントだけを指定する
.Replacement.Font.Color = RGB(255, 0, 0) ‘ 赤色
‘ スタイルを維持したまま置換を実行
.Execute Replace:=wdReplaceAll
End With
ここで重要なのは、`.Font.Color` を設定するのは検索側（`Find.Font`）ではなく、置換側（`Replacement.Font`）であるという点だ。これによって、「マッチした文字列の文字色プロパティだけをピンポイントで上書きし、段落全体のスタイルやその他のフォント属性（サイズやフォント名など）を一切変更しない」という魔法が成立する。
—
【実務仕様】プロダクションコード例
そのまま現場の業務自動化ツールに組み込める、堅牢性を極めたプロシージャを公開する。
エラーハンドリング、画面描画の凍結、オブジェクトの適切な解放など、エンタープライズ基準を満たす実装に仕上げている。
Option Explicit
‘ ==============================================================================
ニッチなスタイル崩壊を防ぎ、指定キーワードのみを装飾するプロシージャ
‘ ==============================================================================
Public Sub HighlightKeywordWithoutBreakingStyle()
Dim docTarget As Document
Set docTarget = ActiveDocument
‘ 検索・置換するキーワードと色の定義
Const TARGET_KEYWORD As String = “重要”
Dim TARGET_COLOR As Long
TARGET_COLOR = RGB(219, 68, 85) ‘ 洗練されたモダンなレッド
‘ 1. パフォーマンス最適化の鉄則：描画と警告の停止
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
Dim lngReplacedCount As Long
lngReplacedCount = 0
On Error GoTo ErrorHandler
‘ 2. 本文エリア（ストーリー）を起点とした安全なレンジ取得
Dim rngSearch As Range
Set rngSearch = docTarget.Content
‘ 3. Findオブジェクトによる高速一括置換の実行
With rngSearch.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = TARGET_KEYWORD
.Replacement.Text = “^&” ‘ ^& は「検索された文字列自身」を意味する
.Forward = True
.Wrap = wdFindStop
.MatchCase = True ‘ 必要に応じてTrue/Falseを切り替え
.MatchWholeWord = False
.MatchWildcards = False
‘ スタイルを維持しつつ、文字色のみを置換
.Replacement.Font.Color = TARGET_COLOR
‘ 実行と置換回数のカウント（Wordの内部動作を利用）
.Execute Replace:=wdReplaceAll
‘ ※注意: wdReplaceAllの戻り値はBooleanだが、正確なカウントが必要な場合は
‘ ループ回すアプローチを取るか、ステータスバー等でフィードバックする。
End With
‘ 4. ヘッダーやフッター、テキストボックスなど「本文以外」のストーリーも走査する
Dim rngStory As Range
Dim stpStory As StoryType
For Each rngStory In docTarget.StoryRanges
‘ 本文（wdMainTextStory）はすでに処理済みだが、リンケージされている
‘ その他のストーリー（ヘッダー、フッター、脚注など）を網羅する
If rngStory.StoryType <> wdMainTextStory Then
Set rngSearch = rngStory
With rngSearch.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = TARGET_KEYWORD
.Replacement.Text = “^&”
.Forward = True
.Wrap = wdFindStop
.Replacement.Font.Color = TARGET_COLOR
.Execute Replace:=wdReplaceAll
End With
End If
‘ 連結されたストーリー（セクションごとのヘッダー等）の処理
Do While Not (rngStory.NextStoryRange Is Nothing)
Set rngStory = rngStory.NextStoryRange
With rngStory.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = TARGET_KEYWORD
.Replacement.Text = “^&”
.Forward = True
.Wrap = wdFindStop
.Replacement.Font.Color = TARGET_COLOR
.Execute Replace:=wdReplaceAll
End With
Loop
Next rngStory
MsgBox “キーワードの装飾処理が完了しました。”, vbInformation, “処理成功”
CleanUp:
‘ 5. 環境の確実な復元
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
—
アーキテクトからの実践的アドバイス
1. StoryRangesの走査を忘れるな
多くのVBA初心者が書くコードは `ActiveDocument.Content` しか見ていない。しかし、実際の業務文書では「ヘッダー・フッター」「コメント」「テキストボックス」の中にこそ重要なキーワードが潜んでいる。上記のコードのように `StoryRanges` をループさせる設計こそが、プロの成果物と素人のスクリプトを分ける境界線だ。
2. 置換文字列に指定する `^&` の魔力
`Replacement.Text = “^&”`。このメタ文字を知っているかどうかも、Word VBAの習熟度を測るリトマス試験紙になる。これを使うことで、「マッチした文字列をそのまま維持しつつ、フォントプロパティ（色や太字など）だけを上書きする」という高度なアトミック操作が可能になる。
3. 外部データベースやExcel連携への拡張
もしこの処理を「Excelマスタから複数のキーワードを読み込んで動的に色を変えたい」という要件に拡張する場合は、ハードコーディングされた `TARGET_KEYWORD` の部分を、配列やDictionary、あるいはADO経由で取得したデータセットのループに置き換えればいい。その際も、今回解説した `Find` の初期化プロセス（`ClearFormatting`）をループの都度呼ぶことを忘れてはならない。
妥協のないコードは、美しいだけでなく、運用フェーズに入ってからのトラブルをゼロにする。ぜひあなたの開発プロジェクトの武器にしてほしい。
