【Word VBA極限講座】表（テーブル）の中にある検索文字列を特定し、セル単位で色付けする堅牢なアーキテクチャ
Word VBAにおける「検索（Find）と置換（Replacement）」は、一見すると単純な自動化タスクに見える。しかし、対象が「表（Table）」の内部に踏み込んだ瞬間、多くの開発者が不可解な挙動や無限ループ、そして予期せぬ実行時エラーの泥沼にハマり込む。
「検索で見つかった文字列が、どのセルのどこにあるのか」
「見つかった瞬間にセルの背景色を変えたいだけなのに、なぜレンジがズレるのか」
今回は、Wordのオブジェクトモデルの暗部を知り尽くしたチーフアーキテクトの視点から、表内のテキストを正確に捉え、セル単位で安全に色付けするためのプロダクションコードと設計思想を授け挙げる。
—
なぜ「通常のFind置換」では表内処理で破綻するのか？
多くの初級・中級プログラマが最初に書くコードは、大抵このようなものだ。
‘ 【アンチパターン】絶対に真似してはいけないコード
Sub BadExample()
Dim rng As Range
Set rng = ActiveDocument.Content
rng.Find.ClearFormatting
rng.Find.Text = “要確認”
Do While rng.Find.Execute
‘ 見つかったレンジのセル背景色を変えようとする愚行
rng.Cells(1.Shading.BackgroundPatternColor = wdColorYellow ‘ <-- ここで破綻する
Loop
End Sub
このアプローチが実務で必ず爆発する理由は2つある。
1. Rangeオブジェクトのスコープ曖昧さ: Wordの`Find.Execute`は、ヒットした瞬間に検索レンジ（`rng`）の終点を「見つかった文字列の末尾」に縮小する。しかし、文書構造（特にネストされた表や結合セル）において、`rng.Cells(1)` が意図したセルを指し続ける保証はどこにもない。
2. ストーリー（StoryRanges）の壁: Wordドキュメントは、本文、ヘッダー、フッター、そして「表の中」がそれぞれ独立したストーリーとして存在しうる。テーブル内のセルは、通常のテキストフローとは異なる特殊なメモリ上の配置を持っているため、グローバルな検索レンジを漫然と回すと、表の境界を跨いだ瞬間に予期せぬ位置を指すか、無限ループに陥る。
実務の現場で求められるのは、「表（Table）というグリッド構造を明示的にイテレートし、その内側で安全にFindを完結させる」というトップダウンの設計思想だ。
—
堅牢な設計：セルを直接走査するアプローチ
表内の文字列を確実に捉えるための最も安全なアプローチは、「ドキュメント内のすべての表を列挙し、各セルのRangeに対して個別にFindを実行する」ことである。
文書全体を一度に検索するのではなく、スコープを「1つのセル」という極小の単位に限定する。これにより、レンジの暴走やストーリー間の迷子を完全に防ぐことができる。
プロダクションコード例
以下のコードは、実務の現場でそのままコピー＆ペーストして即座に利用できる、エラーハンドリングとオブジェクトのライフサイクル管理を考慮した完全版のプロシージャだ。
Option Explicit
‘ ==============================================================================
‘ 処理名 : HighlightTargetCellsInTables
‘ 概要 : 指定したキーワードを表の中から探し出し、該当するセルをハイライトする
‘ 備考 : 業務自動化の現場で耐えうる堅牢性を担保したプロダクションコード
‘ ==============================================================================
Public Sub HighlightTargetCellsInTables()
‘ 定数定義（マジックナンバーの排除）
Const TARGET_KEYWORD As String = “要確認”
Const HIGHLIGHT_COLOR As Long = wdColorYellow ‘ 黄色
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ パフォーマンス向上のための画面描画・警告停止
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
On Error GoTo ErrorHandler
Dim tbl As Table
Dim cell As Cell
Dim foundCount As Long
foundCount = 0
‘ ドキュメント内のすべての表を走査
If targetDoc.Tables.Count = 0 Then
MsgBox “ドキュメント内に表が存在しません。”, vbInformation, “処理終了”
GoTo Finally
End If
For Each tbl in targetDoc.Tables
‘ 表内のすべてのセルを走査
For Each cell In tbl.Range.Cells
‘ セル内のRangeオブジェクトを取得
Dim cellRng As Range
Set cellRng = cell.Range
‘ セル内での文字列検索を設定・実行
With cellRng.Find
.ClearFormatting
.Text = TARGET_KEYWORD
.Forward = True
.Wrap = wdFindStop
.MatchCase = False
.MatchWholeWord = False
‘ ヒットした場合、セル全体の背景色を変更
If .Execute Then
‘ セルの網掛け（Shading）を設定
cell.Shading.BackgroundPatternColor = HIGHLIGHT_COLOR
foundCount = foundCount + 1
End If
End With
Next cell
Next tbl
MsgBox “処理が完了しました。” & vbCrLf & _
“ハイライトされたセル数: ” & foundCount & “箇所”, vbInformation, “完了”
Finally:
‘ 画面描画の復元（確実に行う）
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “致命的なエラー”
Resume Finally
End Sub
—
チーフアーキテクトが教える実装の急所（3つのこだわり）
上記のコードが「なぜプロの現場で通用するのか」、その裏側にある設計思想を解説する。
1. 画面描画の抑制（`ScreenUpdating = False`）
Word VBAにおいて、表のセル（`Cell`）や網掛け（`Shading`）のプロパティを操作するたびに、GUIのレンダリング走走ると、処理速度が数百倍に低下する。
必ず処理の冒頭で描画を止め、最後に復元させること。これが大規模な仕様書や契約書を扱う際の鉄則だ。
2. `cell.Range.Find` によるスコープの封じ込め
グローバルな `Selection` や文書全体の `Range` を使わず、「1つのセルが持つRange」の内部だけでFindを完結させている。これにより、検索が隣のセルや表の外へ飛び出す事故を物理的にゼロにしている。
3. セル単位の背景色変更（`cell.Shading.BackgroundPatternColor`）
文字そのもの（Font）の色を変えるのではなく、セル（Cell）の背景パターン（Shading）を書き換えている点に注目してほしい。
「表の中にあるデータ不備や修正箇所を視覚的に浮かび上がらせる」というビジネス要件において、セル単位でのカラーリングは視認性が圧倒的に高く、ユーザーの「見落とし」を防ぐ最強のUIデザインとなる。
—
データベースや外部ファイル連携への拡張性
このコードをベースに、さらなる高度な自動化へとステップアップすることも容易だ。
例えば、ハードコーディングされている `TARGET_KEYWORD` を、Excelファイルや外部のCSV、あるいはデータベース（SQL Server / SQLiteなど）から動的に読み込むように拡張すれば、「今週修正すべき項目リスト」を自動でWordの表から探し出し、一括でカラーリングする業務監査ツールの完成だ。
外部データ連携を実装する際は、以下のステップを挟むとよい：
1. `ADODB` または `Excel.Application` を用いて外部ソースから検索キーワードの配列（Array）を取得する。
2. 上記コードの `TARGET_KEYWORD` の部分を、配列のループに置き換える。
3. ログをテキストファイルやCSVに出力し、「どの表のどのセルがいつ変更されたか」の監査証跡（トレース）を残す。
—
総括
Word VBAは、その歴史の長さゆえに、直感で書くとすぐに破綻する「レガシーな仕様」の罠が至るところに潜んでいる。
しかし、オブジェクトのライフサイクルを正しく理解し、スコープを適切に絞り込むことで、「何度実行しても絶対にバグらない、極限まで洗練された自動化ツール」へと昇華させることができる。
あなたの手元のプロジェクトでも、今日からこの堅牢なアーキテクチャを取り入れ、手作業によるミスと無駄な残業を根絶してほしい。
