【Word VBA】一括置換の暴走を断つ：置換除外リスト（ブラックリスト）の高度実装とメモリ管理の極意
Wordの `Find.Execute Replace:=wdReplaceAll` は、文書全体を一瞬で書き換える強力なメソッドだ。しかし、この強力さは諸刃の剣である。
社内ニッチな専門用語、ブランド名、あるいは法的な固有名詞など、「絶対に置換してはならない文字列」が混在する巨大文書に対してこれを実行すれば、文書は一瞬にして破壊される。
中級者がやりがちな「条件分岐なきループによる個別置換」は、COMオブジェクトの往復回数（オーバーヘッド）が増大し、数万行の文書では処理が終わらない。
本稿では、Word VBAにおける `Find` オブジェクトの挙動の裏側を暴き、パフォーマンスを一切落とさずに「特定の文字列を完全に無視する除外リスト（ブラックリスト）」を実装するチーフアーキテクト流の極限手法を解説する。
—
1. Word `Find` のライフサイクルと「暴走」のメカニズム
Word VBAの検索・置換エンジンは、裏でC++ベースのCOMコンポーネントが動いている。
`wdReplaceAll` は高速だが、マッチした瞬間に無条件で置換を執行する。そのため、「特定の文脈では置換したくない」「特定の単語の手前・後にある場合は除外したい」といった制御ができない。
これを制御しようとして、`Range.Find` をループさせ、ヒットするたびに `InStr` で除外判定を行うコードを書く者がいるが、これは最悪のアンチパターンだ。
ドキュメントのRangeオブジェクトにアクセスするたびにWordのUIスレッドとVBA間でCOMプロキシのマーシャリングが発生し、処理速度が劇的に低下する。
解決アプローチ：
1. 除外すべき単語群をメモリ上の一次元配列（あるいはDictionary）に展開する。
2. `Find` でヒットした瞬間に、その位置（Range）の前後のコンテキストを高速に評価する。
3. 除外条件にヒットした場合は、置換を実行せずに検索位置だけを進める（あるいはマッチをスキップする）。
—
2. 実装コード：除外リスト付きスマート置換エンジン
以下のコードは、文書内の特定のキーワード（例: “Microsoft”）を一括置換する際、特定の除外リスト（例: “Microsoft 365” や “Microsoft MVP” のような複合語の一部）に該当する場合は、置換対象から外す高度なプロシージャである。
Option Explicit
‘ 早期バインディングのために要参照設定: Microsoft Scripting Runtime
Private Sub AdvancedReplaceWithExcludeList()
Dim targetDoc As Document
Set targetDoc = ActiveDocument
Dim findText As String: findText = “Microsoft”
Dim replaceText As String: replaceText = “[REDACTED]”
‘ 除外キーワードの定義（配列またはDictionary）
Dim excludeList As Variant
excludeList = Array(“Microsoft 365”, “Microsoft MVP”, “Microsoft Azure”)
‘ パフォーマンス最適化の極意：画面描画とイベントの完全停止
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.Calculation = wdCalculationManual
End With
Dim rng As Range
Set rng = targetDoc.Content
‘ 検索条件の構築
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = findText
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = True
.MatchWholeWord = True
‘ ループによるヒット位置の制御
Do While .Execute
‘ ヒットしたRangeの前後のコンテキストを取得し、除外リストと照合
If Not IsExcludedContext(rng, excludeList) Then
‘ 除外対象でなければ置換を実行
rng.Text = replaceText
‘ 置換後の文字列の末尾へレンジを移動し、無限ループを防止
rng.Collapse wdCollapseEnd
Else
‘ 除外対象の場合は、マッチした単語の次へレンジを進めて検索継続
rng.Collapse wdCollapseEnd
End If
Loop
End With
CleanUp:
‘ 確実なメモリ解放と環境復元（COMのリークを防ぐ）
Set rng = Nothing
Set targetDoc = Nothing
With Application
.Calculation = wdCalculationAutomatic
.DisplayAlerts = wdAlertsAll
.ScreenUpdating = True
End With
MsgBox “置換処理が完了しました。”, vbInformation, “チーフアーキテクトエンジン”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
‘ —————————————————————–
‘ コンテキスト評価関数：ヒットした前後の文字列を含めて除外判定を行う
‘ —————————————————————–
Private Function IsExcludedContext(ByRef hitRange As Range, ByRef excludes As Variant) As Boolean
IsExcludedContext = False
‘ ヒットした位置の前後の文脈（例：前後10文字、あるいは同一段落全体）を取得
‘ ここではより安全に「同一段落（Paragraph）」のテキスト全体を評価対象とする
Dim targetParagraphText As String
targetParagraphText = hitRange.Paragraphs(1).Range.Text
Dim i As Long
For i = LBound(excludes) To UBound(excludes)
‘ 除外ワードが段落内に含まれているか、あるいは厳密な前後関係をチェック
If InStr(1, targetParagraphText, CStr(excludes(i)), vbTextCompare) > 0 Then
‘ さらに厳密な位置特定が必要な場合はここにオフセット計算を実装
IsExcludedContext = True
Exit Function
End If
Next i
End Function
—
3. チーフアーキテクトが解説するコードの急所（キモ）
① `Application` プロパティの完全封鎖
大規模文書の処理において、`ScreenUpdating = False` だけでは不十分だ。
文書内にフィールドコードや複雑な表構造が存在する場合、`Calculation = wdCalculationManual`（手動計算）を設定しなと、置換のたびにWordがバックグラウンドで再計算を実行し、CPUコアを焼き尽くす。プロシージャの最初と最後で確実に環境をトグルすること。
② 無限ループの罠と `rng.Collapse`
`Find.Execute` を `Do While` で回す際、置換を行った後にレンジのポインタを適切に移動させないと、同じ場所を永遠に検索し続ける無限ループ（ハングアップ）に陥る。
`rng.Collapse wdCollapseEnd` を用いることで、ヒットした文字列の「直後の文字」に検索開始点を強制移動させ、処理を安全に前進させている。
③ COMオブジェクトの明示的破棄（メモリ最適化）
VBAのガベージコレクションは頼りにならない。特にWord VBAでは、`Range` や `Document` オブジェクトの参照がメモリ上に残留し、処理を繰り返すとメモリリーク（Wordプロセスの肥大化）を引き起こす。
プロシージャの終了時には必ず `Set rng = Nothing` を実行し、参照カウントを意図的にゼロに落とすこと。
—
4. レガシー環境・外部システム連携における実務的知見
もしこの処理を、外部のC#アプリケーションやVBAマクロランチャーからCOM経由で呼び出す（オートメーション）場合、さらに注意が必要だ。
- エラーハンドリングの徹底: Wordがバックグラウンドプロセスとしてゾンビ化するのを防ぐため、必ず `On Error GoTo ErrorHandler` を経由させ、異常終了時でも確実に `Application` の設定を復元させなければならない。
- 大規模文書（数千ページ）の分割: 10MBを超えるような巨大なWord文書を一括処理する場合、メモリ断片化を防ぐために、セクション単位あるいはページ範囲を区切ってトランザクション的に処理するアーキテクチャ設計が望ましい。
正確性と速度、そして堅牢性。この3つを高い次元で満たすコードこそが、現場を救う唯一の武器となる。泥臭い力技の置換マクロは、今日で卒業しよう。
