【Word VBA】置換の「元に戻す」を制御せよ：UndoRecordが分かつプロとアマの境界線
Word VBAでドキュメントを自動処理する際、多くの開発者が陥る「初歩的な罠」がある。それは、「数千回の置換処理を、数千回の『元に戻す（Ctrl+Z）』操作で台無しにする」という惨事だ。
あなたが構築したツールが、一度の誤操作でユーザーの「Ctrl+Z連打」を強いるものだとしたら、それは自動化ツールではなく「爆弾」に過ぎない。
今日は、Wordのドキュメント履歴を掌握し、複雑な置換処理を一撃で制御下に置くための「UndoRecord」の実装術を伝授する。
—
なぜ、UndoRecordを使わないコードは「未完成」なのか
VBAで `Find.Execute Replace:=wdReplaceAll` を繰り返すと、Wordは内部的にその一つひとつの処理をヒストリースタックに積み上げる。ユーザーが誤ってCtrl+Zを押した瞬間、置換の「一部」だけが戻り、ドキュメントは中途半端な状態で破壊される。
プロフェッショナルなアーキテクトとして言いたい。「処理の原子性（Atomicity）」を担保できないコードは、実務レベルではゴミである。
`UndoRecord` オブジェクトを適切に配置することで、一連の処理全体を単一のイベントとしてWordに認識させることができる。これにより、ユーザーは「Ctrl+Z」を一度押すだけで、あなたのツールが実行した処理のすべてを「なかったこと」にできる。これが、堅牢なツールに求められるUXだ。
—
実装：UndoRecordによる「処理のパッケージング」
以下は、実務でそのまま利用可能なテンプレートだ。検索置換のロジックをラップし、安全性を担保する設計になっている。
Option Explicit
‘ ———————————————————
‘ @brief 複数の置換処理を一括でUndo可能にするプロシージャ
‘ ———————————————————
Public Sub ExecuteBulkReplace()
Dim objUndo As UndoRecord
Set objUndo = Application.UndoRecord
‘ 処理を開始。この名前が「元に戻す」の履歴に表示される
objUndo.StartCustomRecord (“一括置換処理ツールによる修正”)
On Error GoTo ErrorHandler
‘ 実際の置換ロジックを呼び出す
Call PerformComplexReplacement
objUndo.EndCustomRecord
Exit Sub
ErrorHandler:
‘ エラー発生時は履歴を確定させずに閉じる（重要）
If Not objUndo Is Nothing Then objUndo.EndCustomRecord
MsgBox “エラーが発生しました。処理は中断されました。” & vbCrLf & Err.Description, vbCritical
End Sub
Private Sub PerformComplexReplacement()
Dim rng As Range
Set rng = ActiveDocument.Content
‘ 検索と置換のロジック
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “旧用語”
.Replacement.Text = “新用語”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
‘ … ここに他のプロパティを記述
.Execute Replace:=wdReplaceAll
End With
‘ 必要に応じて、ここからさらに別の置換や処理を繋げても、
‘ 一つのUndo操作としてグループ化される
End Sub
—
プロフェッショナルの視点：設計上の注意点
この実装を導入する際、以下の3点を意識してほしい。これらが保守性の明暗を分ける。
1. エラーハンドリングの徹底
上記のコードで最も重要なのは `ErrorHandler` 内の `EndCustomRecord` だ。万が一、途中でランタイムエラーが発生した場合、`UndoRecord` を閉じずに放置すると、Wordの操作履歴システム全体が不安定になる。必ずクリーンアップを行うこと。
2. 正規表現（Wildcards）との併用
`Find.MatchWildcards = True` を使う際は、検索文字の構成に注意が必要だ。正規表現の誤りは、一括置換において取り返しのつかない汚染を引き起こす。必ず `StartCustomRecord` 前に、テストドキュメントでの検証を行え。
3. パフォーマンスのトレードオフ
数万回以上の置換を行う場合、`UndoRecord` はメモリを消費する。大規模な処理を行う際は、`Application.ScreenUpdating = False` を併用し、描画負荷を抑えるのが定石だが、`UndoRecord` の前後関係を崩さないよう注意すること。
最後に：なぜ「やりすぎ」なほど細部を詰めるのか
世の中のほとんどのVBAツールは、初めは便利でも、半年後には「怖くて誰も触れないツール」に成り下がる。理由はシンプルで、「ユーザーの失敗を想定していないから」だ。
「元に戻す」を完璧に制御することは、単なる機能要件ではない。ツールを使うユーザーに対し、「あなたの作業は私が守る」という信頼を提示する行為なのだ。
今日からあなたのコードに `UndoRecord` を組み込みなさい。その一行が、あなたのツールを「趣味のスクリプト」から「現場で信頼されるプロダクト」へと変貌させるはずだ。
