【Word VBA】置換処理の「Undo」を神域で制御する：`UndoRecord`によるトランザクション制御の極意
Word VBAにおける検索・置換（`Find` / `Replacement`）処理は、大量の文書データを一括処理する上で不可欠なエンジンだ。しかし、シニアエンジニアや大規模な社内システムの開発者であれば、一度は次のような絶望的な状況に直面したことがあるはずだ。
「10箇所の置換を行うマクロを実行した結果、ユーザーが『Ctrl + Z』で元の状態に戻そうとしたところ、最初の1箇所分しか戻らない。あるいは、バラバラのステップでしか戻せないため、文書が破損状態になった」
Wordのデフォルトの挙動では、マクロ内で実行された個々のメソッドやAPI呼び出しが、それぞれ独自のUndoスタックを形成する。これを放置することは、データベースのトランザクション管理において「オートコミットが暴走している状態」を放置するのと同じ致命傷だ。
今回は、Word 2010以降で導入された`UndoRecord`オブジェクトを完全に掌握し、複数の置換処理を不可分の1つの「不可逆なアトミック単位（トランザクション）」としてUndoスタックに積むための極限の知見を公開する。
—
1. WordのUndoアーキテクチャの暗部と `UndoRecord`
多くのVBAプログラマは、`Application.Undo` や `ActiveDocument.Undo` といった場当たり的なメソッドで履歴を制御しようとする。しかし、これらはUI層の操作をエミュレートしているに過ぎず、プログラム側から複雑な一連の処理を「単一の操作」としてユーザーに提供するには全く無力である。
ここで登場するのが `UndoRecord` オブジェクトだ。
これは、Wordの内部コマンドバッファに対し、「これから実行する一連のVBAコード群を、1つのグループとしてカプセル化せよ」と明示的に指示するためのコンテキストマネージャ（VBAには言語としてのコンテキストマネージャがないため、オブジェクトのライフサイクルで擬似的に実現する）である。
オブジェクトのライフサイクルと厳格な作法
`UndoRecord` を扱う上で、以下の鉄則を破ってはならない。
1. インスタンスの生存期間とスコープ：
プロシージャのローカル変数として宣言し、処理の開始（`StartCustomUndoAction`）から終了（`EndCustomUndoAction`）までを確実にラップする。
2. 例外安全性の確保：
万が一、処理の途中でエラー（ランタイムエラー）が発生した場合、`EndCustomUndoAction` が呼ばれずにUndoスタックが開きっぱなしになる。これはWordのメモリリークや最悪の場合のアプリケーションクラッシュを引き起こすため、必ず `On Error Goto` によるクリーンアップ処理を実装しなければならない。
—
2. 実装コード：アトミック置換トランザクションエンジン
以下に、実業務の現場でそのまま使用できる、極限まで最適化された実用コードを提示する。このコードは、複数の異なる置換パターンを適用しつつ、ユーザーの「Ctrl + Z」に対して完全に1回の操作として応答する。
Option Explicit
‘ ==============================================================================
‘ 業務システム向け 高度文書置換エンジン
‘ 複数の置換処理を単一のUndoトランザクションとして安全にラップする
‘ ==============================================================================
Public Sub ExecuteAtomicReplacement()
Dim objUndo As UndoRecord
Dim isUndoStarted As Boolean
‘ エラーハンドリングの準備（Undoスタックの孤立を防ぐため必須）
On Error GoTo ErrorHandler
‘ UndoRecordオブジェクトの取得
Set objUndo = Application.UndoRecord
‘ ————————————————————————–
‘ トランザクション開始
‘ 引数には、ユーザーが「元に戻す」メニューにホバーした際に表示される名称を指定
‘ ————————————————————————–
objUndo.StartCustomUndoAction “一括機密情報置換処理（セキュリティ準拠）”
isUndoStarted = True
‘ ————————————————————————–
‘ パフォーマンス最適化：画面描画とバックグラウンド再計算の完全停止
‘ ————————————————————————–
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
‘ 実際の置換処理群（これら全てが1つのUndoにまとめられる）
Call RunBatchReplaceSequence
‘ ————————————————————————–
‘ トランザクション正常終了
‘ ————————————————————————–
objUndo.EndCustomUndoAction
isUndoStarted = False
‘ 画面描画の復元
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
MsgBox “置換処理が正常に完了しました。’Ctrl + Z’ で一括して元に戻すことが可能です。”, vbInformation, “トランザクション成功”
Exit Sub
ErrorHandler:
‘ 異常系：トランザクションが開始された状態でエラーが発生した場合の安全網
If isUndoStarted Then
‘ 強制的にUndoコンテキストを閉じる
On Error Resume Next
objUndo.EndCustomUndoAction
‘ ダーティになった変更を必要に応じてロールバック
ActiveDocument.Undo
On Error GoTo 0
End If
‘ 環境の復元
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
MsgBox “致命的なエラーが発生しました。処理を中断し変更をロールバックしました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“説明: ” & Err.Description, vbCritical, “トランザクション異常終了”
End Sub
‘ ==============================================================================
‘ 実際の置換シーケンス（内部メソッド）
‘ ==============================================================================
Private Sub RunBatchReplaceSequence()
Dim rngTarget As Range
Set rngTarget = ActiveDocument.Content
‘ パターン1：社外秘コードの置換
ExecuteSingleReplace rngTarget, “CONF-OLD-2023”, “CONF-NEW-2024”
‘ パターン2：特定のレガシー用語の統一
ExecuteSingleReplace rngTarget, “旧システム名”, “新次世代基盤”
‘ パターン3：フォーマット調整を伴う置換（正規表現活用など）
‘ ※ここにWordのFindオブジェクトを利用した高度な条件分岐を記述
End Sub
‘ ==============================================================================
‘ プリミティブな置換実行ラッパー
‘ ==============================================================================
Private Sub ExecuteSingleReplace(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 = wdFindStop
.Format = False
.MatchCase = True
.MatchWholeWord = True
‘ 一括置換の実行
.Execute Replace:=wdReplaceAll
End With
End Sub
—
3. シニアエンジニアが押さえるべき「メモリ最適化」と「罠」
上記のコードは単に動くだけではない。大規模なWord文書（数百ページに及ぶ仕様書や契約書など）を処理する際に見落とされがちな、メモリとパフォーマンスの極限最適化が施されている。
1. `ScreenUpdating` と Undoスタックのメモリフットプリント
`ScreenUpdating = False` は画面のチラつきを防ぐだけでなく、WordがUIの再描画とUndoバッファへの中間状態の書き込みを同期させるオーバーヘッドを劇的に軽減する。しかし、`UndoRecord` を使う場合、非表示状態であってもメモリ上のUndoヒープには膨大な差分データが蓄積される。
メモリリークを防ぐため、置換対象の範囲（Range）を文書全体(`ActiveDocument.Content`)丸ごとに毎回投げるのではなく、必要最小限のセクションやヘッダー・フッターに限定する設計思想が、エンタープライズ環境では求められる。
2. レガシー環境（Word 2003以前）への配慮
もし、保守対象のクライアント環境にいまだにWord 2003（`.doc` 形式や互換モード）が混在している場合、`Application.UndoRecord` は実行時エラー（オブジェクトはサポートされていません）を引き起こす。
このようなレガシー環境とのシームレスな統合を図るためには、実行時バインド、あるいはバージョン判定を挟む必要がある。
‘ バージョン安全性のためのラッパー関数例
Private Function IsUndoRecordSupported() As Boolean
‘ Word 2010 (Version 14.0) 以降でのみサポート
If Val(Application.Version) >= 14 Then
IsUndoRecordSupported = True
Else
IsUndoRecordSupported = False
End If
End Function
レガシー環境では `UndoRecord` を諦め、個別の `Undo` メソッドを組み合わせるか、最悪の場合は「実行前に文書のバックアップファイルを自動保存する（スナップショット方式）」というフォールバック戦略をとるのが、プロフェッショナルなアーキテクトの判断と言える。
—
4. チーフアーキテクトからの提言
VBAは「おもちゃのマクロ言語」ではない。正しくアーキテクチャを設計すれば、堅牢な基幹システムのクライアントサイド・プロセッサとして十分に機能する。
今回解説した `UndoRecord` によるトランザクション制御は、ユーザーの「操作ミスに対する心理的安全性」を担保するための極めて重要なピースである。単に動くコードを書く段階を脱し、「ユーザー体験（UX）とデータ整合性を極限まで両立させたコード」を追求することこそが、我々シニアエンジニアの存在意義なのだ。
現場のコードにただちにこのパターンを組み込み、稚拙なマクロから脱却せよ。
