【Word VBA】文書全体を汚すな：表（Table）内部のみを対象とする限定検索と極限の置換ロジック
Word VBAにおける `Find` オブジェクトは、正しく制御しなければ文書全体を暴走し、ヘッダー、フッター、そして意図しない本文のセクションまでをも破壊する劇薬となる。
特に「特定の表（Table）の中だけに限定して文字列置換を行いたい」という現場の要求に対し、素人が書いた `Selection.Find` や、文書全体のレンジを丸ごと舐めるようなコードを適用してはならない。それはパフォーマンスの劣化を招くだけでなく、意図しない箇所の置換（誤置換）という致命的なシステム障害を引き起こす。
今回は、Wordのオブジェクトモデルの深部をハックし、表という限定されたスコープ内のみを安全かつ高速に処理する、シニアエンジニアのための実践的アーキテクチャを解説する。
—
1. なぜ文書全体の `Find` では現場の要求を満たせないのか
Word VBAで検索・置換を行う際、多くの開発者は以下の悪臭を放つ（Bad Smellな）コードを書く。
‘ 【アンチパターン】絶対にやってはいけない実装
Sub BadReplacement()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Text = “old_val”
Selection.Find.Replacement.Text = “new_val”
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
このアプローチが実務で通用しない理由は明白だ。
1. スコープの欠如: カーソル位置（`Selection`）に依存するため、ユーザーがどこを選択しているかによって挙動が変わり、再現性がない。
2. 文書汚染: ユーザーが「表の中だけ変えてほしい」と望んでいるにもかかわらず、ドキュメント全体が置換対象となり、思わぬ法的文書の条文やメタデータを書き換えてしまう。
3. COMオブジェクトの肥大化: `Selection` への依存はWordの描画エンジンを強制的にキックするため、処理速度が致命的に遅くなる。
我々が目指すべきは、UIに依存せず、メモリ上で完結する「レンジ（Range）の限定とスキャン」である。
—
2. 表（Table）内限定置換のアーキテクチャ
Wordの `Table` オブジェクトは、文書全体の `Range` とは独立した、独自のレンジ境界を持っている。つまり、対象となる `Table.Range` を抽出し、その内部だけで `Find` オブジェクトを動作させれば、文書の他の領域へ影響を与えることは構造的に不可能となる。
さらに、複数のセルやネストされた表が存在する場合を考慮し、正確にレンジの始点と終点を制御する必要がある。
実装コード：実務仕様の限定置換エンジン
以下のコードは、指定したインデックスの表、あるいは文書内のすべての表を走査し、指定されたセル範囲内でのみ高速かつ安全に文字列置換を実行するプロシージャである。
Option Explicit
Public Sub ExecuteTableScopedReplace( _
ByVal targetTableIndex As Long, _
ByVal findText As String, _
ByVal replaceText As String)
Dim wsDoc As Document
Set wsDoc = ActiveDocument
‘ 1. 対象テーブルの存在確認（境界値チェック）
If targetTableIndex < 1 Or targetTableIndex > wsDoc.Tables.Count Then
Err.Raise vbObjectError + 513, “ExecuteTableScopedReplace”, “指定されたテーブルインデックスは存在しません。”
End If
Dim targetTable As Table
Set targetTable = wsDoc.Tables(targetTableIndex)
‘ 2. テーブル全体のレンジを取得
Dim rngTarget As Range
Set rngTarget = targetTable.Range
‘ 3. Findオブジェクトの構築とメモリ最適化
Dim rngFind As Range
Set rngFind = rngTarget.Duplicate ‘ 独立したメモリ空間にレンジを複製
With rngFind.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = findText
.Replacement.Text = replaceText
.Forward = True
.Wrap = wdFindStop ‘ 【重要】テーブルの境界を超えて検索させない
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
‘ 4. 高速一括置換の実行
.Execute Replace:=wdReplaceAll
End With
‘ 5. オブジェクトの明示的解放（メモリリーク防止）
Set rngFind = Nothing
Set targetTable = Nothing
Set wsDoc = Nothing
Debug.Print “テーブル #” & targetTableIndex & ” の置換処理が正常に完了しました。”
End Sub
—
3. コードの急所：なぜこの実装がプロフェッショナルなのか
上記のコードには、数々のレガシーシステムを修復してきたエンジニアの知見が凝縮されている。
① `.Wrap = wdFindStop` によるスコープの封鎖
`Find.Wrap` プロパティに `wdFindContinue` を指定すると、検索がレンジの終端に達した際、文書の先頭に戻って検索を継続してしまう。これを `wdFindStop` に設定することで、「指定した表のレンジの端に到達した瞬間、検索を強制終了する」という安全弁が機能する。仮に置換対象が表の外にあっても、絶対にハミ出さない。
② `Range.Duplicate` による安全な参照分離
VBAの `Range` オブジェクトをそのまま代渡し続けると、検索ヒット時にレンジのポインタ自体が書き換わり、予期せぬ無限ループやメモリ例外を引き起こす。`.Duplicate` メソッドを使用することで、元のテーブル構造を破壊することなく、安全な作業用メモリ領域（クローン）上で高速にスキャンを行える。
③ COMオブジェクトの明示的解放
VBAはガベージコレクションの挙動がブラックボックスである。特に大規模なWord文書や、何百もの表を持つ帳票システムをループ処理する場合、`Set 〇〇 = Nothing` を怠るとCOMコンポーネントの参照カウントが残存し、ExcelやWordが背後でメモリリークを起こす。
プロシージャの脱出時には、必ずローカル変数のオブジェクト参照を明示的に破棄せよ。
—
4. 応用：文書内の「すべての表」を一括して安全にループ処理する
特定の1つの表だけでなく、文書内にある全ての表に対して一括でこの限定置換を適用したい場合の実装パターンを提示する。ここでも `Selection` は一切使用しない。
Public Sub BatchReplaceInAllTables(ByVal findText As String, ByVal replaceText As String)
Dim wsDoc As Document
Set wsDoc = ActiveDocument
Dim i As Long
Dim totalTables As Long
totalTables = wsDoc.Tables.Count
If totalTables = 0 Then
MsgBox “処理対象のテーブルが文書内に存在しません。”, vbExclamation
Exit Sub
End If
‘ 画面描画の凍結による爆速化（パフォーマンス最適化）
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
On Error GoTo ErrorHandler
For i = 1 To totalTables
‘ 各テーブルに対して個別に限定置換をコール
ExecuteTableScopedReplaceTarget i, findText, replaceText, wsDoc
Next i
MsgBox “全 ” & totalTables & ” 件のテーブルに対する置換が完了しました。”, vbInformation
CleanUp:
‘ 画面描画の復元
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
Set wsDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
‘ 内部ヘルパープロシージャ
Private Sub ExecuteTableScopedReplaceTarget(ByVal tblIndex As Long, ByVal fText As String, ByVal rText As String, ByRef doc As Document)
Dim rngFind As Range
Set rngFind = doc.Tables(tblIndex).Range
With rngFind.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = fText
.Replacement.Text = rText
.Forward = True
.Wrap = wdFindStop
.Execute Replace:=wdReplaceAll
End With
Set rngFind = Nothing
End Sub
—
5. チーフアーキテクトからの提言
Word VBAによる文書自動化の成否は、「どれだけUI（Selection / Rangeの視覚的操作）から脱却し、メモリ上の純粋なオブジェクト操作に徹するか」にかかっている。
`Selection` を使ったコードは、書くのは簡単だが、保守フェーズにおいて必ずシステム破綻を引き起こす時限爆弾となる。今回解説した「ターゲットレンジの限定」「`wdFindStop` によるバウンダリー制御」「確実なオブジェクト解放」の3原則を体に叩き込み、レガシーの呪縛から解放された堅牢な自動化基盤を構築してほしい。
