【上級者向け】Word VBAで複数置換を1つの「元に戻す（Undo）」にまとめ上げる極限の技術
開発現場でWordの自動化を任されたとき、あなたはこんな壁にぶつかったことはないだろうか。
「数千行のドキュメントに対し、表記ゆれの修正や特殊なタグの置換など、10段階にも及ぶ一連の置換処理をVBAで一気に走らせた。しかし、処理が終わったあとにユーザーが『Ctrl + Z』を押すと、最後の1ステップしか戻らない。あるいは、途中で処理を止めたい・戻したいときに、バラバラの履歴が残ってしまい使い物にならない——」
アマチュアのプログラマは、ここで「Wordの仕様だから仕方ない」と諦める。しかし、世界最高峰の自動化を志す我々エンジニアにとって、ユーザービリティの妥協は死を意味する。
今回は、Word VBAにおけるマクロ実行時のUndo（元に戻す）スタックを完全に支配し、複数の置換処理をひとつの不可分なトランザクションとしてグループ化する極限のテクニックを伝授する。
—
1. なぜ通常のVBA置換は「Ctrl + Z地獄」を生むのか？
Wordの `Find.Execute` メソッド、あるいは `Range.Replace` は、実行されるたびに1つの独立したUndoイベントとしてWordの内部スタックに積み上げられる。
例えば、以下のようなコードを書いたとする。
‘ 【アンチパターン】これではユーザーが泣く
Sub BadReplaceFlow()
Dim i As Long
For i = 1 to 10
Selection.Find.Execute FindText:=”旧ワード” & i, ReplaceWith:=”新ワード” & i, Replace:=wdReplaceAll
Next i
End Sub
このコードを実行すると、Wordの「元に戻す」履歴には10個の独立した操作がバラバラに記録される。ユーザーが誤って一連の処理全体を取り消そうとした場合、`Ctrl + Z` を10回連打しなければならず、場合によってはドキュメントの状態が中途半端な破壊的崩壊を起こす。
データベース操作におけるトランザクション（ACID特性）の概念を思い出してほしい。「すべて成功するか、すべて一括でロールバックできるか」の保証が、大規模なドキュメント処理ツールには不可欠なのだ。
—
2. 救世主：`UndoRecord` オブジェクトの全貌
Word 2010以降（厳密にはWord 2010のOM追加）、MicrosoftはVBA開発者向けに神機能を用意した。それが `UndoRecord` オブジェクト である。
これを使用することで、開発者はWordのUndoスタックをプログラムから明示的に制御し、任意のコードブロックを1つの「不可分の操作（Custom Undo Unit）」としてラップすることができる。
UndoRecordの基本ライフサイクル
Dim undoObj As UndoRecord
Set undoObj = Application.UndoRecord
undoObj.StartCustomRecord (“一括置換トランザクション名”)
‘ — ここに一連の重い処理を記述 —
undoObj.EndCustomRecord
たったこれだけだ。しかし、この裏側の挙動を完全に理解し、堅牢なエラーハンドリングと組み合わせなければ、実務の現場でドキュメントのロックやメモリリークを引き起こす。次章で示すプロダクションコードを見てほしい。
—
3. 【実務仕様】堅牢性を極めた一括置換＆トランザクション制御コード
以下のコードは、単なるサンプルの枠を超え、実務のエンタープライズ環境（大量のドキュメント処理、エラー耐性、画面描画の最適化）を考慮して設計されたプロダクションコードである。
Option Explicit
‘ ==============================================================================
‘ 担当者: チーフアーキテクト
‘ 概要: 複数置換処理を1つのUndo単位にまとめ、アトミックに実行するプロシージャ
‘ ==============================================================================
Sub ExecuteAtomicReplacements()
Dim docTarget As Document
Set docTarget = ActiveDocument
‘ パフォーマンス最適化の鉄則：画面描画とバックグラウンド再計算を停止
With Application
.ScreenUpdating = False
.BackgroundSaving = False
.Options.Pagination = False
End With
‘ UndoRecordのインスタンスを取得
Dim undoRecord As UndoRecord
Set undoRecord = Application.UndoRecord
‘ トランザクションの成否を担保するためのエラーハンドリング
Dim isSuccess As Boolean
isSuccess = False
On Error GoTo ErrorHandler
‘ — 【トランザクション開始】 —
‘ 引数には、ユーザーが「Ctrl+Z」を押したときに履歴として表示される名称を指定する
undoRecord.StartCustomRecord “一括表記ゆれ補正とタグ置換”
‘ ————————————————————————–
‘ 置換ロジック本体（配列を用いた高速置換の例）
‘ ————————————————————————–
Dim replacementList(1 To 3, 1 To 2) As String
‘ 置換ペアの定義 (Col 1: 検索文字列, Col 2: 置換後文字列)
replacementList(1, 1) = “㈱”: replacementList(1, 2) = “株式会社”
replacementList(2, 1) = “㈲”: replacementList(2, 2) = “有限会社”
replacementList(3, 1) = “M&A”: replacementList(3, 2) = “M＆A”
Dim i As Long
Dim rngDoc As Range
Set rngDoc = docTarget.Content
For i = LBound(replacementList, 1) To UBound(replacementList, 1)
With rngDoc.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = replacementList(i, 1)
.Replacement.Text = replacementList(i, 2)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
‘ 一括置換実行
.Execute Replace:=wdReplaceAll
End With
Next i
‘ ————————————————————————–
‘ 正常終了フラグを立てる
isSuccess = True
CleanUp:
‘ — 【トランザクション終了】 —
‘ 必ずエラーハンドラーを通るパスでも実行されるようにする
On Error Resume Next
undoRecord.EndCustomRecord
‘ パフォーマンス設定を復元
With Application
.ScreenUpdating = True
.BackgroundSaving = True
.Options.Pagination = True
End With
If isSuccess Then
MsgBox “すべての置換処理が正常に完了しました。” & vbCrLf & _
“「Ctrl + Z」でこの変更をまとめて取り消すことができます。”, vbInformation, “処理完了”
End If
Exit Sub
ErrorHandler:
‘ 異常系：エラーログの出力とユーザー通知
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “致命的エラー”
‘ トランザクション中にエラーが発生した場合、WordのUndo機構に処理を委ねるか、
‘ 必要に応じてロールバック処理を記述する
isSuccess = False
Resume CleanUp
End Sub
—
4. この設計が「プロフェッショナル」たる理由（アーキテクチャの解説）
単に `StartCustomRecord` を挟むだけではない。このコードには、大規模開発を生き抜くための知見が凝縮されている。
① 画面描画の完全なロック (`ScreenUpdating = False`)
数千行規模のドキュメントに対して複数回の `wdReplaceAll` を回す際、画面描画が生きていると、Wordは描画のたびにCPUとメモリを浪費し、処理速度が数十倍〜数百倍に低下する。さらに、Undoスタックの構築と描画更新が競合すると、予期せぬ画面のちらつきやフリーズを誘発する。これを完全に断ち切っている。
② エラー発生時への備え (`CleanUp` パターン)
VBAで最も恐ろしいのは、処理途中でエラーが発生した際に `StartCustomRecord` が開きっぱなしになり、WordのUndoシステムが破損することだ。上記のコードでは、`On Error GoTo ErrorHandler` から確実に `CleanUp` ラベルへ誘導し、エラーの有無に関わらず `EndCustomRecord` が必ず実行される堅牢な構造（Try-FinallyイディオムのVBA的実装）を採用している。
③ 2次元配列によるメモリ上のデータ駆動
ハードコードされた置換処理をダラダラと並べるのではなく、配列（`replacementList`）にデータを閉じ込め、ループで回す設計にしている。これにより、将来的な置換パターンの追加・外部データベースやCSVからの設定読み込みへの拡張性が劇的に向上する。
—
5. データベースや外部ファイル連携時の注意点
実務において、この置換エンジンをさらに発展させ、「外部のマスターDB（SQL ServerやAccess）から置換辞書を取得して適用するツール」に仕立て上げるケースが多いだろう。その際の注意点を最後に記す。
- トランザクションの粒度の設計:
DB側のトランザクションとWord側の `UndoRecord` は別物である。「DBからデータを取得するフェーズ」「Wordを書き換えるフェーズ」を明確に分離し、Word側の書き換え部分のみを `UndoRecord` でラップすること。
- メモリリークの回避:
大量のレコードセットをループさせて `.Execute` を何百回も回す場合、Wordのオブジェクト変数がメモリ上に残留しやすい。定期的に `DoEvents` を挟むか、レンジオブジェクトを適切に解放（`Set rngDoc = Nothing`）する配慮を忘れてはならない。
—
総括
VBAコードの良し悪しは、「エンドユーザーがどれだけストレスフリーにそのツールを使えるか」で決まる。
今回紹介した `UndoRecord` によるグループ化は、地味ながらもユーザーの「あ、間違えた！」という恐怖心をゼロにする、極めて価値の高いプロフェッショナル・テクニックだ。ぜひ、あなたの開発するツールにこの知見を組み込み、ワンランク上の自動化を実現してほしい。
