【Word VBA】大規模文書の置換を「プロの技」に変える：トランザクション管理とリカバリの極意
こんにちは。自動化の世界へようこそ。
マクロの記録で生成された「行儀の悪いコード」を卒業し、大規模文書を扱う現場で生き残るための「真のエンジニアリング」を学びたいという皆さんの熱意、しかと受け取りました。
Wordの`Find`オブジェクトを使った置換は、一見簡単そうに見えますよね。しかし、数千ページの文書で置換を実行し、途中でエラーが起きて「中途半端に置換された文書」が残ったとき……それはエンジニアにとっての悪夢です。
今日は、そんな悪夢を回避し、「失敗しても元通り」を保証するトランザクション的な設計手法を伝授します。
—
1. なぜ「置換」で失敗するのか？
Wordの置換処理は、裏側で「取り消し履歴（Undo Stack）」を猛烈に消費します。
- メモリ不足: 大規模文書で大量の置換を行うと、Wordがメモリの限界を迎え、処理がクラッシュします。
- 意図しない範囲への適用: `Selection`オブジェクトを使って処理すると、カーソル位置や表示モードに依存して暴走します。
- エラー発生時の不整合: 処理途中でエラーが起きると、置換された箇所とされていない箇所が混在し、整合性が取れなくなります。
これらを解決するキーワードは「Rangeオブジェクトの活用」と「Undoスコープの管理」です。
—
2. 「安全な置換」を司るアーキテクチャ
Word VBAには、処理をひとまとめの「取り消し単位」にするための強力なメソッドがあります。それが `UndoRecord` オブジェクトです。
以下のコードは、大規模文書を安全に処理するためのテンプレートです。
Sub SafeReplaceExecution()
Dim doc As Document
Dim rng As Range
Dim undoRec As UndoRecord
Set doc = ActiveDocument
Set rng = doc.Content
‘ 【重要】UndoRecordを使用して、一連の置換を「1つの操作」として記録する
Set undoRec = Application.UndoRecord
undoRec.StartCustomRecord “大規模置換処理”
On Error GoTo ErrorHandler ‘ エラー発生時の出口を確保
‘ 処理開始
Call PerformComplexReplacement(rng)
undoRec.EndCustomRecord
MsgBox “置換が完了しました。”
Exit Sub
ErrorHandler:
‘ 【重要】エラー発生時はここでリカバリを行う
undoRec.EndCustomRecord
Application.Undo ‘ 処理をすべて取り消す（トランザクションのロールバック）
MsgBox “エラーが発生したため、変更を破棄しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical
End Sub
Sub PerformComplexReplacement(rng As Range)
‘ Rangeオブジェクトを使って「非表示で」検索・置換を行うのが鉄則
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “旧文字列”
.Replacement.Text = “新文字列”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchWholeWord = False
‘ 一気に実行（ReplaceAll）
.Execute Replace:=wdReplaceAll
End With
End Sub
—
3. ここがプロのポイント！知っておくべき3つの知見
① `Selection` は捨て、`Range` を信じろ
初心者は「カーソルを動かして選択する」コードを書きがちですが、それは処理速度を劇的に低下させ、画面のチラつき（ちらつき）の原因になります。`Range` オブジェクトは画面描画を伴わずにメモリ上で操作できるため、遥かに高速かつ安全です。
② `UndoRecord` は「保険」ではなく「設計」
`UndoRecord` は、単にCtrl+Zで戻すためのものではありません。複数の置換プロセスを一つの「不可分な単位（アトミックな操作）」として定義するためのものです。これを使うことで、エラー時に「どこまで終わったんだっけ？」と悩む必要がなくなります。
③ 正規表現（Wildcards）の罠
Wordの検索機能で `.MatchWildcards = True` を使うと、強力な正規表現が使えますが、「メタ文字（?やなど）」の取り扱いには注意が必要です。検索結果が予期せぬ範囲（段落を超えて検索してしまう等）に及ぶ場合は、`Range.End` を明示的に指定して検索範囲を縛りましょう。
—
最後に：自動化の先にあるもの
コードが完成したら、一度「わざとエラーを起こすような不正な入力」を試してみてください。エラーハンドラーが発動し、文書が瞬時に元の姿に戻る様子を確認できたとき、あなたは一歩「エンジニア」としての階段を登ったことになります。
Word VBAは古臭い技術だと言われることもあります。しかし、「複雑な文書を壊さずに管理する」という能力は、AI時代においても、実務現場で最も重宝されるスキルの一つです。
ここをクリアすれば、もうマクロの記録に頼る必要はありません。自信を持って、次の自動化へ進んでください！
また次の講義でお会いしましょう。質問があればいつでもどうぞ。
