【テクニカル・上級編】【初心者向け】Word表のセル内にある特定キーワードを検出し、その行全体を強調表示するマクロ – Word VBA解析バイブル

Word VBAにおける「表操作」の真髄：単純なループを脱し、DOMの重みとメモリを制御する

「特定のキーワードが含まれる行に色を塗る」

一見すると、VBA初学者が最初に躓く、極めて単純な課題に見えるだろう。しかし、我々のようなエンジニアがこの課題に向き合うとき、思考のレイヤーは「動くコードを書くこと」ではなく、「大規模なドキュメントにおいても、メモリを食いつぶさず、低速なCOMオブジェクトのオーバーヘッドを最小限に抑え、堅牢に動作するアーキテクチャを設計すること」にある。

本稿では、初学者が陥りがちな「全セルを愚直にループする」という低効率な実装を捨て、Wordの検索エンジン（Findオブジェクト）を直接叩き、オブジェクトのライフサイクルを厳格に管理する、プロフェッショナルな実装手法を解説する。

1. 初学者の罠：オブジェクトモデルの重みを知れ

多くの初学者は、以下のような実装を提示する。

' --- 避けるべきアンチパターン ---
For Each tbl In ActiveDocument.Tables
    For Each cll In tbl.Range.Cells
        If InStr(cll.Range.Text, "特定キーワード") > 0 Then
            cll.Rows(1).Shading.BackgroundPatternColor = wdColorYellow
        End If
    Next cll
Next tbl

このコードは、小規模な文書では問題なく動作する。しかし、数千行に及ぶ表や、複雑な書式を持つ文書に対して実行した場合、致命的なパフォーマンス低下を引き起こす。

なぜか？ それは、`Table.Range.Cells` を列挙するたびに、Wordは背後で新しい `Cell` オブジェクトをメモリ上に生成（インスタンス化）し、COM（Component Object Model）を介してプロパティを公開しているからだ。この「オブジェクトの生成コスト」こそが、VBAにおけるパフォーマンス劣化の正体である。

2. アーキテクトの解法：Findエンジンへの委譲

我々が取るべき戦略は、VBAのループでセルを一つずつ走査することではない。Wordの内部エンジンである `Find` オブジェクトに検索処理を丸投げすることだ。`Find` はC++レベルで最適化されており、DOMを一つずつ辿るよりも圧倒的に高速である。

また、大量のオブジェクトを扱う際は、「画面更新の停止」と「明示的なメモリ解放」が必須となる。

3. 極限の実装例

以下に、実務レベルで通用する、堅牢かつ高速な実装コードを示す。

Option Explicit

''' <summary>
''' 表内の特定キーワードを検出し、該当する行全体をハイライトする。
''' </summary>
''' <param name="targetKeyword">検索対象の文字列</param>
''' <param name="highlightColor">ハイライトする背景色 (wdColor系)</param>
Public Sub HighlightRowsByKeyword(ByVal targetKeyword As String, Optional ByVal highlightColor As Long = wdColorYellow)
    
    ' 1. 環境の最適化：描画更新を停止し、処理速度を極限まで高める
    ' Windows APIのLockWindowUpdateに近い挙動をVBA標準機能で実現
    On Error GoTo ErrorHandler
    Application.ScreenUpdating = False
    
    Dim doc As Document
    Set doc = ActiveDocument
    
    Dim tbl As Table
    Dim rngSearch As Range
    Dim foundRange As Range
    
    ' 2. 全てのテーブルを走査
    ' Tableオブジェクトを直接参照し、不要なメモリ消費を防ぐ
    For Each tbl In doc.Tables
        
        ' 検索範囲をテーブルの全領域に設定
        Set rngSearch = tbl.Range
        
        ' Findオブジェクトの初期化（再利用による効率化）
        With rngSearch.Find
            .ClearFormatting            ' 書式設定のクリア
            .Text = targetKeyword       ' 検索文字列
            .Forward = True             ' 検索方向
            .Wrap = wdFindStop          ' 範囲外へのラップ防止
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = False
            
            ' 3. 高速検索ループ
            ' Find.ExecuteがTrueを返す限り、エンジン内部で高速にスキャンを継続
            Do While .Execute
                
                ' 見つかった範囲（Range）を特定
                Set foundRange = rngSearch.Duplicate
                
                ' 4. 行全体への操作
                ' 見つかったセルが含まれる行（Row）を特定し、書式を変更
                ' Rangeオブジェクトのプロパティを直接操作することで、Cellオブジェクトの生成を回避
                foundRange.Rows(1).Shading.BackgroundPatternColor = highlightColor
                
                ' 次の検索開始位置を、現在のヒット箇所の直後に設定
                ' これを怠ると無限ループに陥る
                rngSearch.Collapse wdCollapseEnd
                
                ' テーブルの終端に達したかチェック
                If rngSearch.End >= tbl.Range.End Then Exit Do
            Loop
        End With
        
        ' 5. オブジェクトの明示的な解放
        ' ループ内で生成されたRangeオブジェクトを確実に破棄
        Set rngSearch = Nothing
    Next tbl

CleanUp:
    ' 6. 状態の復元
    ' エラー発生時でも必ず描画更新を再開させる
    Application.ScreenUpdating = True
    
    ' メモリリーク防止のための明示的なNothing代入
    Set doc = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "Critical Error: " & Err.Description, vbCritical, "System Failure"
    Resume CleanUp
End Sub

''' <summary>
''' エントリポイント（テスト用）
''' </summary>
Public Sub ExecuteHighlightTask()
    ' 実務では、ユーザー入力や外部システム（API経由のパラメータ等）から値を受け取る
    Call HighlightRowsByKeyword("重要", wdColorRed)
End Sub

4. 技術的深掘り：なぜこの実装なのか

4.1. `Range.Find` による計算量の削減

前述の通り、`For Each Cell` は $O(n)$ （$n$ はセル数）の計算量に加え、各ステップでCOMのオーバーヘッドが発生する。一方で `Find` は内部的なインデックスを利用するため、実質的な実行時間は極めて短い。特に、検索対象が文書全体の一部である場合、その差は数倍から数十倍に広がる。

4.2. `Range.Collapse` によるポインタ制御

`rngSearch.Collapse wdCollapseEnd` は、検索の終端を次の検索開始点へと「折り畳む」操作である。これは、C言語におけるポインタのインクリメントに相当する。これを適切に行うことで、検索範囲を効率的にスライドさせ、重複検索を防ぎつつ、検索空間を最小限に保つことができる。

4.3. メモリ管理とライフサイクル

VBAにおけるオブジェクト管理は、ガベージコレクションが完全ではないため、常に「所有権」と「生存期間」を意識しなければならない。
本コードでは、`Set rngSearch = Nothing` をループの各ステップ、あるいは処理の終了時に明示的に行っている。これは、特に大規模なドキュメントを処理する際に、VBAのメモリ空間（スタックおよびヒープ）が肥大化し、Word自体が不安定になる（いわゆる「Not Responding」状態）のを防ぐための、極めて重要な作法である。

4.4. エラーハンドリングの哲学

`On Error GoTo ErrorHandler` は単なるエラー回避ではない。`Application.ScreenUpdating = False` を呼び出した後、エラーが発生してマクロが異常終了すると、Wordの画面更新が停止したままになり、ユーザーの操作を著しく阻害する。プロフェッショナルなコードは、「異常時であっても、システムの状態を元の正常な状態へ確実に復元する」責任を負っている。

5. 結論

「動く」ことは最低条件に過ぎない。我々が目指すべきは、どのような条件下でも、予測可能なパフォーマンスと安定性を提供できるコードである。

Word VBAという一見レガシーに見える技術においても、その背後にあるCOMアーキテクチャとメモリ管理の原則を理解していれば、極めて強力な自動化ツールを構築することができる。この知見を、単なる「マクロ」ではなく、「システム」として昇華させてほしい。