【テクニカル・上級編】Findオブジェクトのワイルドカード検索を極める：複雑な文字列パターンを抽出・置換する正規表現の代替手段 – Word VBA解析バイブル

Word VBAを掌握する極限の知見：Findオブジェクトのワイルドカード検索を極める

Word VBAにおけるテキスト処理の成否は、`Find`オブジェクト、そしてその中核をなす「ワイルドカード検索」をどれだけ手足のように使いこなせるかにかかっている。

世の多くの解説記事は、UIの検索ダイアログの延長線上でワイルドカード構文を解説して終わる。だが、現場のシニアエンジニアが直面するのは、数万ページのレガシー文書、文字化けの地雷原、そしてVBA特有のメモリ管理とパフォーマンスの限界だ。.NETの正規表現（`System.Text.RegularExpressions`）に逃げることも可能だが、Wordのネイティブな段落構造やスタイル、フィールドコードを維持したまま高速に処理するには、Word独自のワイルドカードエンジンをVBAから直接、極限までチューニングして叩く必要がある。

本稿では、Word独自のワイルドカード検索をAPIレベルの知見とオブジェクトモデルのライフサイクル管理の観点から再定義し、実務で即座に使える極限のコードパターンを提示する。

—

1. Wordワイルドカードエンジンの深層と「正規表現」との決定的違い

Wordのワイルドカードは、実態としてPOSIXやPerl互換の正規表現とは異なる。内部エンジンは独自のものであり、検索対象が「段落」や「ストーリー（本文、ヘッダー、脚注など）」というWord特有の構造に強く結びついている。

頻出する独自構文の罠

• `?`: 任意の1文字（正規表現の `.` に相当）
• “: 任意の文字列（正規表現の `.` に相当。ただし貪欲マッチのみ）
• `@`: 直前の文字の1回以上の繰り返し（正規表現の `+` に相当）
• `<` と `>`: 単語の先頭と末尾（`\b` に相当するが、日本語環境では挙動が破綻しやすい）
• `[a-z]` や `[!a-z]`: 文字クラスと否定文字クラス

最大の障害は、「“ が貪欲マッチ（Greedy Match）しかしない」点と、「非ングル・ライン（改行を跨いだマッチング）が困難な場合がある」という点だ。これを制御するには、検索範囲を `Range` オブジェクトで厳密に絞り込む必要がある。

—

2. パフォーマンスとメモリ最適化の鉄則：オブジェクトのライフサイクル

数万行に及ぶ文書で `.Execute` をループさせると、VBAのメモリリークや処理速度の著しい低下（いわゆる「重いマクロ」）が発生する。これはWordのCOMオブジェクトが裏でメモリを掴み続けることが原因だ。

チーフアーキテクトとして、以下の鉄則をコードに強制する。

1. 画面描画とイベントの完全抑制: `ScreenUpdating` と `EnableEvents` を `False` に。
2. Undoスタックのクリア: 大規模な置換や検索の前後でメモリを圧迫するため、可能な限りドキュメントの不要な履歴を排除する。
3. Findオブジェクトのプロパティは毎回初期化: `ClearFormatting` と `ClearAllFldResults`（必要な場合）を徹底する。

—

3. 実践：複雑なパターンを駆逐するプロダクションコード

以下のコードは、例えば「【」から「】」で囲まれた文字列（ネストなし）を抽出し、その内部構造を解析・置換するシチュエーションを想定した、実務レベルのモジュールである。

単なる文字列置換ではなく、`Range`のライフサイクルを厳密に管理し、無限ループを防ぐためのガード条件を実装している。

Option Explicit

‘ =========================================================================
‘ ﾓｼﾞｭｰﾙ名: modWordWildcardEngine
‘ 概要 : Wordのワイルドカード検索を極限まで最適化した抽出・置換エンジン
‘ 著者 : チーフアーキテクト
‘ =========================================================================

Public Sub ExecuteAdvancedWildcardExtraction()
Dim targetDoc As Document
Set targetDoc = ActiveDocument

‘ パフォーマンス最適化の極限：描画、警告、再計算の完全停止
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.Calculation = wdCalculationManual
End With

Dim startTime As Double
startTime = Timer

‘ 検索用Rangeオブジェクトの生成（本文ストーリーを対象）
Dim searchRange As Range
Set searchRange = targetDoc.Content

With searchRange.Find
.ClearFormatting
.Replacement.ClearFormatting

‘ 【重要】ワイルドカードを有効化
.MatchWildcards = True

‘ 検索パターン：【 で始まり、任意の文字（改行を除く）が続き、】 で終わるパターン
‘ [!^13]@ は「改行文字(^13)以外の文字が1回以上続く」を意味するWord独自のイディオム
.Text = “【[!^13@]】”

.Forward = True
.Wrap = wdFindStop
.Format = False

‘ ヒットした要素を走査するループ
Dim matchCount As Long
matchCount = 0

Do While .Execute
matchCount = matchCount + 1

‘ 抽出された文字列に対する処理（例：ログ出力や特定処理）
‘ searchRange 自体がヒットした範囲に自動的にリサイズされる
Debug.Print “Hit ” & matchCount & “: ” & searchRange.Text

‘ 【重要】無限ループ回避のため、Rangeの終了位置を末尾に移動して次へ進む
‘ これを行わないと、同じ箇所を永遠にループし続けるメモリハングを起こす
Dim foundRange As Range
Set foundRange = searchRange.Duplicate

‘ 例として、ヒットした文字列のフォントカラーを赤に変更する
foundRange.Font.Color = wdColorRed

‘ 検索位置をヒットした文字列の末尾に移動
searchRange.Collapse wdCollapseEnd

‘ 参照解放
Set foundRange = Nothing
Loop
End With

‘ 終了処理とパフォーマンス復元
With Application
.Calculation = wdCalculationAutomatic
.DisplayAlerts = wdAlertsAll
.ScreenUpdating = True
End With

MsgBox “処理完了: ” & matchCount & ” 件のパターンを検出し処理しました。” & vbCrLf & _
“実行時間: ” & Format(Timer – startTime, “0.00秒”), vbInformation, “アーキテクチャ・ログ”

ErrorHandler_Exit:
‘ 異常終了時の安全弁
If Not Application.ScreenUpdating Then Application.ScreenUpdating = True
If Not Application.Calculation = wdCalculationAutomatic Then Application.Calculation = wdCalculationAutomatic
Exit Sub

ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
Resume ErrorHandler_Exit
End Sub

—

4. チーフアーキテクトが教える「現場の地雷原」と回避策

地雷その1：Word特有の改行コード（`^13` と `^11`）

Wordでは通常の段落記号は `^13`（`vbCr`）、Shift+Enterによる手動改行は `^11`（`vbLf`）として扱われる。
ワイルドカード検索において “ はこれらを超えてマッチすることがある意図しない挙動を示す。
構造化されたテキスト（XMLライクなタグやJSON風のデータ）をパースする場合、`[!^13^11]` のように改行文字を明示的に除外する文字クラスを定義することが、システム間連携における文字化けやデータ破損を防ぐ唯一の防衛策となる。

地雷その2：Findオブジェクトの「状態汚染（State Pollution）」

`Find` プロパティは、一度アプリケーション側で設定されると、Wordを終了するまで（あるいは明示的にリセットするまで）その設定が保持される。
マクロの実行前後で `.MatchWildcards = False` に戻し忘れたり、フォントや段落書式の条件が残ったままになると、後続の通常の文字列検索（UIからの手動検索含む）がすべて失敗するというサポート泣かせのバグを引き起こす。
プロシージャの最初と最後で必ず `ClearFormatting` を行い、フラグを明示的にデフォルト値へ戻すこと。

—

総括

Word VBAにおけるワイルドカード検索は、単なる「便利な文字検索機能」ではない。これは、巨大な文書構造データベースを高速にクリングするための低レイヤーAPIと同等である。

オブジェクトのライフサイクルを制御し、検索範囲（`Range`）のポインタ操作を完全に手中に収めた者だけが、レガシー文書の自動化という荒野を制覇することができる。泥臭いVBAの世界であっても、アーキテクチャの美しさと厳密性を妥協してはならない。