【上級者向け】正規表現による「ネストされた括弧」の検索と置換の難所を攻略する
Word VBAにおけるテキスト処理の限界領域に挑む時、多くのエンジニアが直面するのが「ワイルドカードの貧弱さ」と「ネスト（入れ子）構造の絶望的な扱いづらさ」だ。
例えば、`{ 外部 { 内部 } データ }` のような構造を持つドキュメントから、特定のパターンを一網打尽に置換したいとする。Word標準の `Find` オブジェクトがサポートするワイルドカードは、悲しいことに非貪欲マッチ（最小マッチ）の概念が非常に曖昧であり、入れ子になった括弧のペアを正確に捉えることができない。最外殻の開き括弧から最後の閉じ括弧までを無慈悲に一飲みにするか、途中の閉じ括弧でマッチが切れてしまう。
このアーキテクチャ上の壁を突破するには、WordのUIスレッドや標準検索エンジンを盲信せず、VBScriptの `RegExp` エンジン、あるいはメモリ上のテキストストリームを直接操作するアプローチが必要になる。
今回は、シニアエンジニアおよび社内システム管理者のために、正規表現の限界を超える「ネストされた括弧の解析と置換」の極限の知見をコードとともに解説する。
—
1. Word標準「ワイルドカード」の限界とアプローチの転換
Wordの「検索と置換」ダイアログで使えるワイルドカードは、内部的には古い独自エンジンで駆動している。これに `[[][]]` のような式を与えても、入れ子構造を認識してパースすることは構造的に不可能である。
したがって、チーフアーキテクトとしての判断は一択だ。
「Wordの `Range.Text` を一度VBA側のメモリ空間（またはVBScriptのRegExpエンジン）に吸い上げ、正規表現または独自アルゴリズムで処理した上で、一括してWord文書へ書き戻す」。
このアプローチにおける最大の敵は、巨大文書を扱う際のメモリの断片化とCOMオブジェクトの往復によるパフォーマンス劣化である。
—
2. 決定版：VBScript.RegExpによる再帰的パターンマッチングの構築
正規表現単体で「任意の深さのネスト」を完全にマッチさせるのは、厳密な理論上（Chomsky階層の文脈自由文）では標準的な正規表現の能力を超える。しかし、実務上現れる「2〜3階層程度のネスト」や「特定の開始・終了デリミタを持つブロック」であれば、改良型の正規表現パターンとVBAの制御構文を組み合わせることで完全に攻略できる。
以下に、ネストされた中括弧 `{ … }` の中身を安全に検出し、置換するプロダクション品質のコードを示す。
Option Explicit
‘ =========================================================================
‘ “#{@” から “#}” までのネストされたブロックを安全に処理する高度置換エンジン
‘ =========================================================================
Public Sub ExecuteAdvancedNestedReplace()
Dim doc As Word.Document
Set doc = ActiveDocument
‘ 巨大文書における画面描画とイベントを完全に抑制し、実行速度を極限まで高める
Call ToggleSystemOptimization(False)
On Error GoTo ErrorHandler
Dim targetRange As Word.Range
Set targetRange = doc.Content
‘ メモリ上にテキストを高速展開
Dim rawText As String
rawText = targetRange.Text
‘ VBScript.RegExpのインスタンス化（Late Bindingによるバージョン依存性の排除）
Dim regEx As Object
Set regEx = CreateObject(“VBScript.RegExp”)
With regEx
.Global = True
.IgnoreCase = False
.MultiLine = True
‘ 解説:
‘ 1階層〜数階層のネストに対応する非貪欲マッチパターン
‘ \{[^{}](?:\{[^{}]\}[^{}])\} のように、内部の括弧の深さに応じたパターンを構築する
‘ ここでは汎用的に「#{{ [^{}] }}#」のような独自デリミタのネストを想定
.Pattern = “\#\{\s( (?: [^#\{\}] | \#\{ [^#\{\}] \} ) )\s\#\}”
End With
‘ マッチングと置換の実行（再帰的またはループ処理による完全解決）
Dim processedText As String
processedText = RecursiveNestedProcess(rawText, regEx)
‘ 変更がある場合のみ、Rangeを一括置換（メモリとUndoスタックの保護）
If processedText <> rawText Then
targetRange.Text = processedText
Debug.Print “ネストされたブロックの置換が正常に完了しました。”
Else
Debug.Print “対象となるネスト構造は見つかりませんでした。”
End If
CleanUp:
‘ オブジェクトの明示的解放（メモリリークの根絶）
Set regEx = Nothing
Set targetRange = Nothing
Set doc = Nothing
Call ToggleSystemOptimization(True)
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
‘ =========================================================================
‘ ネストの深さに応じて安全に収束させる再帰関数
‘ =========================================================================
Private Function RecursiveNestedProcess(ByVal sourceText As String, ByRef regEx As Object) As String
Dim matches As Object
Dim match As Object
Dim loopGuard As Long
loopGuard = 0
‘ 無限ループ防止のガード（最大50階層まで）
Do While regEx.Test(sourceText) And loopGuard < 50
Set matches = regEx.Execute(sourceText)
' 内部から外部へ向かって置換を行うための処理
' ここでは例として、マッチしたブロック内の特定の文字列を置換・加工するロジックを挟む
Dim i As Long
For i = matches.Count - 1 To 0 Step -1
Set match = matches(i)
' match.SubMatches(0) に内側の文字列が格納される
Dim innerContent As String
innerContent = match.SubMatches(0)
' 【カスタム処理】例：内部の改行や特定のキーワードをサニタイズ・変換
Dim replacedInner As String
replacedInner = ProcessInnerContent(innerContent)
' テキストの置換（Slicesの結合による高速化）
sourceText = Left$(sourceText, match.FirstIndex) & _
"【処理済:" & replacedInner & "】" & _
Mid$(sourceText, match.FirstIndex + match.Length + 1)
Next i
loopGuard = loopGuard + 1
Loop
RecursiveNestedProcess = sourceText
End Function
' =========================================================================
' 内部コンテンツに対する個別ロジック
' =========================================================================
Private Function ProcessInnerContent(ByVal content As String) As String
' 必要に応じて、さらに細かい文字列操作や別正規表現を適用
ProcessInnerContent = Trim$(content)
End Function
' =========================================================================
' システム最適化（パフォーマンスの極限追求）
' =========================================================================
Private Sub ToggleSystemOptimization(ByVal enable As State)
With Application
.ScreenUpdating = enable
.DisplayAlerts = wdAlertsNone
.Calculation = IIf(enable, wdCalculationAutomatic, wdCalculationManual)
.EnableEvents = enable
End With
If Not enable Then
VBA.CommandBars.DisableShortcuts = True
Else
VBA.CommandBars.DisableShortcuts = False
End If
End Sub
---
3. チーフアーキテクトが教える「実務上の罠と回避策」
上記のコードをそのままレガシーな巨大Word文書（例えば、数百ページに及ぶ官公庁の仕様書や、数万行の技術マニュアル）に適用すると、いくつかの深刻な罠に直面する。シニアエンジニアとして、これらを見逃すわけにはいかない。
① `Range.Text` 取得時の特殊文字（段落記号等）の罠
Wordの `Range.Text` を取得すると、段落の区切りは `vbCr`（Carriage Return: Chr(13)）として文字列に含まれる。正規表現の `.`（任意の文字）は、改行文字にマッチしないことが多い（`.MultiLine` や `\n` の挙動の差異）。
- 対策: ネストされた括弧が段落をまたぐ場合、事前に `vbCr` や `vbLf` を一時的な特殊トークン（例: `__LF__`）に置換してから正規表現エンジンに渡し、処理後に復元する前処理を入れるのが鉄則だ。
② Undoスタックの肥大化によるメモリクラッシュ
数千箇所の置換を `Range.Find` や `Selection` を使ってループで回すと、Wordの内部Undoスタックが溢れ、「メモリ不足です」 というお馴染みのエラーでVBAが強制終了する。
- 対策: 提示したコードのように、ドキュメント全体を一度String変数に吸い上げ、メモリ上で完全に処理を完結させてから `targetRange.Text = processedText` と一括代入する。これにより、Undoスタックへの負荷を最小限に抑え、処理速度を数十倍〜数百倍に跳ね上げることができる。
③ COMオブジェクトの解放漏れ（メモリリーク）
VBAで `CreateObject(“VBScript.RegExp”)` やドキュメント操作を行う際、エラーハンドリング（`On Error GoTo`）が不完全だと、COMコンポーネントがメモリ上に残留し、ExcelやWordを終了してもプロセスが残り続ける（ゾンビプロセス問題）。
- 対策: 必ず `CleanUp` ラベルを用意し、オブジェクト変数を `Set obj = Nothing` で明示的に解放する構造をテンプレート化すること。
—
結びにかえて
Word VBAにおけるテキスト処理は、単なる「マクロの記録」の延長線上にはない。メモリモデルの理解、COMのライフサイクル管理、そして正規表現の限界を見極めた上でのアルゴリズム設計こそが、プロフェッショナルな業務自動化エンジニアに求められる要件である。
「Wordだから仕方ない」と諦める前に、メモリ空間を支配し、ドキュメントをデータとして冷徹にパースせよ。そこに実現不可能な自動化など存在しない。
