Word VBAの「地雷」を解体する：フィールドコードを汚染しない堅牢な検索ロジック
Wordの `Find` オブジェクトを安易にループさせて文書全体を置換する――それは、ドキュメントの破壊を待つ「時限爆弾」を仕掛ける行為に等しい。
目次（TOC）、相互参照、差し込み印刷。これら「フィールドコード」は、Wordの文書構造において特権的な領域だ。ここを置換処理で破壊すれば、参照関係は崩壊し、ユーザーは「ファイルを開けない」という悪夢を見る羽目になる。
本稿では、シニアエンジニアとして、Wordの内部構造を汚染せず、かつパフォーマンスを極限まで引き出すための検索ロジックを伝授する。
—
1. フィールドコードを「検索対象外」にする理由
Wordの `Range.Find` は、デフォルトではフィールドコード内のテキストも検索対象に含める。これは、Wordが内部的に「表示用文字列」と「フィールドコード」を透過的に扱っているためだ。
しかし、我々が置換を行いたいのはあくまで「本文（StoryType: wdMainTextStory）」のみである。目次を破壊すれば、そのドキュメントの整合性は一瞬で失われる。これを防ぐための唯一の正解は、「Rangeオブジェクトをフィールドコードの境界で制御し、適切な StoryRange を選択すること」に尽きる。
—
2. 実践：フィールドコードを無視する安全な検索ロジック
以下のコードは、単なる検索ではない。Wordのメモリ管理とオブジェクトのライフサイクルを考慮した、プロダクション品質のテンプレートだ。
Option Explicit
‘ 検索置換を実行するメインルーチン
Public Sub SecureReplaceText(ByVal targetStr As String, ByVal replaceStr As String)
Dim rng As Range
Set rng = ActiveDocument.Content
‘ 最適化: 画面描画の停止
Application.ScreenUpdating = False
‘ フィールドコードを保護しつつ検索を行う
‘ wdMainTextStory を指定することで、ヘッダーやフッター、フィールド内部の
‘ 非表示テキストによる意図しないマッチングを抑制する
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = targetStr
.Replacement.Text = replaceStr
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
‘ 実行
.Execute Replace:=wdReplaceAll
End With
‘ メモリ解放の明示的実施
Set rng = Nothing
Application.ScreenUpdating = True
End Sub
なぜこれが「安全」なのか
- StoryRangeの限定: `ActiveDocument.Content` を使用することで、メインテキストストーリーにフォーカスを絞る。
- Findオプションの明示: `.ClearFormatting` を含めた初期化を徹底することで、前回の検索設定がレジストリやWordの内部キャッシュから漏れ出す「状態汚染」を防ぐ。
—
3. さらに先へ：正規表現を活用した高度なフィルタリング
VBA標準の `Find` は正規表現が貧弱だ。より複雑なパターンマッチング（例えば、特定のタグで囲まれた数値のみ置換するなど）が必要な場合、VBScriptの `RegExp` を併用するパターンが一般的だが、ここには罠がある。Wordの Range オブジェクトは、外部オブジェクトである RegExp に直接渡すことはできない。
もし大規模文書で高度な置換を行うなら、以下のアーキテクチャを採用すべきだ。
1. `Range.Text` を一度ローカル変数に格納する（メモリ許容範囲内であること）。
2. `RegExp` で置換後の文字列を生成する。
3. `Range.Text` を更新する。
注意: この手法は `Range` 全体をメモリに乗せるため、数千ページの文書では `OutOfMemory` を引き起こす。その場合は、`Paragraph`単位でループさせるのが、レガシー環境における「生存戦略」だ。
—
4. シニアエンジニアが心得ておくべき「Wordの作法」
- オブジェクトの明示的解放: VBAはガベージコレクションが甘い。特に `Range` や `Selection` をループで回す際、`Set obj = Nothing` を忘れると、COMインターフェースがメモリ上に残留し、Wordの終了時にプロセスがゾンビ化する。
- Undoスタックの爆発: `ReplaceAll` を多用すると、WordのUndo（元に戻す）スタックが極端に肥大化する。大量置換の前には `ActiveDocument.UndoClear` を検討せよ。
- Windows APIの必要性: もしWordがフリーズするレベルの巨大な文書を扱うなら、`Sleep` API を用いてCPUの占有率を調整する（メッセージループを解放する）必要がある。以下はその一例だ。
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
‘ 処理の合間に挟む
DoEvents
Sleep 10 ‘ OSに制御を戻す
—
結論
Word VBAにおいて、「動けばいい」はプロフェッショナルの思考ではない。フィールドコードというWordの聖域を理解し、オブジェクトのライフサイクルを制御下に置くこと。それこそが、何千回実行しても文書を破壊しない、伝説的な自動化エンジニアの領域である。
あなたのコードは、数年後の保守担当者が読んだとき、感謝されるものになっているだろうか。まずは、その `Find` オブジェクトの初期化から見直してほしい。
