Word VBAを掌握する極限の知見：除外リスト制御による「賢い」置換エンジンの実装
Word VBAにおける `Find` および `Replacement` オブジェクトの挙動は、その背後にあるCOMコンポーネントのライフサイクルとメモリ管理のメカニズムを理解していないと、しばしば予期せぬ暴走やメモリリークを引き起こす。特に、何万行にも及ぶ大規模なマニュアルや契約書の一括置換において、「特定のキーワードだけは絶対に置換したくない」という要件に直面した時、素朴な実装では対応しきれなくなり、処理速度は劇的に低下する。
本稿では、配列ベースの除外リストを用い、検索ヒットの都度、文脈や周辺のメタデータを評価して置換を動的にバイパスする、実戦投入に耐えうる堅牢な置換エンジンのアーキテクチャを解説する。
—
1. Word VBAの `Find` エンジンが抱える構造的罠
Wordの `Find` は、GUIの「検索と置換」ダイアログとメモリ空間を共有している。そのため、マクロの実行前にWordのUI上でどのような検索条件が設定されていたかによって、コードの挙動が変わるという致命的な脆弱性（ステートの持ち越し）を抱えている。
シニアエンジニアが最初にすべきことは、このグローバルな検索ステートの完全な初期化である。
さらに、`Find.Execute` をループさせる際、`Selection` オブジェクトを操作してはならない。画面の描画更新（ScreenUpdating）や選択範囲の移動は、VBAの実行速度を桁違いに低下させる最大の要因である。常に `Range` オブジェクトを局所的に生成・操作し、Wordの描画エンジンに負荷をかけない設計が求められる。
—
2. アーキテクチャ設計：除外リスト制御エンジン
今回構築するエンジンの要件は以下の通りである。
1. 一括置換の高速性: `Range` オブジェクトをベースにしたメモリ上での高速走査。
2. 動的除外リスト: 置換対象外とすべきキーワードを配列で保持し、柔軟に追加・拡張可能にする。
3. 安全なライフサイクル管理: オブジェクトの適切な参照解放とエラーハンドリング。
以下に、実務の現場でそのまま利用できるプロダクション品質のコードを示す。
実装コード：`clsSmartReplacer` 相当のモジュール
Option Explicit
‘ ==============================================================================
‘ 致命的な置換漏れと誤爆を防ぐ、除外リスト付きスマート置換エンジン
‘ Architecture: チーフアーキテクト専用カスタムビルド
‘ ==============================================================================
Public Sub ExecuteSmartReplace()
‘ 1. パフォーマンス・オブザーバビリティの最適化
Dim startTime As Double
startTime = Timer
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.Calculation = wdCalculationManual
End With
On Error GoTo ErrorHandler
‘ 2. 検索・置換パラメータの定義
Const TARGET_KEYWORD As String = “システム”
Const REPLACE_KEYWORD As String = “プラットフォーム”
‘ 3. 除外キーワードの配列定義（ビジネスロジックに応じた拡張性）
Dim excludeList() As String
excludeList = Split(“レガシーシステム,外部システム,開発システム”, “,”)
‘ 4. ドキュメント全体のRangeを取得（Selectionの排除）
Dim targetRange As Range
Set targetRange = ActiveDocument.Content
‘ 5. Findオブジェクトの初期化とステートクリア
With targetRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = TARGET_KEYWORD
.Replacement.Text = REPLACE_KEYWORD
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
‘ 6. ヒットごとの精緻な制御ループ
Dim isMatchFound As Boolean
isMatchFound = .Execute
Do While isMatchFound
‘ ヒットした瞬間の文脈（Range）を特定
‘ ※Replacementプロパティによる一括置換ではなく、ヒット箇所を個別に検証する
Dim matchRange As Range
Set matchRange = targetRange.Duplicate
‘ 除外リストとの照合
If Not IsExcluded(matchRange, excludeList) Then
‘ 除外条件に該当しない場合のみ置換を実行
matchRange.Text = REPLACE_KEYWORD
‘ 置換後のテキストによってRangeの終端が変動するため、
‘ 検索開始位置を置換後の末尾に再設定し、無限ループを回避
targetRange.Start = matchRange.End
Else
‘ 除外対象の場合は、検索開始位置をヒット箇所の次の文字に進めて続行
targetRange.Start = matchRange.End
End If
‘ 次の検索を実行
isMatchFound = .Execute
Loop
End With
‘ 正常終了処理
GoTo Finally
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
Finally:
‘ 7. リソースの明示的解放と環境の復元
Set targetRange = Nothing
Set matchRange = Nothing
With Application
.Calculation = wdCalculationAutomatic
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
Debug.Print “置換処理完了. 実行時間: ” & Format(Timer – startTime, “0.00秒”)
End Sub
‘ ==============================================================================
‘ 補助関数: ヒットしたRangeの文脈（前後含む、または完全一致）が除外リストに含まれるか判定
‘ ==============================================================================
Private Function IsExcluded(ByVal rng As Range, ByRef list() As String) As Boolean
Dim i As Long
Dim checkText As String
‘ ここでは単純にヒットしたテキスト自体の完全一致、
‘ あるいは前後の文脈を含めた文字列としての評価を行う
checkText = rng.Text
For i = LBound(list) To UBound(list)
If InStr(1, checkText, list(i), vbTextCompare) > 0 Then
IsExcluded = True
Exit Function
End If
Next i
IsExcluded = False
End Function
—
3. コードの深層解説：なぜこの実装が必要なのか？
`targetRange.Duplicate` の活用とメモリの神髄
VBAにおいて、`Range` オブジェクトはWordのネイティブヒープと密に結合している。ループ内で単に `Set matchRange = targetRange` とすると、参照がグローバルな検索レンジに縛られたままになり、意図しないドキュメントの切り詰めや無限ループを引き起こす。
`Duplicate` メソッドを使用することで、現在の検索ヒット位置を完全に独立した新しいメモリ領域（インスタンス）として切り出し、安全に処理することが可能になる。
無限ループの防止と `targetRange.Start` のシフト
`Replacement.Execute` を使わずに `matchRange.Text = REPLACE_KEYWORD` と直接書き換えている点に注目してほしい。
一括置換（`Replace:=wdReplaceAll`）を使用した場合、Wordの内部エンジンは除外判定の余地を与えずにすべてを置換してしまう。そのため、手動で `Execute` ループを回し、ヒットした `Range` ごとに条件分岐を入れる必要がある。
この手法において最も危険なのが、置換後の文字列長が変わった場合の「無限ループ」である（例：「システム」を「巨大プラットフォーム」に置換すると文字数が増え、次の検索が同じ場所を指してしまう現象）。
コード内の `targetRange.Start = matchRange.End` という明示的なポインタ（レンジの始点）の移動こそが、この破綻を防ぐ唯一の防壁となる。
パフォーマンスへの配慮
大規模文書において `ScreenUpdating = False` と `Calculation = wdCalculationManual` の無効化は必須である。Wordはテキストが書き換えられるたびにページレイアウトの再計算やフィールドの更新を行おうとするため、これらを停止させないマクロは、実務の現場では「使い物にならない玩具」に等しい。
—
4. チーフアーキテクトからの提言
実務の現場では、単に「動くコード」を書くだけではプロフェッショナルとは言えない。
今回紹介した除外リストによる制御パターンは、VBAに留まらず、C# (.NET Interop) やPython (win32com) を用いたWord自動化アーキテクチャにおいてもそのまま応用できる普遍的なデザインパターンである。
レガシーな仕様とモダンな制御思想を融合させ、システム全体の信頼性を極限まで高めること。それこそが、現場を支えるエンジニアの責務である。
