Word表内の特定文字列を検索して該当セルを太字にする自動化：オブジェクトモデルの深淵と高速化の極意
業務自動化の現場において、Excel VBAのデータ処理と同等、あるいはそれ以上にフラストレーションを溜めるのがMicrosoft Wordの表（Table）操作である。
「特定のキーワードを含むセルだけを太字にし、視覚的に強調せよ」——。
一見して泥臭い、ありふれた要件に見えるかもしれない。しかし、これを数万文字に及ぶ巨大なレガシー文書や、何百ものネストされた表を持つ仕様書に対して適用した瞬間、素朴なコードは重度のメモリリークと戦慄のパフォーマンス低下（いわゆる「フリーズ現象」）を引き起こす。
本稿では、Word VBAにおけるオブジェクトのライフサイクル、COMコンポーネントの挙動、そして実務の荒波を生き抜くための極限の最適化手法を交え、表内検索・装飾の自動化をアーキテクトの視点から解説する。
—
1. Word VBAにおける「表操作」の構造的罠
ExcelのRangeオブジェクトに慣れ親しんだエンジニアほど、Wordの表構造で致命傷を負う。
Wordの表（`Table`）は、行（`Row`）と列（`Column`）の交点に存在するセル（`Cell`）の集合体であるが、Excelのように直感的な2次元配列としてメモリ上に展開されているわけではない。
背後では、COM（Component Object Model）のインターフェースが複雑に絡み合い、RangeオブジェクトやSelectionオブジェクトが動的に生成・破棄されている。ここで安易な `Selection.Find` を多用すると、WordのUIスレッドがその都度描画更新（ScreenUpdating）を強制され、実行速度は地に落ちる。
真にスケーラブルなコードを書くためには、「UIに触れず、メモリ上のオブジェクトツリーを直接走査する」という原則を貫く必要がある。
—
2. 【実装】高速かつ堅牢なセル検索・太字化エンジン
以下に、実務の現場でそのまま稼働するプロダクション品質のコードを提示する。
このコードでは、`ScreenUpdating` の無効化、エラーハンドリングによるオブジェクトの確実な解放、そして `Range.Find` を用いた高速な文字列マッチングを実装している。
Option Explicit
‘ ==============================================================================
‘ 処理名 : HighlightTargetCellsInTables
‘ 概要 : アクティブ文書内のすべての表を走査し、指定キーワードを含むセルを太字にする
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Public Sub HighlightTargetCellsInTables()
‘ 1. 定数定義
Const TARGET_KEYWORD As String = “要確認”
‘ 2. 環境最適化（描画停止と警告非表示による高速化）
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
Dim startTime As Double
startTime = Timer
On Error GoTo ErrorHandler
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ 文書内に表が存在しない場合のガード節
If targetDoc.Tables.Count = 0 Then
MsgBox “文書内に表が見つかりませんでした。”, vbInformation, “処理終了”
GoTo Finally
End If
Dim tbl As Table
Dim cl As Cell
Dim rngCell As Range
Dim matchCount As Long
matchCount = 0
‘ 3. 表の網羅的走査（For Eachによる安全なイテレーション）
For Each tbl In targetDoc.Tables
For Each cl In tbl.Range.Cells
‘ セル内のテキスト範囲を取得
Set rngCell = cl.Range
‘ Wordの仕様上、セルの末尾には必ず特殊文字（Cell Endマーク）が含まれるため
‘ 厳密なテキスト比較を行うか、Findオブジェクトで効率的に検索する
With rngCell.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = TARGET_KEYWORD
.MatchCase = True ‘ 大文字小文字を区別する場合
.MatchWholeWord = False ‘ 部分一致を許容
.Forward = True
.Wrap = wdFindStop
‘ 該当文字列が存在する場合の処理
If .Execute Then
‘ セル全体を太字にする場合、あるいは該当部分のみを太字にする場合の分岐
‘ ここでは「該当セル全体」を太字にする仕様とする
cl.Range.Font.Bold = True
matchCount = matchCount + 1
End If
End With
Next cl
Next tbl
‘ 4. 正常終了ログ
MsgBox “処理が完了しました。” & vbCrLf & _
“該当セル数: ” & matchCount & ” 箇所” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, _
vbInformation, “システム通知”
ErrorHandler:
If Err.Number <> 0 Then
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “致命的エラー”
End If
Finally:
‘ 5. リソースの復元とオブジェクトの明示的破棄（メモリリーク防止）
Set rngCell = Nothing
Set cl = Nothing
Set tbl = Nothing
Set targetDoc = Document
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
End Sub
—
3. チーフアーキテクトが解説するコードの急所
このコードが「単なる動くスクリプト」ではなく「極限の知見」に基づいている理由を、アーキテクチャの観点から3点に絞って解説する。
① `ScreenUpdating = False` の絶対性
Word VBAにおいて、UIの再描画コストは極めて高い。数千個のセルを持つ文書で `cl.Range.Font.Bold = True` を実行するたびにWordが画面を再描画していたら、完了するまでにコーヒーを何杯飲めるか分からない。描画を一時停止し、メモリ上でトランザクションを完結させることが大前提となる。
② セル終端文字（Cell End Marker）の罠
Wordの `Cell.Range` は、純粋な文字列だけでなく、セルの終わりを示す制御文字（Unicode `0x0007`）を内包している。
単純な `InStr` 関数などで文字列比較を行うと、この特殊文字の存在により予期せぬ挙動をすることがある。そのため、Wordのネイティブな `Find` オブジェクト（`Range.Find`）を使用し、Wordのパーサーに検索を委ねるのが最も堅牢である。
③ 厳格なオブジェクトの解放（GCへの依存からの脱却）
VBAのガベージコレクション（GC）は、参照カウント方式をベースにしているが、特にCOMオブジェクトを大量に扱うWord VBAでは、変数のスコープが抜けてもメモリが即座に解放されないケースが散見される。
プロシージャの終了直前（`Finally` ラベル）で、使用したすべてのオブジェクト変数に `Nothing` を明示的に代入し、COM参照のデクリメントを強制することが、長期間稼働するシステムでは必須となる。
—
4. 拡張：レガシーシステム・外部API連携への布石
実際の業務システムでは、このマクロを単体で動かすだけでは終わらない。例えば、「基幹システムから夜間に吐き出されたXML/JSONデータを元に、Wordテンプレートの表を動的生成し、特定のフラグワードを強調してPDF化し、社内ポータルにアップロードする」といったバッチパイプラインの一部として組み込まれることが多い。
そのような要件において、VBA単体での限界を感じたならば、VBScriptやVB.NET（COM Interop）へロジックを移植する選択肢が浮上する。しかし、Wordオブジェクトモデルの本質（`Table`, `Cell`, `Range`, `Find` の関係性）を理解していれば、言語がVBAからC#に変わろうとも、その設計思想は寸分違わずそのまま流用できる。
表の動的生成、セルの結合（`Cell.Merge`）、そして今回解説した検索・装飾。これらを自在に操れるようになった時、あなたはもはや「単なるVBAユーザー」ではなく、文書という非構造化データをプログラムの支配下に置く「ドキュメント・アーキテクト」の領域に到達している。
