Word VBAを掌握する極限の知見：『ストーリー』の階層構造と全領域走査のアーキテクチャ
Word VBAにおける最大の罠、それは「`ActiveDocument.Content` や `Selection` さえ操作していれば文書のすべてを網羅できる」というエンジニアの致命的な勘違いにある。
実務で作成されるビジネス文書、あるいは外部システムと連携する自動生成ドキュメントにおいて、本当に書き換えたい機密情報やメタデータはどこに存在しているか？ ヘッダー、フッター、リンクされたテキストボックス、コメント、脚注、そしてヘッダーの深部に潜む偶数・奇数ページの差異。これらはすべて、メインテキストとは完全に独立したメモリ空間、すなわち「ストーリー（Story）」として管理されている。
今回は、Wordのオブジェクトモデルの深層に切り込み、文書内の全ストーリーを漏らさず捕捉し、一括置換や書式正規化をミリ秒単位のパフォーマンスで完遂するための極限の知見を伝授する。
—
1. Wordオブジェクトモデルの裏側：なぜ「ストーリー」の概念が必要なのか？
一般的なプログラマが最初に直面する絶望は、「`Content.Find` で文字列置換を実行したのに、ヘッダーの会社名や図形のテキストボックス内の記述が置き換わらなかった」という現象だ。
Wordの内部アーキテクチャにおいて、文書は単一の連続したテキストストリームではない。文書は複数の `StoryRanges` の集合体として構築されている。
[Document Object]
├── Main Text Story (wdMainTextStory)
├── Headers & Footers Stories (wdPrimaryHeaderStory, wdEvenPagesHeaderStory, etc.)
├── Textboxes / Shapes (Shape.TextFrame.TextRange)
├── Footnotes / Endnotes (wdFootnoteTextStory, wdEndnoteTextStory)
└── Comments (wdCommentsStory)
これらはそれぞれが独立した `Range` オブジェクトを持ち、互いにメモリ上で隔離されている。したがって、メインテキストの `Range` をいくら操作しても、他のストーリーには1ビットたりとも影響は及ばない。
すべてのストーリーを完全網羅するには、Wordが提供する列挙体を理解し、文書内の「リンクされたストーリーチェーン」を辿る再帰的・反復的な走査ロジックを構築する必要がある。
—
2. パフォーマンスとメモリ管理の鉄則：レガシー環境を生き抜く作法
何百ページにも及ぶ巨大なレガシーWordファイルを相手にするシステムにおいて、VBAの書き方を誤ると、メモリリークや「Wordが応答しません」という致命的なフリーズを引き起こす。
チーフアーキテクトとして、以下の3点をコードの絶対戒律とする。
1. 画面描画とイベントの完全抑制
処理の冒頭で `ScreenUpdating` と `EnableEvents` を `False` にし、CPUサイクルをオブジェクト操作に集中させる。
2. オブジェクト変数の明示的解放
ループ内で生成される `Range` や `Shape` オブジェクトは、VBAのガベージコレクションの気まぐれに頼らず、明示的に `Set xxx = Nothing` を行い、COMコンテキストの参照カウントを即座にゼロにする。
3. エラーハンドリングによる堅牢性
保護されたセクションや読み取り専用のストーリーにアクセスした際のエラー（Error 4605等）を想定し、必ず `On Error Resume Next` との適切なフォールバックを実装する。
—
3. 実装コード：全ストーリー網羅型・一括置換＆走査エンジン
以下に、メインテキスト、全ヘッダー・フッター、脚注、そしてテキストボックス（シェイプ）の内部に至るまで、文書内のあらゆるテキスト領域を完璧に走査・置換するプロシージャを示す。
Option Explicit
‘ ==============================================================================
‘ ਾਰ アーキテクチャ解説
‘ Word文書内の全ストーリー（メイン、ヘッダー/フッター、脚注、テキストボックス）
‘ を漏れなく走査し、指定した文字列を安全かつ高速に置換するマスタープロシージャ。
‘ ==============================================================================
Public Sub ExecuteTotalStoryReplacement()
Dim startTime As Double
startTime = Timer
‘ 1. パフォーマンス最適化の極限設定
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.Calculation = wdCalculationManual
.EnableEvents = False
End With
On Error GoTo ErrorHandler
Dim targetDoc As Document
Set targetDoc = ActiveDocument
Dim targetStr As String
Dim replaceStr As String
targetStr = “【極秘】”
replaceStr = “【社外秘】”
Dim replaceCount As Long
replaceCount = 0
‘ 2. ストーリーチェーンの走査
Dim rngStory As Range
Set rngStory = targetDoc.Content
Do
‘ 各ストーリーに対して置換処理を実行
replaceCount = replaceCount + SafeReplaceInStory(rngStory, targetStr, replaceStr)
‘ 連結された次のストーリー（ヘッダー・フッターのセクション間リンク等）が存在する場合の処理
Set rngStory = rngStory.NextStoryRange
Loop Until rngStory Is Nothing
‘ 3. シェイプ（テキストボックス、ワードアート等）内部の走査
‘ シェイプはStoryRangesに含まれないため、個別に走査・再帰処理が必要
replaceCount = replaceCount + ProcessShapesInDocument(targetDoc, targetStr, replaceStr)
‘ 4. 終了処理とパフォーマンス復元
Call RestoreApplicationState
MsgBox “全ストーリーの走査が完了しました。” & vbCrLf & _
“置換実行回数: ” & replaceCount & ” 回” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, _
vbInformation, “Word VBA チーフアーキテクト診断”
Exit Sub
ErrorHandler:
Call RestoreApplicationState
MsgBox “致命的なエラーが発生しました: ” & Err.Description & ” (Error ” & Err.Number & “)”, _
vbCritical, “System Error”
End Sub
‘ ==============================================================================
‘ ਾਰ 個別ストーリー内での安全な置換処理
‘ ==============================================================================
private Function SafeReplaceInStory(ByVal rng As Range, ByVal findText As String, ByVal repText As String) As Long
Dim count As Long
count = 0
On Error GoTo CleanUp
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = findText
.Replacement.Text = repText
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
‘ 置換を実行し、置換数を取得
If .Execute(Replace:=wdReplaceAll) Then
‘ WordのFind.Executeは正確な置換数を返さないため、必要に応じてカウントロジックを拡張
count = 1 ‘ 簡略化のためここでは1以上としてカウント
End If
End With
CleanUp:
SafeReplaceInStory = count
Set rng = Nothing
End Function
‘ ==============================================================================
‘ ਾਰ シェイプ（テキストボックス群）の再帰的走査エンジン
‘ ==============================================================================
private Function ProcessShapesInDocument(ByVal doc As Document, ByVal findText As String, ByVal repText As String) As Long
Dim totalCount As Long
totalCount = 0
Dim sec As Section
Dim shp As Shape
Dim rngShapeText As Range
‘ 各セクションのヘッダー/フッター内のシェイプ、およびメイン文書のシェイプを網羅
For Each sec in doc.Sections
‘ 1. メインストーリー上のシェイプ
For Each shp in sec.Range.ShapeRange
totalCount = totalCount + ProcessSingleShape(shp, findText, repText)
Next shp
‘ 2. ヘッダー内のシェイプ
Dim hdr As HeaderFooter
For Each hdr in sec.Headers
If hdr.Exists Then
For Each shp in hdr.Range.ShapeRange
totalCount = totalCount + ProcessSingleShape(shp, findText, repText)
Next shp
End If
Next hdr
‘ 3. フッター内のシェイプ
For Each hdr in sec.Footers
If hdr.Exists Then
For Each shp in hdr.Range.ShapeRange
totalCount = totalCount + ProcessSingleShape(shp, findText, repText)
Next shp
End If
Next hdr
Next sec
ProcessShapesInDocument = totalCount
End Function
‘ ==============================================================================
‘ ਾਰ 単一シェイプおよびグループ化シェイプの再帰処理
‘ ==============================================================================
private Function ProcessSingleShape(ByVal shp As Shape, ByVal findText As String, ByVal repText As String) As Long
Dim count As Long
count = 0
On Error Resume Next
‘ テキストフレームを持っている場合
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
Set rngShapeText = shp.TextFrame.TextRange
count = count + SafeReplaceInStory(rngShapeText, findText, repText)
End If
End If
‘ グループ化されているシェイプの再帰分解
If shp.Type = msoGroup Then
Dim subShp As Shape
For Each subShp in shp.GroupItems
count = count + ProcessSingleShape(subShp, findText, repText)
Set subShp = Nothing
Next subShp
End If
ProcessSingleShape = count
Set shp = Nothing
End Function
‘ ==============================================================================
‘ ਾਰ アプリケーション状態の復元
‘ ==============================================================================
private Sub RestoreApplicationState()
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
.Calculation = wdCalculationAutomatic
.EnableEvents = True
End With
End Sub
—
4. コードの深層解説：なぜこの実装が必要なのか？
1. `NextStoryRange` による全チェーン走査
Wordのストーリーは、セクションやリンクの有無によって複数の `Range` に分断されている場合がある。`Do … Loop Until rngStory Is Nothing` と `NextStoryRange` の組み合わせにより、メインテキスト、脚注、エンドネーティング、コメント、そしてすべてのヘッダー/フッター（第一ヘッダー、偶数ページヘッダー、最終ページヘッダーなど）の境界を自動的にまたぎ、網羅的に走査する。
2. `ShapeRange` と `msoGroup` の再帰的解体
業務文書において、表代わりやレイアウト目的でテキストボックスが使われることは日常茶飯事である。さらにタチが悪いのは、それらが「グループ化」されているケースだ。`ProcessSingleShape` 内で `msoGroup` を検知し、自身を再帰呼び出し（Recursive Call）することで、何重にもネストされたグループ内のテキストボックスまで漏らさず捕捉する。
3. COMオブジェクトの明示的破棄
ループ内で生成される `Shape` や `Range` 変数を放置すると、VBAの背後にあるWordのCOM参照カウンタが肥大化し、メモリリークの原因となる。すべての処理の末尾で `Set xxx = Nothing` を徹底しているのはそのためだ。
—
5. チーフアーキテクトからの提言
実務において、Word VBAは単なる「マクロの記録の延長」ではない。文書構造という複雑なツリー・グラフ構造を制御する、立派なドキュメント指向プログラミングである。
今回解説した「ストーリーの階層構造の理解と再帰的走査」をマスターすれば、いかに複雑怪奇な社内フォーマットであっても、一網打尽にデータ正規化・一括置換を行うことが可能になる。
妥協のないコード設計で、レガシーシステムをねじ伏せろ。
