Word VBAを掌握する極限の知見：『ストーリー』を横断する一括置換の完全解
開発プロジェクトでWordドキュメントの自動生成やデータクレンジングツールを作ったことがある者なら、誰もが一度はこの絶望を味わったはずだ。
「`ActiveDocument.Content.Find.Execute` で置換処理を書いたのに、ヘッダーやフッター、果ては表のセルやテキストボックスの中の文字が置き換わっていない……！」
ネットで検索すると「`Selection`を使え」という悪魔の囁きが出てくる。だが、プロのエンジニアが画面のチラつき（ScreenUpdating）を無視して `Selection` を酷使するなど、アーキテクチャの敗北に他ならない。何より、パフォーマンスが致命的に低下し、複雑な文書構造の前ではいとも簡単に破綻する。
Word VBAにおける真のデータ構造、そして「ストーリー（Story）」の概念を完全に掌握しなければ、実用に耐える堅牢なエンタープライズ向けツールなど書けない。
今回は、Wordの文書構造の深部を暴き、ドキュメント全域（本文、ヘッダー、フッター、注釈等）の文字列を漏れなく、かつ爆速で一括置換するための最適解を伝授する。
—
1. なぜ「普通の置換」ではヘッダーやフッターが取り残されるのか？
Wordのドキュメントは、単なる1本のテキストの束ではない。内部的には「ストーリー（Story）」と呼ばれる複数の独立したテキストコンテナの集合体として管理されている。
我々が普段目にする「本文」は、数あるストーリーのほんの一片（`wdMainTextStory`）に過ぎない。
ヘッダー、フッター、脚注、コメント、テキストボックスなどは、それぞれが独立した「別個のストーリー空間」として存在している。そのため、本文の `Range` や `Content` オブジェクトに対して `Find` メソッドを実行しても、本文以外のストーリーには指一本触れることができないのである。
ここで登場するのが、すべてのストーリーの入口である `StoryRanges` コレクションだ。
[Document オブジェクト]
└─ [StoryRanges コレクション]
├─ wdMainTextStory (本文)
├─ wdPrimaryHeaderStory (初頁以外のヘッダー)
├─ wdPrimaryFooterStory (初頁以外のフッター)
├─ wdFirstPageHeaderStory (表紙用ヘッダー)
└─ … (その他多数のストーリー)
「じゃあ、`StoryRanges` を単純にループさせて `Find` を回せばいいのだろう」と思ったそこのあなた。甘い。ここにはWord VBA特有の「地雷」が埋まっている。
—
2. StoryRangesループにおける「2つの罠」
`StoryRanges` を巡回する際、プログラマーの前に立ちはだかる最大の壁が次の2点だ。
罠1：リンクされたヘッダー/フッターの重複置換エラー
Wordには「前と同じヘッダー（Link to Previous）」という機能がある。セクションが複数あるドキュメントで、これらが有効な状態で `StoryRanges` を単純にループさせると、同じストーリーに対して二重に置換処理が走り、予期せぬエラーや無限ループ、あるいはメモリリークを引き起こす。
罠2：「連結（Linked）ストーリー」の仕様と次ストーリーへのポインタ
Word VBAの `StoryRanges` ループの最も凶悪な仕様は、`NextStoryRange` プロパティの存在だ。
一部のストーリー（特にヘッダーやフッター、あるいは長文のテキスト連結）は、複数のRangeがチェーンのように繋がっている。これを無視して最初のRangeだけを処理して次へ進むと、2セクション目以降のヘッダーが取り残される。
この仕様の壁を突破し、「全ストーリーの連結チェーンを漏れなく、かつ安全に走査する」ための決定版ロジックを次章で公開する。
—
3. 【プロダクションコード】全ストーリーを網羅する堅牢な一括置換エンジン
以下のコードは、実務の現場でそのまま組み込めるよう設計された、堅牢性・パフォーマンス・保守性を極限まで高めたプロシージャだ。
単なる文字列置換だけでなく、エラーハンドリング、画面描画の抑止、そして何よりすべてのストーリーチェーンを再帰的（あるいはループで）追跡する構造を取り入れている。
Option Explicit
‘ ==============================================================================
‘ 担当: チーフアーキテクト
‘ 概要: Word文書内の全ストーリー（本文・ヘッダー・フッター等）を網羅し、
指定した文字列を一括置換するプロダクションコード。
‘ ==============================================================================
Public Sub ExecuteEnterpriseGlobalReplace(ByVal targetDoc As Document, _
ByVal findText As String, _
ByVal replaceText As String)
‘ 不正な引数のガード
If targetDoc Is Nothing Then Exit Sub
If Len(findText) = 0 Then Exit Sub
‘ パフォーマンス最適化のための環境退避
Dim originalScreenUpdating As Boolean
Dim originalDisplayAlerts As Integer
originalScreenUpdating = Application.ScreenUpdating
originalDisplayAlerts = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
On Error GoTo ErrorHandler
Dim rngStory As Range
Dim lngJunk As Long
‘ StoryRangesコレクションをループ
For Each rngStory In targetDoc.StoryRanges
‘ ストーリーチェーン（セクション違いによるリンク等）を辿る
Do
‘ 各ストーリーのRangeに対してFind処理を実行
Call SafeExecuteFind(rngStory, findText, replaceText)
‘ 次の連結ストーリーが存在するかチェック
Set rngStory = rngStory.NextStoryRange
Loop Until rngStory Is Nothing
Next rngStory
MsgBox “一括置換が正常に完了しました。”, vbInformation, “処理成功”
CleanUp:
‘ 環境の復元（必ず実行する）
Application.ScreenUpdating = originalScreenUpdating
Application.DisplayAlerts = originalDisplayAlerts
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
‘ ==============================================================================
‘ 内部プロシージャ: 個別のRangeに対する安全なFind実行
‘ ==============================================================================
Private Sub SafeExecuteFind(ByVal 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
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
‘ 一括置換の実行
.Execute Replace:=wdReplaceAll
End With
End Sub
—
4. コードの設計思想とプロのこだわり
このコードが「なぜ現場でバグを出さないのか」、そのアーキテクチャの要点を解説する。
1. `Application.ScreenUpdating = False` の徹底
Word VBAは、画面を描画しながらオブジェクトを操作すると凄まじい速度低下を引き起こす。特にストーリーの数だけビューが切り替わるような処理では致命的だ。これを完全にシャットアウトする。
2. `Do…Loop Until rngStory Is Nothing` によるチェーン走査
前述した「連結ストーリーの罠」を完全にクリアするため、`NextStoryRange` が `Nothing` になるまでポインタを追跡し続ける。これにより、セクション区切りやヘッダーのリンク解除によって分裂したテキスト領域を取りこぼさない。
3. エラーハンドリングと環境の確実な復元
VBAで最も恐ろしいのは、エラー時に `ScreenUpdating = False` のままクラッシュし、WordのUIが固まったようになる現象だ。`On Error GoTo` を必ず経由させ、`CleanUp` ラベルで確実に環境を原状復帰させる設計にしている。
—
5. データベースや外部ファイル連携時の実務アドバイス
このマクロを、Excelのマスターデータや外部データベース（SQL Server / SQLiteなど）からデータを取得してWord帳票を量産するシステムに組み込む場合、さらに以下の点に留意してほしい。
- トランザクション的思考（セーブポイントの作成）
一括置換を実行する前に、ドキュメントのバックアップをコード側で強制保存するか、`ActiveDocument.Saved = True` の状態をコントロールできるようにすること。置換ミスによるデータ破損を防ぐ最後の砦となる。
- 特殊文字・改行コードの扱い
データベースから取得したテキストに `vbCrLf` が含まれている場合、Wordの `Find` オブジェクトではそのままでは置換できないことがある（`^p` などの特殊記号に変換する必要がある）。プレーンテキストの置換に留めず、必要に応じてパース処理を挟むこと。
—
総括
Word VBAにおける「ストーリーの概念」と「Rangeのライフサイクル」を理解することは、単なるテクニックの習得にとどまらない。それは、Officeアプリケーションの底流にあるアーキテクチャをリスペクトし、コントロール下に入れるということだ。
「画面を選択して置換する」という素人臭いコードとは今日でお別れしよう。
この堅牢なアーキテクチャを手に入れたあなたなら、どんなに複雑怪奇なドキュメント構造であっても、微動だにしない安定した自動化ツールを構築できるはずだ。
