Wordの『ストーリー範囲』を再考する：MainTextStory以外のテキストを安全に一括取得・置換する極意
Word VBAにおける最大の罠、それは「`ActiveDocument.Content` や `ActiveDocument.Range` だけでは、文書内のすべてのテキストを網羅できていない」という冷徹な事実だ。
多くの開発者は、文書内の文字列置換や形態素解析を行う際、こう書く。
‘ 【素人がやりがちなアンチパターン】
Dim rng As Range
Set rng = ActiveDocument.Content
rng.Find.Execute FindText:=”旧ワード”, ReplaceWith:=”新ワード”, Replace:=wdReplaceAll
このコードで安心しているあなた。その文書、ヘッダー、フッター、そしてページレイアウトの裏に潜む「テキストボックス（Shape）」の中に、重要な機密情報や置換対象のキーワードが眠っていないと言い切れるか？
答えは「No」だ。Wordの構造上、これらは別個の「ストーリー（Story）」として管理されている。MainTextStory（本文）をいくら舐め回しても、それ以外のストーリーは1ミリもかすらない。
今回は、Word VBAのオブジェクトモデルの深層を抉り出し、文書内の全ストーリー（ヘッダー、フッター、シェイプ、脚注など）を完全に掌握し、安全かつ高速にテキストを一括操作するプロダクションコードを伝授する。
—
1. Wordの「ストーリー（Story）」概念の正体
Word文書は、単一のテキストの塊ではない。内部的には複数の「StoryRange（ストーリー範囲）」の集合体として構築されている。
Word VBAが扱う主なストーリータイプ（`WdStoryType`）には、以下のようなものがある。
- `wdMainTextStory` （本文）
- `wdPrimaryHeaderStory` / `wdFirstPageHeaderStory` 等 （ヘッダー）
- `wdPrimaryFooterStory` 等 （フッター）
- `wdFootnotesStory` / `wdEndnotesStory` （脚注・文末脚注）
- そして、最も厄介な「Shape（テキストボックスや描画オブジェクト）」群。
特に `Shape` 内のテキストは、通常の `Document.StoryRanges` ループから漏れ落ちることが多い。なぜなら、Shapeは文書の「図形レイヤー」に存在し、テキストコンテナとしてのストーリー構造が少し特殊だからだ。
これらを完全網羅するには、「メインのStoryRangesループ」と「文書内の全Shape（およびインラインシェイプ）の再帰的走査」という、二段構えのアーキテクチャが必要となる。
—
2. 堅牢な設計：バグを生む「落とし穴」の回避
実務でテキスト置換や解析ツールを開発する際、以下のトラブルが頻発する。
1. 無限ループとエラー落ち:
存在しないストーリータイプにアクセスして `4605`（このメソッドまたはプロパティは現在のコンテキストでは使用できません）エラーが発生する。
2. 連結されたセクションのスキップ:
ヘッダーやフッターはセクションごとに「前と同じ（LinkToPrevious）」になっている場合、単純に全セクションを舐めると重複置換や予期せぬエラーの温床になる。
3. Shape内のテキスト溢れ（Overflow）:
テキストボックス内のテキストを置換した結果、文字数が増えてボックス内に収まりきらなくなっても、VBAはエラーを出さずにサイレントで切り捨てるかレイアウトを崩す。
これらを防ぐため、「安全にイテレートし、エラーをハンドリングし、Shapeのネスト構造まで考慮した」実務仕様のコードが求められる。
—
3. 【コピペ即納】全ストーリー完全網羅・一括置換エンジン
以下に提供するコードは、単なるサンプルではない。私が実際のエンタープライズ向けの文書自動化プロジェクトで標準採用している、極めて堅牢性の高いプロダクションコードだ。
指定したキーワードを、本文・ヘッダー・フッター・テキストボックス・脚注に至るまで、文書全体から漏れなく一括置換する。
Option Explicit
‘ ==============================================================================
‘ 処理名: 医薬・法的文書対応 全ストーリー完全一括置換エンジン
‘ 概要 : 本文、ヘッダー/フッター、シェイプ(テキストボックス)、脚注を網羅し、
安全にテキスト置換を実行する。
‘ ==============================================================================
Public Sub ExecuteEnterpriseTextReplacement()
Dim targetDoc As Document
Set targetDoc = ActiveDocument
Dim findText As String
Dim replaceText As String
‘ ※実際の業務ではユーザーフォームや外部DBから取得する値を想定
findText = “旧用語A”
replaceText = “新用語A”
Dim startTime As Single
startTime = Timer
‘ 画面描画と言語エンジンを停止して爆速化
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
On Error GoTo ErrorHandler
‘ 1. 標準ストーリー（本文、ヘッダー、フッター、脚注など）の走査・置換
Call ProcessStandardStories(targetDoc, findText, replaceText)
‘ 2. シェイプ（テキストボックス・吹き出し等）の走査・置換
Call ProcessShapesInDocument(targetDoc, findText, replaceText)
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
MsgBox “全ストーリーの置換が完了しました。” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, _
vbInformation, “アーキテクチャ実行完了”
Exit Sub
ErrorHandler:
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, _
vbCritical, “致命的エラー”
End Sub
‘ ——————————————————————————
‘ 標準ストーリー範囲の処理
‘ ——————————————————————————
Private Sub ProcessStandardStories(doc As Document, targetStr As String, replaceStr As String)
Dim storyRng As Range
Dim nextStoryRng As Range
For Each storyRng In doc.StoryRanges
Set nextStoryRng = storyRng
‘ 連結されているストーリー（複数セクションのヘッダー等）を連鎖的に処理
Do While Not nextStoryRng Is Nothing
On Error Resume Next
With nextStoryRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = targetStr
.Replacement.Text = replaceStr
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = True
.MatchWholeWord = False
.Execute Replace:=wdReplaceAll
End With
On Error GoTo 0
‘ 次の連結ストーリーへポインタを移行
Set nextStoryRng = nextStoryRng.NextStoryRange
Loop
Next storyRng
End Sub
‘ ——————————————————————————
‘ シェイプ（テキストボックス等）内のテキスト処理
‘ ——————————————————————————
Private Sub ProcessShapesInDocument(doc As Document, targetStr As String, replaceStr As String)
Dim shp As Shape
Dim inlineShp As InlineShape
‘ 1. 通常の浮動シェイプ（テキストボックスなど）の走査
For Each shp In doc.Shapes
Call ProcessSingleShape(shp, targetStr, replaceStr)
Next shp
‘ 2. インラインシェイプ（行内配置のテキストボックスなど）の走査
For Each inlineShp In doc.InlineShapes
If inlineShp.Type = wdShapeTypeCanvas Then
‘ キャンバス内のシェイプにも対応する場合の拡張ポイント
End If
‘ テキストフレームを持っている場合のみ処理
On Error Resume Next
If inlineShp.Type = wdInlineShapeEmbeddedOLEObject Or _
inlineShp.HasTextFrame Then
If inlineShp.TextFrame.HasText Then
Call ExecuteFindReplaceOnRange(inlineShp.TextFrame.TextRange, targetStr, replaceStr)
End If
End If
On Error GoTo 0
Next inlineShp
End Sub
‘ ——————————————————————————
‘ 単体シェイプおよびグループ化されたシェイプの再帰処理
‘ ——————————————————————————
Private Sub ProcessSingleShape(shp As Shape, targetStr As String, replaceStr As String)
On Error Resume Next
‘ グループ化されている場合は再帰的に展開
If shp.Type = msoGroup Then
Dim subShp As Shape
For Each subShp In shp.GroupItems
Call ProcessSingleShape(subShp, targetStr, replaceStr)
Next subShp
Exit Sub
End If
‘ テキストフレームを保持しているかチェック
If shp.TextFrame.HasText Then
Call ExecuteFindReplaceOnRange(shp.TextFrame.TextRange, targetStr, replaceStr)
End If
On Error GoTo 0
End Sub
‘ ——————————————————————————
‘ 共通 Range 置換実行プロシージャ
‘ ——————————————————————————
Private Sub ExecuteFindReplaceOnRange(rng As Range, targetStr As String, replaceStr As String)
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = targetStr
.Replacement.Text = replaceStr
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = True
.MatchWholeWord = False
.Execute Replace:=wdReplaceAll
End With
End Sub
—
4. チーフアーキテクトからの実践的アドバイス
1. パフォーマンスの最適化 (`ScreenUpdating = False`)
Word VBAはUIと密結合しているため、オブジェクトを操作するたびに画面が再描画されると致命的に遅くなる。今回提供したコードのように、処理の最初で画面描画とアラートを止め、最後に一括解放する鉄則を絶対に守ること。処理速度が数十倍変わる。
2. グループ化されたシェイプの罠
Word文書でユーザーが絶望するのが「グループ化された図形の中にあるテキストボックス」だ。通常の `For Each shp In doc.Shapes` では、グループの「外側」しか見えない。上記のコードでは `msoGroup` を検知した瞬間に再帰呼び出し（`ProcessSingleShape`）を行う設計にしてあるため、何重にネストされたグループの中であってもテキストを漏らさない。
3. データベース・外部ファイル連携への拡張
もしこの仕組みをベースに「Excelマスタから複数キーワードを一括置換するツール」や「JSON/DBから抽出したテキストの流し込みエンジン」に発展させる場合は、ハードコーディングされた `findText` / `replaceText` の部分を、配列やDictionary、あるいはADO経由のレコードセットループに置き換えればいい。ストーリーの全網羅ロジック自体はそのまま強力なコアエンジンとして機能する。
Word VBAにおいて、「見えているテキストがすべてではない」というオブジェクトモデルの深淵を理解した者だけが、バグのない、真に信頼性の高いドキュメント自動化システムを構築できる。
今日の知見をあなたの開発現場の武器としてほしい。
