Word VBAの深淵へ：正規表現で「表」を支配する極限のテクニック
こんにちは。業務自動化の世界へようこそ。
これまで「マクロの記録」ボタンを押し、生成された冗長なコードを眺めて溜息をついたことはありませんか？
Wordの表（Table）は、VBAにおいて最も扱いが難しく、かつ最も恩恵が大きい領域です。「セルの結合が崩れる」「行の追加でループが暴走する」といったトラブルは、Wordのオブジェクト構造を正しく理解していないからこそ起こります。
今回は、標準の検索機能では到底太刀打ちできない「複雑なパターンマッチング」を、VBAの正規表現エンジン（VBScript.RegExp）を組み合わせて解決する、プロ仕様の極意を伝授します。
—
1. なぜ「標準の検索」では不十分なのか？
Wordの標準検索（`Find`オブジェクト）は強力ですが、「条件分岐を伴う置換」には向きません。
例えば、「表の中にある数字を抽出し、それらに1.1を掛けた値に書き換える」といった処理は、標準機能では不可能ですよね。
正規表現を使えば、「特定のパターンを見つけ、それをプログラム的に加工して書き戻す」という、高度な動的処理が可能になります。
—
2. 準備：VBAで正規表現を召喚する
VBAで正規表現を扱うには、「Microsoft VBScript Regular Expressions 5.5」を参照設定する必要があります。しかし、配布を前提とするなら、あえて「レイトバインディング」を使うのがエンジニアの流儀です。
‘ 参照設定不要で正規表現エンジンを呼び出す
Dim regEx As Object
Set regEx = CreateObject(“VBScript.RegExp”)
—
3. 実践：表内の数値を抽出・演算して置換する
今回のミッションは、「表内の全セルから『金額: 1000円』といった形式を探し、その数値を2倍にして更新する」というコードです。
Sub TransformTableData()
Dim tbl As Table
Dim cell As cell
Dim regEx As Object
Dim matches As Object, match As Object
Dim newVal As Long
‘ 正規表現エンジンの初期化
Set regEx = CreateObject(“VBScript.RegExp”)
With regEx
.Global = True ‘ 全ての一致を対象にする
.IgnoreCase = True ‘ 大文字小文字を区別しない
.Pattern = “金額: (\d+)円” ‘ 「金額: 123円」をキャプチャするパターン
End With
‘ アクティブドキュメントの最初の表を対象にする
If ActiveDocument.Tables.Count = 0 Then Exit Sub
Set tbl = ActiveDocument.Tables(1)
‘ セルを一つずつ巡回（これが最も安全なループです）
For Each cell In tbl.Range.Cells
‘ セルのテキストから正規表現で検索
If regEx.Test(cell.Range.Text) Then
Set matches = regEx.Execute(cell.Range.Text)
For Each match In matches
‘ キャプチャした数字(SubMatches(0))を2倍にする
newVal = CLng(match.SubMatches(0)) 2
‘ セル内の該当箇所を新しい値に置換
‘ 注意: Range.Textを直接書き換えると末尾のセル記号まで消えるので注意
cell.Range.Text = Replace(cell.Range.Text, match.Value, “金額: ” & newVal & “円”)
Next
End If
Next
MsgBox “変換完了！”, vbInformation
End Sub
—
4. 現場で陥りやすい「罠」と対策
ここからは、伝説的なエンジニアが経験則で語る「絶対に守るべき鉄則」です。
① セル末尾の「制御文字」に気をつけろ
Wordのセルには、必ず最後に「セル記号（`Chr(13) & Chr(7)`）」が含まれています。
`cell.Range.Text` をそのまま操作すると、この記号まで巻き込んでしまうことがあります。
教訓： データの置換を行う際は、`Left(cell.Range.Text, Len(cell.Range.Text) – 2)` のように、末尾の2文字を除外して処理する癖をつけましょう。
② 表の巨大化・行追加によるパフォーマンス低下
数千行の表で `For Each` を回すと、Wordがフリーズすることがあります。
対策： 大規模な表を扱う場合は、`Application.ScreenUpdating = False` を記述して描画を停止させましょう。これだけで処理速度が10倍以上変わることもあります。
③ セルの結合（Merge）がある場合
`cell.Range.Cells` を使ってループしている時、結合されたセルがあるとインデックスが崩れることがあります。
極意： 複雑な結合がある場合は、セルをインデックスで回すのではなく、`Table.Range.Cells` を使うか、あるいは結合を一度解除して処理後に再結合する設計も検討してください。
—
最後に：ここをクリアすれば「自動化の達人」です
今回紹介した「正規表現 × 表の操作」は、Word VBAにおける中級から上級への登竜門です。
これが使いこなせるようになれば、既存のドキュメントのフォーマット変換や、複雑な請求書データの抽出・加工など、あらゆる事務作業が「一瞬の魔法」に変わります。
最初はエラーが出るかもしれません。でも、「オブジェクトのライフサイクル（どこまでが範囲か？）」を意識するだけで、エラーの9割は自力で解決できるようになります。
さあ、恐れずにエディタを開いてください。あなたの手元で、Wordが自律的に動き出す瞬間を楽しみましょう！
