Word VBAの「Find」を支配せよ：ワイルドカード検索による数値整形術の極意
業務自動化の現場で、Wordの`Find`オブジェクトを「単なる置換ツール」と侮っているなら、それは大きな損失だ。Wordの検索機能は、単なる文字列マッチングではない。文書という構造体を走査する強力なエンジンであり、正しく設計すれば、数千ページの文書から一瞬でデータを抽出・変換する「魔術」へと化ける。
今回は、初心者が最もつまずく「ワイルドカード検索」を実務で使い倒し、数値列をカンマ区切りに変換する堅牢な実装を伝授する。
—
1. なぜ「ワイルドカード」なのか
Wordの検索機能には、標準の「あいまい検索」と、正規表現に近い「ワイルドカード」がある。業務効率化において、なぜワイルドカードが必須なのか。
- 構造的な抽出が可能: 文字列の「並び」や「桁数」を抽象化できる。
- 置換の柔軟性: マッチした文字列の一部を保持したまま、周囲を加工できる。
- オーバーヘッドの少なさ: VBAで全文字をループして`Mid()`関数で切り出すような愚かなアプローチに比べ、Wordの検索エンジンはバイナリレベルで最適化されており、圧倒的に高速だ。
—
2. 実務に耐えうる「堅牢な設計」の鉄則
コードを書く前に、以下の3つの鉄則を脳に刻んでほしい。
1. 「検索範囲」を明示的に絞り込む: `ActiveDocument.Content`を無造作に検索してはいけない。文書の履歴やヘッダー・フッターに意図しない変更を加えないよう、`Range`オブジェクトを適切に定義せよ。
2. 検索状態を初期化する: `Find.ClearFormatting`と`Find.Replacement.ClearFormatting`を怠るな。前回の検索設定が残っていると、環境によって動作が不安定になる。これは「バグを誘発する最大の要因」だ。
3. Undo（取り消し）の考慮: 大規模な置換を行う際は、`UndoRecord`（Word 2013以降）を使って処理をブロック化せよ。一括処理は一瞬で終わる分、失敗した時の代償も大きい。
—
3. 実装コード：数値を「カンマ区切り」に変換する
以下のコードは、文書内の「4桁以上の数字」を検索し、3桁ごとにカンマを挿入する例だ。実務での保守性を考慮し、関数化した設計にしている。
Option Explicit
‘ メイン処理：文書内の数値にカンマを付与する
Public Sub FormatNumbersWithCommas()
Dim rng As Range
Set rng = ActiveDocument.Content
‘ 検索エンジンを初期化し、ワイルドカードを有効にする
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “([0-9]{4,})” ‘ 4桁以上の数字をグループ化して捕捉
.Replacement.Text = “^&” ‘ マッチした文字列そのものを置換対象とする
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True ‘ これが命
‘ 置換処理（ループで一つずつ確実に処理する）
Do While .Execute
‘ 抽出した文字列をカンマ区切りに変換して書き戻す
rng.Text = Format(rng.Text, “#,
0″)
rng.Collapse wdCollapseEnd ‘ 次の検索位置へ移動
Loop
End With
MsgBox “数値の整形が完了しました。”, vbInformation
End Sub
コードのポイント解説
- `([0-9]{4,})`: これは正規表現に近い構文だ。`()`で囲むことでグループ化している。
- `rng.Collapse wdCollapseEnd`: 置換後にカーソル位置を末尾に移動させ、検索の無限ループを防ぐ。これを書かないと、置換後の文字列が再度検索対象となり、ハングアップの原因となる。
- `Format(rng.Text, “#,
0″)`: ワイルドカードで抽出した「数値文字列」を、VBAの標準関数で整形し直す。この組み合わせが最も安全だ。
—
4. データベースや外部連携時の注意点
このツールで抽出したデータをCSVに出力したり、Excelに書き出す場合は、以下の点に注意せよ。
- 文字コードの壁: Wordの`Range.Text`は内部的にUnicodeを扱っている。外部ファイルに出力する際は、`ADODB.Stream`等を使用してUTF-8で保存するのが現代の標準だ。
- 非表示文字の混入: `^p`（段落記号）や`^t`（タブ）が数値の近くに潜んでいないか確認せよ。ワイルドカード検索時に余計な空白が含まれると、`Format`関数でエラー（型不一致）が発生する可能性がある。必ず`Trim()`や`Replace()`でクレンジングする癖をつけよ。
—
最後に：エンジニアとしてのマインドセット
「動けばいい」コードを書くのはエンジニアではない。「後から見た自分が、このコードの意図を即座に理解できるか」、そして「想定外のデータが入力されたときに、どう挙動するか」。ここを突き詰めるのが、我々アーキテクトの仕事だ。
Word VBAは古臭い技術と言われることもあるが、ドキュメント自動化の現場においては、これほど強力で即効性のある武器はない。このコードをベースに、君の現場の課題に合わせてカスタマイズを繰り返してほしい。
次は、これを「正規表現エンジン（VBScript.RegExp）」と組み合わせて、さらに高度なパターンマッチングを行う手法について解説しよう。準備はいいか？自動化の深淵へ、さらに踏み込もう。
