【Word VBA】「検索と置換」で書式を保持したまま特定の文字列だけを置換する極意
Wordの自動化において、最もフラストレーションが溜まる瞬間。それは、「特定の書式（太字、特定のフォント、特定の色など）を持つ段落の中にある特定の文字列だけを、他の書式を一切破壊せずに書き換えたい」という要件に直面した時だ。
GUIの「検索と置換」ダイアログを使えば一瞬に見えるこの処理も、安易にVBAの `Content.Find.Execute` を書けば、ドキュメント全体の書式が吹き飛ぶか、意図しない箇所まで置換される地獄絵図が展開される。
今回は、Word VBAの `Find` オブジェクトのライフサイクルと、`Format` プロパティの挙動を完全に手なずけ、「特定の書式条件にヒットした範囲内でのみ、安全に文字列を置換する」ための堅牢なプロダクションコードを伝授しよう。
—
1. なぜ素朴な `Replace` や `Find` では破綻するのか？
多くの初中級者が陥る罠が、`Selection` やドキュメント全体に対する一括置換だ。
‘ 【アンチパターン】これをしてはいけない
ActiveDocument.Content.Find.Execute FindText:=”旧用語”, ReplaceWith:=”新用語”, Replace:=wdReplaceAll
このコードの何が問題か。
1. 書式の継承・喪失: 置換された瞬間、その箇所のフォントやサイズがデフォルトにリセットされるリスクがある。
2. コンテキストの無視: 「特定の書式（例：ハイライトや特定のスタイル）が適用されている段落の中」という条件を絞り込めないため、ドキュメント全体の関係ない箇所の文字列まで書き換えてしまう。
業務自動化ツールにおいて「意図しない箇所の破壊」は致命傷である。我々は、「対象の書式を持つ段落（またはRange）」を特定し、その局所空間（Scope）の内部だけでFind & Replaceを完結させるというアーキテクチャを採用しなければならない。
—
2. 堅牢な設計：`Find.Format = True` と Range の局所化
Wordの `Find` オブジェクトは、一度条件を設定するとメモリ（アプリケーションセッション）にその状態が保持されるという厄介な仕様を持っている。つまり、明示的な初期化とリセットを行わないと、前回の実行時のゴミが次の処理を汚染する。
特定の書式を検知して置換を行うための要件は以下の通り：
1. `Find.ClearFormatting` で検索・置換条件を完全にクリアする。
2. `Find.Format = True` を有効にし、検索条件に「書式」を含める。
3. ドキュメント全体をスキャンし、目的の書式を持つ「段落（Paragraph）」または「範囲（Range）」を特定する。
4. その局所化された `Range.Find` に対してのみ文字列置換を実行する。
—
3. 【プロダクションコード】書式保持型・限定置換エンジン
実務の現場でそのまま組み込める、エラーハンドリング完備のプロフェッショナルなコードを提供する。
今回は例として、「太字（Bold）が適用されている段落」の中に含まれる `”古い文字列”` を `”新しい文字列”` に置換するシナリオを実装する。
Option Explicit
Public Sub ExecuteTargetedReplacement()
‘ =========================================================================
‘ 処理名: 特定書式（太字）段落内限定 文字列置換エンジン
‘ 概要 : ドキュメントを走査し、指定書式を持つ段落内でのみ安全に文字列を置換する。
‘ =========================================================================
Dim targetDoc As Document
Set targetDoc = ActiveDocument
Dim targetPara As Paragraph
Dim searchRange As Range
‘ 検索・置換する文字列の定義
Const TARGET_TEXT As String = “古い文字列”
Const REPLACE_TEXT As String = “新しい文字列”
‘ 画面描画を停止してパフォーマンスを爆発的に向上させる
With Application
.ScreenUpdating = False
.Calculation = wdCalculationManual
.DisplayAlerts = wdAlertsNone
End With
On Error GoTo ErrorHandler
‘ ドキュメント内の全段落をループ
For Each targetPara In targetDoc.Paragraphs
‘ 段落の範囲を取得
Set searchRange = targetPara.Range
‘ 【重要】ここで「対象段落が目的の書式を持っているか」を判定する
‘ 例：段落内に「太字」が含まれている場合のみ処理対象とする
‘ ※段落全体ではなく、部分的な書式を判定する場合は Font.Bold を使用
If HasSpecificFormatting(searchRange) Then
‘ 局所化されたRangeに対してのみ置換を実行
With searchRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = TARGET_TEXT
.Replacement.Text = REPLACE_TEXT
‘ 前方一致・大文字小文字の区別などの設定
.Forward = True
.Wrap = wdFindStop ‘ 範囲内だけで停止させる
.Format = False ‘ ここでの書式検索は不要（Range自体で既にフィルタリング済み）
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
‘ 実行（範囲内の該当箇所をすべて置換）
.Execute Replace:=wdReplaceAll
End With
End If
Next targetPara
MsgBox “置換処理が正常に完了しました。”, vbInformation, “処理成功”
CleanUp:
‘ 画面描画と設定を必ず復元する
With Application
.ScreenUpdating = True
.Calculation = wdCalculationAutomatic
.DisplayAlerts = wdAlertsAll
End With
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
‘ =========================================================================
‘ 補助関数: 指定されたRangeに特定の書式（例：太字）が含まれているか判定
‘ =========================================================================
Private Function HasSpecificFormatting(ByVal rng As Range) As Boolean
Dim checkRange As Range
Set checkRange = rng.Duplicate
With checkRange.Find
.ClearFormatting
.Font.Bold = True ‘ 検索条件：太字
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
‘ 該当する書式が見つかった場合のみTrueを返す
HasSpecificFormatting = .Execute
End With
End Function
—
4. このコードが「プロフェッショナル」たる所以（アーキテクチャの解説）
1. `ScreenUpdating` と `Calculation` の完全制御
Word VBAの処理が遅い最大の原因は、一文字変更するたびにGUIのレンダリングやフィールドの再計算が走ることにある。`ScreenUpdating = False` と手動計算モードへの切り替えは、大規模な文書を扱う業務ツールでは必須の作法である。
2. `Range.Duplicate` によるメモリ安全性の確保
補助関数 `HasSpecificFormatting` 内で `rng.Duplicate` を使用している点に注目してほしい。
Word VBAでオブジェクト変数をそのまま使い回すと、予期せぬポインタの移動により無限ループやオブジェクトの消失（Error 4605など）を引き起こす。`Duplicate` メソッドでインスタンスのクローンを生成して処理を行うのは、堅牢なWordマクロの定石である。
3. `wdFindStop` によるスコープの封じ込め
`Wrap = wdFindStop` を指定することで、検索がドキュメントの先頭や末尾にループするのを防ぎ、渡された `Range` の境界線内で確実に検索を打ち切らせている。これにより、意図しないセクションへの波及を物理的に遮断する。
—
5. データベースや外部ファイル連携時の注意点
こうしたWord自動化ツールを、Excelマクロや外部データベース（Access / SQL Server）、あるいはPythonなどの別プロセスから制御・連携させる場合、以下の地雷原に注意してほしい。
- 遅延バインディングの回避とオブジェクトの解放: 外部からWordを操作する場合（CreateObject(“Word.Application”)）、変数は必ずローカルスコープで完全に解放し、`Set appWord = Nothing` を徹底すること。さもないと、タスクマネージャーに `WINWORD.EXE` のゾンビプロセスが残り続け、ファイルロックエラーの元となる。
- トランザクション的思考: 外部データから取得した置換リスト（CSVやDB）を順次Wordに適用する場合、処理途中でエラーが起きるとドキュメントが中途半端に書き換わる。処理の冒頭でドキュメントのバックアップ（または `ActiveDocument.Saved = True` の管理）を仕組みとして組み込んでおくべきだ。
総括
Word VBAにおける「検索と置換」は、単なるテキスト操作の命令ではない。ドキュメントという二次元の空間と、書式というメタデータを安全に制御するための幾何学的な操作である。
今回紹介した「局所化されたRangeに対するFind操作」のパターンをマスターすれば、いかなる複雑なフォーマットを持つ業務文書であっても、既存の美しいデザインを一切崩すことなく、完璧な自動化を達成できるはずだ。エンジニアとしての誇りを持ち、脆弱なコードを駆逐してほしい。
