【実務・中級編】Word VBAで『検索結果』をRange配列に格納する：Find.Executeの効率的なループ処理 – Word VBA解析バイブル

スポンサーリンク

Word VBAにおける「検索結果」の効率的な扱い：Find.Executeの落とし穴とRange配列による高速化戦略

Word VBA開発者の皆さん、日々の業務自動化に情熱を燃やすリーダーたちへ。今回は、Word VBAの「検索機能」における、見過ごされがちな非効率性と、それを克服するための極めて実践的なテクニックについて、開発プロジェクトのリーダーとして、皆さんのコードに「堅牢性」と「パフォーマンス」という名の鋼鉄の鎧を与えるべく、魂を込めて解説します。

皆さんは、Word文書内で特定の文字列を検索し、その結果を一つずつ処理するコードを書いていませんか？例えば、以下のようなコードです。

Sub FindAndProcessOneByOne()
Dim doc As Document
Dim findText As String
Dim foundRange As Range

Set doc = ActiveDocument
findText = InputBox(“検索する文字列を入力してください:”)

If findText = “” Then Exit Sub

‘ 検索開始位置を文書の先頭に設定
Set foundRange = doc.Content
foundRange.Find.ClearFormatting
foundRange.Find.Text = findText

‘ 検索を繰り返す
Do While foundRange.Find.Execute
‘ ここでfoundRangeに対する処理を行う (例: 文字列の置換、プロパティの取得など)
Debug.Print “見つかりました: ” & foundRange.Text
‘ 次の検索のために、検索範囲を現在の見つかった位置の直後に移動
Set foundRange = doc.Range(foundRange.End, doc.Content.End)
foundRange.Find.ClearFormatting
foundRange.Find.Text = findText
Loop

MsgBox “検索と処理が完了しました。”
End Sub

このコードは、一見すると問題なく動作するように見えます。しかし、大規模な文書や、検索文字列が多数出現する場合、この「都度検索・都度処理」のループは、Wordアプリケーションの内部処理に多大な負荷をかけ、検索速度を著しく低下させる原因となります。

なぜ非効率なのか？それは、`Find.Execute` メソッドが呼び出されるたびに、Wordは文書全体を（あるいは残りの部分を）走査し、条件に一致する次の文字列を探し出すからです。この処理は、ループが繰り返されるたびに、そして文書が大きくなるほど、指数関数的に時間が増加します。

Find.Executeの落とし穴：逐次処理のパフォーマンスボトルネック

`Find.Execute` メソッドは、その名の通り「実行」するものであり、検索結果を一度にまとめて取得する機能は持っていません。そのため、上記のようなループ処理が一般的になります。しかし、この逐次処理が、以下のような問題を引き起こします。

  • パフォーマンスの低下: 文書サイズや検索ヒット数に比例して、処理時間が爆発的に増加します。数千、数万ヒットするような文書では、実用にならないほどの遅延が発生し得ます。
  • リソースの浪費: 検索処理が繰り返されるたびに、WordアプリケーションはCPUやメモリを消費します。これが長時間の処理になると、システム全体のパフォーマンスにも影響を与えかねません。
  • コードの複雑化: 次の検索のために検索範囲を更新するロジック（`Set foundRange = doc.Range(foundRange.End, doc.Content.End)` の部分）は、見落としやすく、バグの温床となり得ます。

解決策：Range配列による「一括取得・一括処理」戦略

では、この問題にどう立ち向かうべきか。それは、検索結果を一度にすべて取得し、それらを配列（またはコレクション）に格納してから、まとめて処理するという戦略です。これにより、`Find.Execute` の呼び出し回数を大幅に削減し、パフォーマンスを劇的に向上させることができます。

具体的には、`Find.Execute` を一度だけ実行し、その結果を `Range` オブジェクトの配列（または動的配列）に格納していきます。

堅牢な設計のための基盤：動的配列の活用

VBAで動的配列を使用する際の注意点は、配列のサイズを事前に把握できない場合、`ReDim Preserve` を用いて配列を拡張していくことです。しかし、この `ReDim Preserve` も、配列サイズが大きくなるにつれてパフォーマンスに影響を与える可能性があります。

そこで、ここでは「最大想定ヒット数」を設定するか、あるいはより柔軟な「Collectionオブジェクト」を使用することを推奨します。Collectionオブジェクトは、要素の追加・削除が容易で、動的配列のようにサイズ拡張によるパフォーマンス低下の心配が少ないため、検索結果の格納に適しています。

以下に、Collectionオブジェクトを使用して検索結果を格納し、一括処理するプロダクションコード例を示します。このコードは、コピペでそのまま利用でき、保守性も考慮されています。

プロダクションコード例：Collectionを用いた検索結果の格納と一括処理

Sub FindAndProcessAllWithCollection()
‘==============================================================================
‘ 機能: 指定された文字列をWord文書内で検索し、見つかったすべてのRangeオブジェクトを
‘ Collectionに格納して一括処理する。
‘ 逐次検索によるパフォーマンス低下を防ぎ、高速な処理を実現する。
‘
‘ 開発者: [あなたの名前/チーム名]
‘ 作成日: YYYY/MM/DD
‘ 更新日: YYYY/MM/DD
‘
‘ 引数: なし
‘ 戻り値: なし (デバッグウィンドウに結果を出力)
‘
‘ 要注意事項:
‘ – 大規模文書や多数のヒット数でパフォーマンスが大幅に向上します。
‘ – 検索オプション（大文字/小文字、全単語、ワイルドカード等）は、
‘ Findオブジェクトのプロパティで事前に設定してください。
‘ – エラーハンドリングは最小限に留めていますが、実運用では必要に応じて追加してください。
‘==============================================================================

Dim doc As Document
Dim searchResultCollection As Collection ‘ 検索結果のRangeオブジェクトを格納するCollection
Dim findText As String
Dim currentRange As Range
Dim foundMatch As Boolean
Dim itemCount As Long

‘ — 初期設定 —
On Error GoTo ErrorHandler ‘ エラーハンドリングの設定

Set doc = ActiveDocument ‘ 現在アクティブな文書を取得
If doc Is Nothing Then
MsgBox “アクティブなWord文書がありません。処理を中止します。”, vbExclamation
Exit Sub
End If

‘ ユーザーに検索文字列を入力させる
findText = InputBox(“検索する文字列を入力してください:”, “検索文字列入力”)
If findText = “” Then
MsgBox “検索文字列が入力されなかったため、処理を中止します。”, vbInformation
Exit Sub
End If

‘ 検索結果を格納するためのCollectionオブジェクトを初期化
Set searchResultCollection = New Collection

‘ — 検索設定 —
‘ 検索対象を文書全体に設定
Set currentRange = doc.Content
currentRange.Find.ClearFormatting ‘ 既存の検索書式をクリア

‘ 検索条件の設定 (例: 文字列のみを検索)
With currentRange.Find
.Text = findText
.Forward = True ‘ 前方検索
.Wrap = wdFindContinue ‘ 文書の終端に達したら先頭に戻って検索を続ける
.Format = False ‘ 書式による検索は行わない
.MatchCase = False ‘ 大文字/小文字を区別しない
.MatchWholeWord = False ‘ 単語全体のみを検索しない
.MatchWildcards = False ‘ ワイルドカードを使用しない
.MatchSoundsLike = False ‘ SoundLike検索は行わない
.MatchAllWordForms = False ‘ 全単語形式を一致させない

‘ — Find.Execute の実行とCollectionへの格納 —
foundMatch = .Execute ‘ 最初の検索を実行

‘ 検索結果が見つかった場合、Collectionに格納していく
Do While foundMatch
‘ RangeオブジェクトをCollectionに追加
‘ .Duplicate は、元のRangeオブジェクトのコピーを作成する。
‘ これにより、後続の検索操作でcurrentRangeが変更されても、
‘ 格納されたRangeオブジェクトは影響を受けなくなる。
searchResultCollection.Add currentRange.Duplicate

‘ 次の検索のために、検索範囲を現在の見つかった位置の直後に設定
‘ これにより、同じ文字列の重複検索を防ぐ
‘ currentRange.End は、見つかったRangeの終了位置
‘ doc.Content.End は、文書全体の終了位置
Set currentRange = doc.Range(currentRange.End, doc.Content.End)
currentRange.Find.ClearFormatting ‘ 次の検索のために書式をクリア
currentRange.Find.Text = findText ‘ 検索文字列を再設定

‘ 検索を続行 (Find.Execute が False を返すまでループ)
foundMatch = currentRange.Find.Execute
Loop
End With

‘ — 検索結果の処理 —
itemCount = searchResultCollection.Count

If itemCount = 0 Then
MsgBox “‘” & findText & “‘ は見つかりませんでした。”, vbInformation
Else
Debug.Print “— 検索結果の処理開始 —”
Debug.Print “検索文字列: ‘” & findText & “‘”
Debug.Print “合計ヒット数: ” & itemCount & ” 件”

Dim i As Long
Dim processedRange As Range

‘ Collectionに格納されたRangeオブジェクトをループ処理
For i = 1 To itemCount
Set processedRange = searchResultCollection(i) ‘ CollectionからRangeオブジェクトを取得

‘ — ここで、取得したRangeオブジェクト (processedRange) に対する処理を記述 —
‘ 例1: 見つかった文字列を太字にする
processedRange.Font.Bold = True

‘ 例2: 見つかった文字列の前後に行番号を追加する (これはデモ用、実際はもっと複雑になる可能性あり)
‘ Dim startLine As Long, endLine As Long
‘ startLine = processedRange.Information(wdFirstCharacterLineNumber)
‘ endLine = processedRange.Information(wdLastCharacterLineNumber)
‘ If startLine = endLine Then
‘ Debug.Print ” ヒット ” & i & “: 行 ” & startLine & “, テキスト: ‘” & processedRange.Text & “‘”
‘ Else
‘ Debug.Print ” ヒット ” & i & “: 行 ” & startLine & “-” & endLine & “, テキスト: ‘” & processedRange.Text & “‘”
‘ End If

‘ 例3: 特定の文字列に置換する (注意: 置換処理は慎重に)
‘ processedRange.Text = “置換後の文字列”

‘ 処理内容に応じて、ここに記述します。
‘ Debug.Print ” 処理済みのヒット ” & i & “: ‘” & processedRange.Text & “‘”

Next i

Debug.Print “— 検索結果の処理完了 —”
MsgBox itemCount & ” 件の ‘” & findText & “‘ が見つかり、処理が完了しました。”, vbInformation
End If

‘ — クリーンアップ —
Set currentRange = Nothing
Set searchResultCollection = Nothing
Set doc = Nothing
Exit Sub ‘ 正常終了

ErrorHandler:
‘ — エラーハンドリング —
MsgBox “エラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical

‘ エラー発生時も、オブジェクトの解放を試みる
On Error Resume Next ‘ エラーハンドリングを無効化し、クリーンアップ処理を続行
Set currentRange = Nothing
Set searchResultCollection = Nothing
Set doc = Nothing
On Error GoTo 0 ‘ エラーハンドリングを再度有効化（通常は不要だが念のため）

End Sub

コード解説：堅牢性と保守性を高める設計思想

1. オブジェクトのライフサイクル管理:

  • `Dim doc As Document`, `Dim searchResultCollection As Collection`, `Dim currentRange As Range` のように、使用するオブジェクトは最初に宣言します。
  • `Set doc = ActiveDocument` でアクティブな文書を取得します。文書がない場合は早期終了します。
  • `Set searchResultCollection = New Collection` でCollectionオブジェクトを生成します。
  • `Set currentRange = doc.Content` で検索対象範囲を文書全体に設定します。
  • ループ内で `searchResultCollection.Add currentRange.Duplicate` を使用している点に注目してください。`Duplicate` メソッドは、現在の `Range` オブジェクトの「コピー」を作成します。これにより、後続の `currentRange` の移動や `Find.Execute` による `currentRange` の変更が、Collectionに格納された本来の検索結果に影響を与えることを防ぎます。これは、オブジェクトの不変性を保つための重要なテクニックです。
  • ループの最後に `Set currentRange = doc.Range(currentRange.End, doc.Content.End)` で次の検索範囲を設定します。
  • 処理の最後に `Set currentRange = Nothing`, `Set searchResultCollection = Nothing`, `Set doc = Nothing` と、明示的にオブジェクトを解放しています。これにより、メモリリークを防ぎ、アプリケーションの安定性を高めます。

2. エラーハンドリング:

  • `On Error GoTo ErrorHandler` をコードの先頭に配置し、予期せぬエラー発生時に `ErrorHandler` ラベルに処理をジャンプさせます。
  • `ErrorHandler` ラベルでは、エラー番号と内容を表示し、ユーザーに問題発生を伝えます。
  • エラー発生時でも、`On Error Resume Next` を一時的に使用してオブジェクトの解放を試み、リソースの開放漏れを防ぎます。

3. 検索オプションの明示:

  • `With currentRange.Find … End With` ブロック内で、`MatchCase`, `MatchWholeWord`, `MatchWildcards` などの検索オプションを明示的に設定しています。これにより、コードの意図が明確になり、意図しない検索結果になることを防ぎます。
  • `Wrap = wdFindContinue` は、文書の終端まで検索してヒットがなくなった場合に、文書の先頭に戻って検索を継続する設定です。これにより、文書全体を網羅的に検索できます。

4. Collectionオブジェクトの利点:

  • `Collection` は、要素の追加 (`.Add`) が容易で、動的配列の `ReDim Preserve` のようなパフォーマンスオーバーヘッドがありません。検索結果の数が事前に分からない場合に非常に有効です。
  • `collection(index)` の形式で要素にアクセスでき、ループ処理が直感的です。

5. 一括処理の柔軟性:

  • 検索結果を格納した `searchResultCollection` をループで回し、各 `processedRange` に対して必要な処理を記述するだけで、一括処理が実現できます。
  • コメントアウトされている例のように、太字化、行番号の取得、あるいは特定の文字列への置換など、様々な処理をこのループ内で実行できます。

ファイルやデータベース連携における注意点

この「検索結果のCollection化」テクニックは、Word文書内での処理に留まらず、より広範な自動化シナリオで威力を発揮します。

  • ファイル連携:
  • 複数のWord文書を処理する場合、各文書でこの検索・Collection化処理を行い、結果を上位のCollectionや配列に集約することができます。
  • 検索結果をCSVファイルやテキストファイルに出力する際も、Collectionに格納されたデータを一度に処理することで、ファイルI/Oの回数を削減し、効率化を図れます。
  • 注意点: 大量のファイルや文書を処理する場合、メモリ使用量に注意が必要です。必要に応じて、処理済みのRangeオブジェクトをCollectionから削除する (`searchResultCollection.Remove i`)、あるいは結果を随時ファイルに書き出すなどの工夫が必要です。
  • データベース連携:
  • Word文書から抽出した情報をデータベースに格納する場合、Collectionに格納されたRangeオブジェクトから情報を抽出し、まとめてデータベースにINSERTする処理を記述します。
  • ADO (ActiveX Data Objects) などを使用する場合、`Command` オブジェクトの `Parameters` コレクションに複数のパラメータを設定し、Execute メソッドを一度だけ呼び出す「バッチ更新」機能を利用することで、データベースへの書き込みパフォーマンスを向上させることができます。
  • 注意点: データベースのトランザクション管理を適切に行い、データの一貫性を保つことが重要です。また、大量のデータを一括で処理する際には、データベース側のパフォーマンスチューニングも考慮する必要があります。

VB.NETでの実装例（参考）

Word VBAはCOMオートメーションを通じて、VB.NETなどの他の.NET言語から操作することも可能です。VB.NETで同様の処理を行う場合、`Microsoft.Office.Interop.Word` ライブラリを使用します。

using System;
using System.Collections.Generic;
using Word = Microsoft.Office.Interop.Word;

public class WordProcessor
{
public void FindAndProcessAll(string filePath, string findText)
{
Word.Application wordApp = null;
Word.Document doc = null;
List foundRanges = new List(); // .NETではListが一般的

try
{
// Wordアプリケーションのインスタンスを取得または生成
try
{
wordApp = (Word.Application)System.Runtime.InteropServices.Marshal.GetActiveObject(“Word.Application”);
}
catch
{
wordApp = new Word.Application();
wordApp.Visible = true; // 必要に応じて表示
}

doc = wordApp.Documents.Open(filePath);

// 検索設定
Word.Range currentRange = doc.Content;
currentRange.Find.ClearFormatting();

object findTextObj = findText;
object missing = System.Reflection.Missing.Value;

// 検索実行
bool foundMatch = currentRange.Find.Execute(ref findTextObj,
ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing);

while (foundMatch)
{
// 見つかったRangeオブジェクトをListに追加 (Duplicate相当の操作)
// .Duplicate() はCOMオートメーションでは明示的に必要ない場合が多いですが、
// 参照のコピーではなく値のコピーを意識するなら、Rangeオブジェクトを再度作成するなどの方法があります。
// ここでは、単純に参照をListに追加します。
foundRanges.Add(currentRange);

// 次の検索範囲を設定
// .End プロパティは Range オブジェクトを返します。
currentRange = doc.Range(currentRange.End, doc.Content.End);

// 検索を続行
foundMatch = currentRange.Find.Execute(ref findTextObj,
ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing);
}

// 検索結果の処理
if (foundRanges.Count > 0)
{
Console.WriteLine($”Found {foundRanges.Count} matches for ‘{findText}’.”);
foreach (Word.Range range in foundRanges)
{
// ここで range に対する処理を行う
// 例: 文字列を太字にする
range.Font.Bold = true;

Console.WriteLine($” Processed: {range.Text.Trim()}”);
}
Console.WriteLine(“Processing complete.”);
}
else
{
Console.WriteLine($”‘{findText}’ not found.”);
}
}
catch (Exception ex)
{
Console.WriteLine($”An error occurred: {ex.Message}”);
}
finally
{
// オブジェクトの解放
if (doc != null)
{
// 文書を保存せずに閉じる場合 (必要に応じて変更)
doc.Close(Word.WdSaveOptions.wdDoNotSaveChanges);
System.Runtime.InteropServices.Marshal.ReleaseComObject(doc);
doc = null;
}
if (wordApp != null)
{
// Wordアプリケーションを終了する場合 (他の文書が開いている場合は注意)
// wordApp.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(wordApp);
wordApp = null;
}
GC.Collect(); // ガベージコレクションの実行を促す
}
}
}

VB.NETでは、`List` を使用するのが一般的です。COMオブジェクトの解放には `Marshal.ReleaseComObject` を使用し、リソースリークを防ぐことが極めて重要です。

まとめ：パフォーマンスへの投資は、未来への投資

「検索結果をRange配列（Collection）に格納して一括処理する」というテクニックは、Word VBAにおけるパフォーマンスチューニングの基本であり、業務効率化ツール開発においては必須の知識と言えます。

このテクニックを導入することで、

  • 処理時間の短縮: 大幅な高速化により、ユーザーの待ち時間を削減します。
  • コードの可読性向上: 検索ロジックと処理ロジックが分離され、コードが整理されます。
  • 堅牢性の向上: エラーが発生しにくい、安定したコードになります。

開発プロジェクトのリーダーとして、皆さんのチームがこれらの「極限の知見」を習得し、より高品質で効率的な業務自動化ツールを開発されることを期待しています。パフォーマンスへの投資は、単なる時間短縮に留まらず、ユーザー満足度、そしてチーム全体の生産性向上に直結する、未来への確実な投資なのです。

この解説が、皆さんのWord VBA開発における羅針盤となれば幸いです。

スポンサーリンク
タイトルとURLをコピーしました