自動化に最適! Findと編集操作を組み合わせたマクロ

Word VBAの検索（Find）の利用価値は置換だけではありません。拡張的に利用して様々な作業を自動化する方法を紹介します。

例えば、検出箇所が含まれる段落全体の色を変えたり、検出箇所が表の中かどうかで処理を分析させたりといったことが可能です。これをうまく使えば、Wordの編集作業を自動化するのに強力なツールになります。

そのためには少し複雑な仕組みの理解が必要なので、その解説をしていきます。

文書全体の該当箇所を処理するマクロ

Set rngFind = ActiveDocument.Range(0, 0)
rngFind.Find.ClearFormatting

With rngFind.Find
    '検索条件を指定
    .Forward = True
    .Wrap = wdFindStop
End With
Do While rngFind.Find.Execute(FindText:=FINDTXT) = True
    '検出時の rngFind を基点にした処理
    ' .......
    rngFind.Collapse Direction:=wdCollapseEnd
Loop

検索対象 : Rangeオブジェクト

Rangeオブジェクトをセット

この例では文書全体を処理するので、rngFind に ActiveDocument.Range(0, 0)（文書の先頭）をセットしています。ActiveDocument.Content（文書全体）としてもOKです。

特定の範囲内を対象にすることもできます。

' 文書全体
Set rngFind = ActiveDocument.Content
'1番目のテーブル内
Set rngFind = ActiveDocument.Tables(1)  
'選択範囲内
Set rngFind = Selection

SelectionはRangeオブジェクトにセットして使用するのがお勧めです。Selectionのままでも可能ですが、マクロの実行速度が低下します。（画面が目まぐるしく変わってマクロ動作が体感できたりはしますが）

Rangeオブジェクトは検出範囲に移動する

WordのFindの重要ポイントです。検索で該当箇所が見つかると、Rangeオブジェクトはその該当箇所に移動します（Rangeオブジェクトが再定義されます）。

このおかげでRangeオブジェクト（検出された範囲）から情報を取得したり操作したりといったことが可能になります。

Wordの自動編集にも : Previous と Next

使える場面は多いのにあまり使われていない Previous と Next メソッドを紹介します。

操作の対象、分岐判断の対象の取得例

'例(1) 検出箇所を含む段落
Set p = rngFind.Paragraphs(1)
'例(2) 検出箇所の前の段落
Set pPre = rngFind.Paragraphs(1).Previous
'例(3) 検出箇所が表内か
ret = rngFind.Information(wdWithInTable)

rngFindは移動してしまうので、起点を保持しておく必要がある場合は、検索実行の前に別のRangeにコピーを設けておきましょう。