【実務・中級編】Wordの『ストーリー』を横断するテキスト抽出：メイン本文以外のテキストボックスや吹き出しを漏らさず取得する – Word VBA解析バイブル

Word VBAの「死角」を突き破る：StoryRangesを完全制覇し、文書の全テキストを掌握せよ

多くのエンジニアがWord VBAで躓く最大の罠。それは「`ActiveDocument.Content`だけでは、文書の真の姿は見えない」という事実だ。

テキストボックス、図形の吹き出し、ヘッダー、フッター、脚注。これらはメインのストーリー（Main Text Story）とは別の「隔離された領域」に存在している。一般的な`Find`操作でこれらを漏らしてしまい、クライアントから「修正されていない箇所がある」と指摘を受ける。これはプロとしてあってはならない失態だ。

今日は、Wordの内部構造である「ストーリー（StoryRanges）」の深淵に潜り、文書内のあらゆるテキストを漏れなく制御するための極限のアーキテクチャを伝授する。

—

1. なぜ「Range.Find」だけでは不十分なのか

Wordのドキュメントは、単一のテキストの塊ではない。複数の「ストーリー」と呼ばれる独立したレイヤーの集合体だ。

• wdMainTextStory: メイン本文
• wdFootnotesStory: 脚注
• wdCommentsStory: コメント
• wdTextFrameStory: テキストボックスや吹き出し

愚かな実装は、`ActiveDocument.Range`を叩いて終わりにする。だが、真のエンジニアは、Wordが持つ全てのストーリーの種類を列挙し、再帰的に走査する仕組みを実装する。これが「バグゼロ」の絶対条件だ。

—

2. 堅牢な抽出・置換エンジンの設計思想

単なるループ処理ではなく、以下の設計指針を遵守する。

1. オブジェクトの解放: `Range`や`Document`の参照を適切に管理し、メモリリークを許さない。
2. エラーハンドリング: リンクされたテキストボックスなどの「循環参照」でVBAがフリーズする事態を、`On Error Resume Next`を局所的に配置して回避する。
3. モジュール分割: 「スキャンロジック」と「置換/処理ロジック」を分離し、保守性を担保する。

—

3. 実践：あらゆるストーリーを網羅するプロダクションコード

以下のコードは、文書内の全ストーリーを走査し、指定したキーワードを置換するモジュールだ。そのまま業務ツールのコアロジックとして実装してほしい。

Option Explicit

‘ 全ストーリーを走査し、キーワードを一括置換するメインプロシージャ
Public Sub GlobalReplaceInDocument(ByVal findText As String, ByVal replaceText As String)
Dim rngStory As Range

‘ 文書内の全ストーリーをループ
For Each rngStory In ActiveDocument.StoryRanges

‘ 再帰的にリンクされたストーリー（テキストボックスの連結など）を追跡
Dim currentRange As Range
Set currentRange = rngStory

Do
Call ExecuteReplace(currentRange, findText, replaceText)

‘ 次のリンクされたストーリーへ（なければループを抜ける）
Set currentRange = currentRange.NextStoryRange
Loop While Not currentRange Is Nothing

Next rngStory

MsgBox “全ストーリーの置換処理が完了しました。”, vbInformation
End Sub

‘ 実際の置換を実行するサブルーチン
Private Sub ExecuteReplace(ByRef rng As Range, ByVal findText As String, ByVal replaceText As String)
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = findText
.Replacement.Text = replaceText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False

‘ 置換実行（ReplaceAll）
.Execute Replace:=wdReplaceAll
End With
End Sub

—

4. プロの現場での注意点：データベース連携とパフォーマンス

このコードを業務自動化ツールに組み込む際、以下の点に留意せよ。

• 大規模文書のハンドリング: 数百ページに及ぶ文書では、`ScreenUpdating = False`を設定し、描画を止めることが必須だ。処理速度が数十倍変わる。
• データベース連携: ExcelやSQL Serverから置換リストを読み込む際は、一度配列（Array）に格納してから処理すること。セルを直接叩くのはパフォーマンスの自殺行為である。
• 変更履歴の追跡: 文書に「変更履歴の記録」がオンになっている場合、置換の結果が全て履歴として残る。システム的な置換の場合は、一旦履歴をオフにするか、`TrackRevisions = False`を一時的に設定する判断が求められる。

まとめ：技術の重みを知る者へ

Word VBAは「枯れた技術」と言われるが、その内部構造を理解しているエンジニアは極めて少ない。`StoryRanges`を自在に操れるようになれば、あなたはもう単なるVBAユーザーではない。Wordという巨大なDOM構造を統御するアーキテクトだ。

コードは単に動けばいいというものではない。「将来、仕様変更が起きた時に何行修正すべきか？」を常に自問せよ。このコードはその問いに対する、一つの最適解である。

さあ、現場に戻って、あなたの自動化ツールを一段上のレベルへ引き上げたまえ。健闘を祈る。