Word VBAを掌握する極限の知見：Findオブジェクトのワイルドカード検索で「正規表現の壁」を突破する
Word VBAでのテキスト処理において、多くの開発者が「なぜVBAには本格的な正規表現エンジン（RegExp）が標準で組み込まれていないのか」と絶望する。`VBScript.RegExp`を使えばいいじゃないか、と思うかもしれない。しかし、考えてみてほしい。数万ページのドキュメントが持つ「段落書式」「スタイル」「フィールドコード」「段落番号のインデント情報」といったWord特有のレイアウト文脈を、プレーンテキストを対象とするRegExpが完全に保持できるだろうか？
答えは「NO」だ。テキストを外に持ち出した瞬間にレイアウトは崩壊し、再挿入のコストでパフォーマンスは死に至る。
Wordの内部検索エンジンが持つ「ワイルドカード検索」こそが、このジレンマを解決する唯一にして最強の解である。今回は、Findオブジェクトのワイルドカードを極限まで使い倒し、実務の現場でバグを生まない堅牢なパターン抽出・置換システムを構築する技術を伝授する。
—
1. なぜ「Wordのワイルドカード」でなければならないのか
WordのFind機能におけるワイルドカードは、一般的なPerl正規表現やJavaScriptのRegExpとは方言が異なる。そのため「使いにくい」と敬遠されがちだが、オブジェクトモデルのライフサイクルを熟知したエンジニアから見れば、これほど強力な武器はない。
正規表現エンジンに対する絶対的な優位性
- 文書構造の保持: 検索・置換の過程で、対象文字列が持っていたフォント、文字スタイル、ルビ、果てはハイパーリンクに至るまでのプロパティが一切破壊されない。
- メモリ効率: 文書オブジェクト（Document）のメモリ空間内で完結するため、巨大なファイルを文字列変数に丸ごと読み込んでメモリを圧迫するリスクがない。
しかし、この強力なエンジンには「一歩間違えると無限ループに陥る」「エスケープの仕様が独特すぎる」という牙がある。ここから先は、その牙を完全に手懐けるための設計思想だ。
—
2. 現場で即死するアンチパターンと正しい設計
多くのプログラマブルでないマクロ（＝単なるスクリプトの貼り付け）は、次のようなコードで爆発する。
‘ 【絶対にしてはいけないアンチパターン】
Sub BadSelectionExample()
Selection.Find.ClearFormatting
Selection.Find.Text = “<>” ‘ 山括弧内を検索するつもり
Selection.Find.Execute Forward:=True, MatchWildcards:=True
‘ Selectionに依存し、無限ループ対策がなく、ドキュメント全体のスコープ制御が皆無
End Sub
プロダクションコードの要件
1. `Selection`の完全排除: 画面のちらつき（ScreenUpdating）を招き、パフォーマンスが桁違いに落ちる。操作対象は常に `Range` オブジェクトに限定する。
2. 無限ループの物理的封鎖: `.Execute` メソッドの戻り値と、検索範囲（Range）の収縮・前進の監視を怠ると、同一箇所を永遠にループするバグを踏む。
3. ステートの完全リセット: `Find` オブジェクトはアプリケーション全体で状態（State）を保持する。使用前後の `.ClearFormatting()` は義務である。
—
3. 【実践】複雑なパターンを確実に捉えるプロダクションコード
実務で頻出する「【 】（隅付括弧）で囲まれた文字列を抽出し、内部のテキストに対して特定の処理を加える、あるいは別書式に変換する」というシナリオを想定する。
以下のコードは、エラーハンドリング、スコープの閉じ込め、メモリおよびパフォーマンスへの配慮を極限まで高めた実用コードだ。
Option Explicit
”’
”’ 該当箇所のログ出力およびスタイル適用を行う堅牢なプロシージャ
”’
Public Sub ExtractAndFormatBrackets()
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ 検索レンジの初期化（ドキュメント全体）
Dim searchRange As Range
Set searchRange = targetDoc.Content
‘ 画面描画を停止してパフォーマンスを極限まで引き上げる
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
On Error GoTo ErrorHandler
With searchRange.Find
.ClearFormatting
.Replacement.ClearFormatting
‘ Wordワイルドカード構文: 【 から 任意の文字() が続き、 】 で閉じるパターン
‘ ※Wordのワイルドカードでは全角の括弧もそのままエスケープなしで認識されることが多いが、
‘ 環境依存を防ぐため特殊文字の指定に留意する
.Text = “【】”
.MatchWildcards = True
.Forward = True
.Wrap = wdFindStop ‘ 文書の最後まで来たら終了（ループさせない）
‘ 検索ヒットを走査するループ（無限ループ回避の定石）
Do While .Execute
‘ 検索にヒットした瞬間に searchRange は「ヒットした文字列の範囲」に縮小する
‘ これを利用して対象をピンポイントで操作する
Debug.Print “検出文字列: ” & searchRange.Text
‘ 【実務的処理例】検出した部分の文字色を赤にし、太字にする
With searchRange
.Font.Color = wdColorRed
.Font.Bold = True
‘ 次回検索のために、レンジの終端を「ヒットした文字列の末尾」に移動させ、
‘ ドキュメントの終端に向かって検索を継続させる
.Collapse wdCollapseEnd
End With
Loop
End With
CleanUp:
‘ 画面描画の復元（確実に実行させる）
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
—
4. 知られざるWordワイルドカードの「極意」と罠
現場でこのコードを応用する際、Word特有のワイルドカード文法にハマりがちだ。正規表現エンジンの常識が通用しないポイントを、チーフアーキテクトの視点から整理する。
| 表現形式 | Wordワイルドカード | 標準正規表現 (RegExp) | 備考・注意点 |
| :— | :— | :— | :— |
| 任意の1文字 | `?` | `.` | Wordでは「任意の1文字」 |
| 0文字以上の任意文字列 | “ | `.` | 強力だが、欲張りマッチ（Greedy）に注意 |
| 1文字以上の任意文字列 | `@{1,}` または `@` | `+` | Word特有の `@` は「直前の文字の1回以上の繰り返し」 |
| グループ化・後方参照 | `\1`, `\2` … | `$1`, `$2` … | 置換文字列内で使用可能（最大9個まで） |
| 改行コードの指定 | `^13` | `\n` | パラグラフマークの検索には必須 |
「欲張りマッチ」の暴走を防ぐテクニック
Wordの “ は非常に貪欲（Greedy）である。例えば、文書内に `【開始】テキスト1【終了】` という構造が複数ある場合、`【】` というパターンは最初の `【` から最後の `】` までをひとつの塊としてすべて飲み込んでしまう。
これを防ぐためには、文字クラス `[!文書内の特定文字]` を活用する。
例えば、「閉じ括弧を含まない任意の文字列」を表現したい場合は以下のように記述する。
‘ 【 】の中に「閉じる括弧」が含まれないように制御するパターン
.Text = “【[!】]@】”
この `[!】]` は、「`】` 以外の文字」を意味する。正規表現の `[^】]` に相当する極めて重要なテクニックだ。これをマスターするだけで、誤爆率をゼロに近づけることができる。
—
5. データベースや外部ファイル連携への発展性
このような高精度なワイルドカード抽出をVBA単体で完結させるだけではもったいない。抽出した文字列（例えば、社内コードや発注番号など）を、ADODBを経由してSQL ServerやSQLite、あるいはExcelマスタへ直接流し込み、突合検証を行うシステムの基盤としてシームレスに組み込むことが可能だ。
‘ 概念コード：抽出したテキストを外部DBのバリデーションに掛けるフック
Dim extractedText As String
extractedText = searchRange.Text
‘ 外部APIやADOコネクションを叩く処理へバトンタッチ
Wordは単なる「ワープロソフト」ではない。APIとオブジェクトモデルを熟知した者にとっては、「リッチテキスト構造を完全に維持したままデータマイニングを行える強力なプラットフォーム」なのだ。
—
総括
正規表現の代わりとしてWordのワイルドカード検索を使うアプローチは、一見すると泥臭く見えるかもしれない。しかし、文書のレイアウト、スタイル、そしてオブジェクトのライフサイクルを完全に制御下におけるこの手法こそが、実務の現場で「絶対に壊れない」堅牢な自動化ツールを組み上げるための最短経路である。
Findオブジェクトの挙動を支配し、あなたのデスクトップワークを真のエンジニアリング領域へと引き上げてもらいたい。
