序文：Word VBAの深淵へ
Word VBAを単なる「マクロの記録」の延長線上で捉えている者は、真の自動化の恩恵を一生受けることはできない。特に、Wordが備える「ワイルドカード検索（Pattern Matching）」は、その特異な構文ゆえに敬遠されがちだが、これを極めることは、数万ページのドキュメントをミリ秒単位で制御する「外科手術」のメスを手にするに等しい。
多くのエンジニアが正規表現（RegExp）を外部ライブラリとして呼び出すが、WordのネイティブなFindオブジェクトによるワイルドカード検索は、ドキュメントの「書式（Formatting）」や「構造（Structure）」と密接に結合している点で、RegExpよりも遥かに強力な破壊力を持つ。
本稿では、伝説的なチーフアーキテクトの視点から、Findオブジェクトのライフサイクル、ワイルドカードの極限活用、そして大規模システムでの運用に耐えうる堅牢な実装パターンを詳解する。
—
1. RangeオブジェクトとFindのライフサイクル管理
まず、素人は `Selection.Find` を使うが、シニアエンジニアは必ず `Range.Find` を選択する。`Selection` はUIスレッドに依存し、処理速度を著しく低下させるだけでなく、ユーザーの操作によって状態が破壊される「副作用」の塊だからだ。
オブジェクトの参照とメモリの解放
Wordの `Find` オブジェクトは、親となる `Range` オブジェクトのプロパティとして存在する。検索を実行するたびに `Range` はヒットした箇所へと「収縮・移動」する。この挙動を理解していないと、無限ループの罠に陥ることになる。
‘ 悪い例：Selectionに依存し、状態を制御できていない
‘ 良い例：Rangeを明示的に制御し、ライフサイクルを完結させる
Public Sub RefinedSearch()
Dim doc As Document
Set doc = ActiveDocument
Dim targetRange As Range
Set targetRange = doc.Content ‘ 文書全体をスコープとする
With targetRange.Find
.ClearFormatting ‘ 以前の検索条件を物理的に破棄
.Replacement.ClearFormatting
.Text = “[0-9]{4}/[0-9]{2}/[0-9]{2}” ‘ 日付パターン
.MatchWildcards = True ‘ ワイルドカードを有効化
.Forward = True
.Wrap = wdFindStop ‘ 終端で停止させるのが鉄則
‘ 実行フェーズ
Do While .Execute
‘ Executeが成功した瞬間、targetRangeはヒットした文字列の範囲に書き換わる
Debug.Print “Found: ” & targetRange.Text
‘ ここで複雑なロジックを注入する
‘ …
‘ 次の検索のためにRangeをヒット箇所の直後へ虚脱させる
targetRange.Collapse Direction:=wdCollapseEnd
Loop
End With
‘ オブジェクトの明示的解放（VBAの参照カウンタを確実に減らす）
Set targetRange = Nothing
End Sub
—
2. ワイルドカード検索の真髄：Regexとの相違点
Wordのワイルドカードは、一般的な正規表現（PCRE等）とは似て非なるものだ。特に「最長一致（Greedy）」の原則と、Word特有のメタ文字を理解しなければならない。
必須マスターパターン
- `[A-z]` : アルファベットの範囲。
- `[!]` : 否定。指定した文字以外。
- `<` / `>` : 単語の開始と終了。これは非常に強力で、文中の特定キーワードのみを抽出する際に誤爆を防ぐ。
- `{n,}` : 回数指定。
- `()` : グルーピング。置換時に `\1`, `\2` で参照可能。
実践的なパターン例：特定の書式を持つ「契約番号」の抽出
例えば、`[ABC-12345-X]` のような形式で、なおかつ「太字」になっている文字列だけをターゲットにする場合、Findオブジェクトは真価を発揮する。
—
3. 極限の置換ロジック：書式とパターンの融合
シニアエンジニアが書くコードは、単なる文字列置換に留まらない。Windows APIを介した描画停止（LockWindowUpdate）や、Wordの内部エンジンを最速で回すための設定を施す。
”’
”’
Public Sub AdvancedPatternNormalization()
On Error GoTo ErrorHandler
‘ 高速化のための描画停止
Application.ScreenUpdating = False
Dim rng As Range
Set rng = ActiveDocument.Content
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
‘ パターン：(株) などの表記を株式会社に統一し、特定のスタイルを適用
‘ ワイルドカード：\((株)\) -> 株式会社
.Text = “\((株)\)”
.Replacement.Text = “株式会社”
.Replacement.Font.Bold = True
.Replacement.Font.ColorIndex = wdBlue
.MatchWildcards = True
.Format = True ‘ 書式の変更を伴う場合はTrueが必須
‘ 一括置換の実行
.Execute Replace:=wdReplaceAll
End With
CleanUp:
Application.ScreenUpdating = True
Set rng = Nothing
Exit Sub
ErrorHandler:
‘ ログ出力やリカバリ処理
Debug.Print “Error: ” & Err.Description
Resume CleanUp
End Sub
—
4. アーキテクトが教える「255文字の壁」と回避策
Wordの `Find.Replacement.Text` には、255文字までという致命的な制限がある。大規模なレガシーシステムで、数千文字の定型文を流し込む場合、この制限に突き当たる。
回避策：クリップボードと特殊メタ文字 `^c` の活用
255文字を超える文字列を置換後のテキストにしたい場合、対象文字列を一度クリップボードに格納し、置換文字列に `^c`（Clipboard内容）を指定する手法をとる。
‘ 255文字を超える置換を実現するハック
Public Sub LongTextReplace(ByVal searchPattern As String, ByVal longText As String)
‘ 1. 長文を非表示の文書やDataObject経由でクリップボードへ
Dim dataObj As Object
Set dataObj = CreateObject(“New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}”) ‘ MSForms.DataObject
dataObj.SetText longText
dataObj.PutInClipboard
‘ 2. ^c を使って置換
Dim rng As Range
Set rng = ActiveDocument.Content
With rng.Find
.Text = searchPattern
.Replacement.Text = “^c” ‘ クリップボードの内容で置換
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End Sub
—
5. 結論：保守性とパフォーマンスの両立
Word VBAにおけるワイルドカード検索は、単なるテクニックではない。それはドキュメントという非構造化データに対する「クエリ」である。
1. Selectionを捨て、Rangeを愛せ。
2. Execute後のRangeの変容を常に意識せよ。
3. 書式（Format）とパターンを組み合わせ、検索の精度を極限まで高めよ。
4. 255文字の壁は `^c` で越えよ。
これらの原則を遵守することで、あなたの書くVBAコードは、単なる「動くコード」から「芸術的な資産」へと昇華する。レガシーな技術であっても、その深淵を理解すれば、現代のいかなるツールにも負けない圧倒的な生産性を発揮できるのである。
