こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押してコードを生成する日々から一歩進み、「自分で意図した通りに文書をコントロールしたい」と願うあなたへ、最高に実用的で知的なテクニックをお伝えします。
今回は、業務自動化の現場で最も頭を悩ませるポイントの一つである「表（Table）の中だけを対象にした安全な文字列置換」を取り上げます。
「文書全体の置換を使うと、本文の意図しない場所まで書き換わってしまった……」
そんなヒヤッとした経験はありませんか？
ここをクリアすれば、あなたのWord VBAスキルは間違いなく中級者の領域に到達します。優しい先輩エンジニアとして、オブジェクトの挙動の裏側までしっかり噛み砕いて解説していきますね。
—
なぜ「文書全体」の置換は危険なのか？
Wordの`Find`オブジェクト（検索・置換機能）は非常に強力ですが、デフォルトでは「文書全体のストーリー（StoryRanges）」を対象に暴れ回ります。
例えば、契約書のフォーマットで「金 XX 円」という文字列を特定の金額に置き換えたいとします。もし `ActiveDocument.Content.Find.Execute` なんて使おうものなら、表の中だけでなく、ヘッダー、フッター、果ては表の外にある注意書きの「金 XX 円」まで一網打尽に書き換わってしまいます。
実務の現場では、「特定の表（あるいは特定の行数・列数を持つ表）の中だけに限定して置換を行いたい」という要件が圧倒的に多いのです。
—
表の中だけを狙い撃つ！アーキテクト流アプローチ
Word VBAにおいて、表（`Table`）は文書全体（`Document`）の中にネストされた子孫オブジェクトです。
したがって、検索のスコープ（範囲）をドキュメント全体から、「特定のテーブルの範囲（Range）」へと強制的に絞り込む必要があります。
ここで重要になるのが、`Table.Range.Find` という発想です。Wordのテーブルは、それ単体で独立した `Range` を持っています。つまり、「表の範囲」に対してのみ検索・置換を走らせれば、本文への影響を100%シャットアウトできるというわけです。
—
実践！テーブル限定・安全置換マクロ
それでは、実際にコピペしてすぐに使える実用コードを公開します。
このコードは、アクティブ文書内にあるすべての表を巡回し、その中にある「【要確認】」という文字列を「【確認済み】」に安全に置き換えるものです。
Sub ReplaceTextInTablesOnly()
Dim tgtTable As Table
Dim rngTarget As Range
Dim replaceCount As Long
‘ 置き換えカウンターの初期化
replaceCount = 0
‘ 文書内にテーブルが存在するかチェック
If ActiveDocument.Tables.Count = 0 Then
MsgBox “文書内に表が見つかりませんでした。”, vbExclamation, “処理終了”
Exit Sub
End If
‘ 画面描画を停止してマクロの実行速度を爆発的に上げる（プロの必須テク）
Application.ScreenUpdating = False
‘ 文書内のすべての表をループ処理
For Each tgtTable In ActiveDocument.Tables
‘ 【核心】表全体のRangeオブジェクトを取得する
Set rngTarget = tgtTable.Range
‘ Findオブジェクトの設定と実行
With rngTarget.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “【要確認】” ‘ 検索する文字列
.Replacement.Text = “【確認済み】” ‘ 置換後の文字列
.Forward = True
.Wrap = wdFindStop ‘ 表の範囲内で検索を停止させる（重要！）
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
‘ 一括置換を実行し、置換された回数を取得
.Execute Replace:=wdReplaceAll
‘ もし置換が発生していればカウントを加算
‘ （※厳密にはFind.Executeの戻り値判定やループが必要ですが、簡易的に実装）
End With
Next tgtTable
‘ 画面描画を再開
Application.ScreenUpdating = True
‘ 完了メッセージ
MsgBox “テーブル内の置換処理が完了しました！”, vbInformation, “成功”
End Sub
—
コードの注目ポイント（ここが分かればマスター！）
初心者の頃は「ふーん」と見過ごしがちなポイントに、このコードの神髄が隠されています。
1. `Set rngTarget = tgtTable.Range`
表オブジェクトそのものには `.Find` メソッドはありません。しかし、表が占める領域である `Range` を取得することで、Wordの強力な検索エンジンをそのテーブルの中に閉じ込めることができます。これが限定検索のキモです。
2. `.Wrap = wdFindStop`
ここが一番の罠です。もし `Wrap` プロパティを `wdFindContinue`（文書の最後まで来たら先頭に戻る）などに設定していると、検索対象が表の枠を飛び出して、本文へと暴走していきやがります。
テーブル内限定にしたい場合は、必ず `wdFindStop` を指定し、「範囲の端っこに到達したらそこで止まれ！」と命令してください。
3. `Application.ScreenUpdating = False`
プロのエンジニアがこぞって使うテクニックです。Wordは処理のたびに画面を再描画しようとするため、表が100個あるような重い文書だと画面がパチパチして処理が極端に遅くなります。描画を止めて裏で一気に処理し、最後に一瞬で描き戻すのが鉄則です。
—
陥りがちなエラーと回避策
Q. 「表の中にあるのに、なぜか置換されないケースがある」
A. セル内の特殊文字や改行コードが原因かもしれません。
Wordの表のセルは、末尾に必ず「セルマーカー（特殊な制御文字）」を含んでいます。また、ユーザーがセル内で「Shift + Enter」などで強制改行を入れている場合、通常の文字列一致では引っかからないことがあります。
どうしてもヒットしない場合は、`.MatchWildcards = True` にしてワイルドカード検索を活用するか、セルを一つずつ巡回するセル単位のループ（`Cell.Range.Text` を操作する方法）に切り替えるのも手です。ただし、パフォーマンス面では今回の `Range.Find` アプローチの方が圧倒的に高速です。
—
おわりに
お疲れ様でした！
「文書全体」という大雑把なアプローチから、「特定の `Range` にスコープを絞る」というスマートなアプローチへシフトできたことで、あなたのコードの安全性は劇的に向上しました。
ここをクリアすれば、Word VBAのオブジェクト構造の本質が見えてきます。ぜひ実際の業務データで試して、その爆速かつ安全な動作を体感してみてください。
ここをクリアすれば、Word VBAの基本はバッチリですよ。次のステップへ進んで、さらに業務を自動化していきましょう！
