【テクニカル・上級編】【初心者向け】検索結果の「前後の文字列」を取得して文脈を判定する – Word VBA解析バイブル

魂を込めて執筆します。

—

Word VBAの深淵：Findオブジェクトを起点とした「文脈抽出」の極致

Wordというアプリケーションは、一見するとただのワープロソフトに過ぎない。しかし、その内部構造（DOM）をVBAで制御しようとした瞬間、それは巨大な「文字ストリームの迷宮」へと変貌する。

多くの開発者が、`Find.Execute` で満足してしまっている。だが、実務における自動化の真髄は、ヒットした「点」ではなく、その周辺に広がる「面」――すなわち文脈（Context）をいかに正確に捉えるかにある。

今回は、`MoveStart` および `MoveEnd` メソッドを駆使し、検索結果の前後から動的に情報を引き出すプロフェッショナルな設計思想を解説する。

—

1. 原則：Selectionを捨て、Rangeを支配せよ

初心者は `Selection` オブジェクトを多用するが、シニアエンジニアはこれを忌避する。`Selection` はUIに依存し、処理速度を著しく低下させるだけでなく、ユーザーの操作によって状態が破壊されるからだ。

検索と文脈取得の鉄則は、「Rangeオブジェクトのクローン作成」にある。

Dim targetRange As Word.Range
Set targetRange = ActiveDocument.Content.Duplicate ‘ ドキュメント全体のコピーをメモリ上に保持

`Duplicate` を使う理由は、`Find` 操作によってRangeの開始点と終了点が書き換えられてしまうためだ。元のポインタを失わずに操作を継続するための、防衛的プログラミングの基本である。

—

2. 動的文脈取得のロジック：MoveStart と MoveEnd の戦略的活用

検索にヒットした瞬間、そのRangeは「検索単語そのもの」に収束している。ここから前後 N 文字、あるいは特定の区切り文字まで範囲を拡張するのが `MoveStart` / `MoveEnd` の役割だ。

単位（Unit）の選択肢

• `wdCharacter`: 厳密な文字数指定。
• `wdWord`: 単語単位（日本語の場合は形態素解析の結果に依存するため注意が必要）。
• `wdSentence`: 文単位。Word独自のアルゴリズムで判定される。

実践コード：ヒット箇所の前後15文字を抽出する

以下の関数は、特定のキーワードを検索し、その前後の文脈を安全に抽出する。

”’

”’ 検索する文字列 ”’ 前後に拡張する文字数 Public Sub ExtractContextualData(ByVal keyword As String, ByVal contextLength As Long)
Dim doc As Word.Document: Set doc = ActiveDocument
Dim searchRange As Word.Range: Set searchRange = doc.Content.Duplicate

‘ Findオブジェクトの初期化
With searchRange.Find
.ClearFormatting
.Text = keyword
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
End With

‘ 検索ループ
Do While searchRange.Find.Execute
‘ ヒットした箇所のRangeを保護するため、一時的なRangeオブジェクトを作成
Dim contextRange As Word.Range
Set contextRange = searchRange.Duplicate

‘ — 文脈拡張フェーズ —
‘ 前方に拡張 (負の値を指定)
‘ Start位置を動かす際、ドキュメントの先頭を超えないよう内部で制御される
contextRange.MoveStart Unit:=wdCharacter, Count:=-contextLength

‘ 後方に拡張 (正の値を指定)
‘ End位置を動かす際、ドキュメントの末尾を超えないよう内部で制御される
contextRange.MoveEnd Unit:=wdCharacter, Count:=contextLength

‘ 結果の出力（デバッグ用）
Debug.Print “Found: [” & searchRange.Text & “]”
Debug.Print “Context: ” & Replace(contextRange.Text, vbCr, ” “)
Debug.Print “——————————————”

‘ 次の検索のためにRangeをヒット箇所の直後へ移動
searchRange.Collapse Direction:=wdCollapseEnd

‘ メモリリーク対策：ループ内でのオブジェクト明示的解放（VBAの参照カウンタを意識）
Set contextRange = Nothing
Loop

‘ 最終クリーンアップ
Set searchRange = Nothing
End Sub

—

3. 極限の最適化：Windows APIとメモリ管理

大規模な文書（数百ページ単位）を処理する場合、VBAの標準機能だけでは描画オーバーヘッドがボトルネックとなる。また、COMオブジェクトの生成と破棄が繰り返されるため、メモリの断片化にも配慮が必要だ。

描画停止の真実

`Application.ScreenUpdating = False` は基本だが、それだけでは不十分な場合がある。真にパフォーマンスを追求するなら、Windows APIを使用してWordのウィンドウメッセージ自体を凍結させる手法があるが、VBAでは以下の手法で十分な高速化が得られる。

1. Undoスタックの停止: 大量置換を行う場合、Wordが「元に戻す」情報を蓄積するのを防ぐ。
2. Paginationの停止: バックグラウンドでのページレイアウト計算を止める。

‘ 高速化のための環境設定クラス（抜粋）
Public Sub OptimizeOn()
Application.ScreenUpdating = False
Application.Options.Pagination = False ‘ バックグラウンドでのページ計算を停止
ActiveDocument.UndoClear ‘ Undo履歴をクリア
End Sub

正規表現（VBScript.RegExp）との連携

Wordの `Find` は強力だが、複雑なパターンマッチングには限界がある。シニアエンジニアは、`Find` で大まかな範囲（段落など）を抽出し、そのテキストをメモリ上の文字列（String型）として `VBScript.RegExp` に渡し、高速に正規表現処理を行う手法を好む。

—

4. レガシー保守とシステム連携への知見

我々が対峙する現場には、20年前に作成されたテンプレートや、独自のアドインが動作している環境がざらにある。

• 互換性: `MoveStart` / `MoveEnd` はOffice 97時代から存在する堅牢なメソッドだ。新しい `ContentControl` などに依存せず、あえてこの古典的メソッドを使うことで、ランタイムエラーのリスクを最小化できる。
• エラーハンドリング: `Find.Execute` は、稀に無限ループに陥ることがある。検索範囲の `Start` 位置が前回のループより進んでいるかを常に検証するロジックを組み込むのが、プロの仕事である。

—

5. 結論：技術は「点」ではなく「線」で捉えよ

検索結果の「前後の文字列」を取得するという行為は、単なる文字列操作ではない。それは、非構造データであるWord文書から、構造的な意味（セマンティクス）を抽出する第一歩である。

今回紹介した `Range.Duplicate` と `MoveStart/End` の組み合わせは、Word VBAにおける「外科手術」のようなものだ。対象を正確に切り出し、他の部分に影響を与えず、かつ高速に処理を終える。

このコードをベースに、自社の業務ドメインに合わせた正規表現やデータクレンジングのロジックを組み込んでみてほしい。VBAは決して古い技術ではない。それを使いこなす者の思考が、古びているかどうかが問われているのだ。

—
執筆者：チーフアーキテクト
「コードは語る。仕様書よりも雄弁に。そして、最適化されたRangeは、美しさすら感じさせる。」