Word VBAを掌握する極限の知見
【中級者向け】置換処理中に「特定の文字列」を無視する除外リストの実装
業務自動化の現場において、Wordの`Find.Execute Replace:=wdReplaceAll`は諸刃の剣だ。数万字のドキュメントが一瞬でクレンジングされる爽快感の一方で、「意図しない箇所まで置換されてしまい、ドキュメントが破壊された」という悲劇は、自動化エンジニアであれば誰もが一度は通過する通過儀礼だろう。
例えば、「Microsoft」という単語を「マイクロソフト」に統一する際、すでに「Microsoft 365」と表記されている部分や、あらかじめ保護すべき特定の文脈まで一律置換され、レイアウトやブランドガイドラインが崩壊する。
素人が陥る罠は、「置換した後に、間違えた箇所を元に戻す」という泥臭い逆アプローチだ。そんな非効率な設計では、ドキュメントの規模が大きくなるにつれて処理速度は幾何級数的に低下し、メモリリークの温床となる。
プロフェッショナルであれば、「置換エンジンに走らせる前に、条件判定のフィルター（除外リスト）をスクリプト層で担保する」か、あるいは「Findオブジェクトの挙動を完全にハックする」アプローチをとるべきだ。
今回は、実務の現場で即座に稼働し、一切の妥協を排した「除外リスト付きスマート置換エンジン」の設計思想と実装コードを伝授する。
—
なぜ「ワイルドカード」や「単純な一括置換」では太刀打ちできないのか？
Wordの検索・置換機能（`Find`オブジェクト）は非常に強力だが、その反面、「特定の文字列を除外しながら一括置換する」というネイティブな除外条件（NOT条件）を持たない。
考えられるアプローチとして以下の3つが挙がる。
1. 愚直なループ処理 (`Find.Execute`を`While`で回す)
- メリット: 1件ずつヒットするため、直前の文字列や周囲のコンテキストを判定できる。
- デメリット: 圧倒的に遅い。 ドキュメントの再描画やRangeの再取得が発生するため、実用に耐えない。
2. 正規表現（VBScript.RegExp）の活用
- メリット: 高度なパターンマッチングと除外（否定先読みなど）が可能。
- デメリット: Wordのネイティブオブジェクト（フィールドコード、図形内テキスト、表のセル構造など）を無視してテキストを書き換えるため、表の崩壊やリンクの破損を引き起こす危険性が極めて高い。
3. 【最適解】配列ベースの除外リスト ＋ 範囲（Range）制御ループ
- メリット: Wordのドキュメント構造を維持しつつ、メモリ上で高速にヒット箇所を走査し、除外キーワードに一致した場合は置換をスキップする。
今回は、この「3番目のアプローチ」をプロダクションコードとして実装する。
—
堅牢な設計の全体像
今回構築するマクロのアーキテクチャは以下の通りだ。
- データ駆動型設計: 置換対象ワードと、絶対に置換してはならない「除外キーワードリスト」を配列で分離管理する。これにより、要件変更時のコード修正を最小限にする。
- 安全性（Fail-Safe）: 処理中の画面描画や警告を完全に抑制し（`ScreenUpdating = False`）、エラー発生時でも確実に環境を復元するトランザクション構造を採用。
- パフォーマンスの極限追求: `Range.Find`オブジェクトを使い回し、不要なオブジェクト生成を排除。
—
プロダクションコード：除外リスト付きスマート置換マクロ
以下のコードをWordの標準モジュールに貼り付けてほしい。実務のテストをクリアした、そのままエンタープライズ環境で使えるコードだ。
Option Explicit
‘ =========================================================================
‘ módulo名: modSmartReplace
‘ 概要 : 除外リストを考慮した安全かつ高速な一括置換エンジン
‘ =========================================================================
Public Sub ExecuteSmartReplace()
‘ フォーマンスと安全性のための環境退避
Dim orgScreenUp As Boolean
Dim orgDisplayAlerts As Boolean
orgScreenUp = Application.ScreenUpdating
orgDisplayAlerts = Application.DisplayAlerts
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
‘ 1. 置換対象リストの定義 (Target, Replacement)
‘ ※必要に応じて外部CSVやDBから読み込む構造に拡張可能
Dim targetList(1, 1) As String
targetList(0, 0) = “Microsoft”: targetList(0, 1) = “マイクロソフト”
targetList(1, 0) = “Office”: targetList(1, 1) = “オフィス”
‘ 2. 除外キーワードリストの定義（この単語が含まれる、あるいは完全一致する場合は置換しない）
Dim excludeList() As String
ReDim excludeList(1)
excludeList(0) = “Microsoft 365” ‘ 例：この複合語は「Microsoft」単体での置換から除外
excludeList(1) = “Office 2021” ‘ 例：同様に除外
Dim targetDoc As Document
Set targetDoc = ActiveDocument
Dim i As Long
Dim rngTarget As Range
‘ 3. メイン処理ループ（置換ペアごとに実行）
For i = LBound(targetList, 1) To UBound(targetList, 1)
Dim searchWord As String
Dim replaceWord As String
searchWord = targetList(i, 0)
replaceWord = targetList(i, 1)
‘ 検索範囲の初期化（ドキュメント全体）
Set rngTarget = targetDoc.Content
With rngTarget.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = searchWord
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = True ‘ 大文字・小文字を区別する場合
.MatchWholeWord = False ‘ 部分一致を許可
‘ 該当するワードをくまなく走査
Do While .Execute
‘ ヒットした瞬間のRangeオブジェクトを評価
If Not IsExcludedContext(rngTarget, excludeList) Then
‘ 除外リストに該当しない場合のみ置換を実行
rngTarget.Text = replaceWord
‘ 置換後の文字列の末尾へレンジを移動し、無限ループを回避
rngTarget.Collapse wdCollapseEnd
Else
‘ 除外対象の場合は、ヒット箇所の次の文字から検索を再開
rngTarget.Collapse wdCollapseEnd
End If
Loop
End With
Next i
‘ 正常終了時の処理
MsgBox “スマート置換が正常に完了しました。”, vbInformation, “処理完了”
GoTo Finally
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “エラー”
Finally:
‘ 環境の復元（絶対にスキップさせてはならない）
Application.ScreenUpdating = orgScreenUp
Application.DisplayAlerts = orgDisplayAlerts
Set rngTarget = Nothing
Set targetDoc = Nothing
End Sub
‘ =========================================================================
‘ 関数名: IsExcludedContext
‘ 概要 : ヒットした範囲の前後の文脈を評価し、除外すべきか判定する
‘ =========================================================================
Private Function IsExcludedContext(ByRef rngHit As Range, ByRef excludeWords() As String) As Boolean
IsExcludedContext = False
‘ 【高度な文脈判定の肝】
‘ ヒットしたRangeの前後に拡張したコンテキスト範囲を作成して評価する
‘ ここではシンプルに「周辺文字列に除外キーワードが含まれているか」を判定
Dim rngContext As Range
Set rngContext = rngHit.Duplicate
‘ 前後に数文字（例：前10文字、後10文字）拡張して文脈をキャプチャ
‘ 表のセルや段落を跨いでの暴走を防ぐため、Expandメソッドの利用は慎重に。
rngContext.Start = IIf(rngHit.Start – 10 >= ActiveDocument.Content.Start, rngHit.Start – 10, ActiveDocument.Content.Start)
rngContext.End = IIf(rngHit.End + 10 <= ActiveDocument.Content.End, rngHit.End + 10, ActiveDocument.Content.End)
Dim contextText As String
contextText = rngContext.Text
Dim j As Long
For j = LBound(excludeWords) To UBound(excludeWords)
If excludeWords(j) <> “” Then
‘ 拡張したコンテキスト内に除外キーワードが存在するかどうか
If InStr(1, contextText, excludeWords(j), vbTextCompare) > 0 Then
IsExcludedContext = True
Exit Function
End If
End If
Next j
Set rngContext = Nothing
End Function
—
チーフアーキテクトからの実装上の重要助言
1. `wdFindStop` の絶対死守
- `.Wrap = wdFindContinue` や `wdFindAsk` を指定すると、ドキュメントの末尾に到達した際に先頭に戻り、無限ループの悪夢を引き起こす。コード内の `.Wrap = wdFindStop` は厳守すること。
2. 無限ループ回避のための `Collapse`
- VBAで置換を行う際、`rngTarget.Text = replaceWord` を実行した直後の `Range` は「置換された新しい文字列そのもの」を指す。このまま再度 `.Execute` を呼ぶと、置換後の言葉が再度ヒットして無限ループに陥る。必ず `rngTarget.Collapse wdCollapseEnd` で検索ヘッドを「置換語の右側」に強制移動させなければならない。
3. 拡張データベース・外部ファイル連携への拡張性
- 今回のコードでは配列内にハードコーディングしている置換・除外リストだが、実務の運用フェーズにおいては、これを Excelファイル（マスタ定義書） や 外部のSQLite/SQL Server から動的に読み込む設計にリファクタリングすべきだ。コードとデータを分離することで、非エンジニアの業務担当者がマスタをメンテできるようになり真の「業務効率化」が達成される。
—
結び
VBAにおける文字列操作は、一歩間違えればドキュメントを再起不能にする爆弾になり得る。しかし、オブジェクトのライフサイクルを理解し、適切なスコープ制御とフェイルセーフを組み込んだコードであれば、人間の目視確認の何百倍ものスピードと正確性を手に入れることができる。
「動けばいい」というアマチュアのコードから脱却し、メンテナンス性と堅牢性を極めたプロダクションコードをあなたの武器にしてほしい。
