Word VBAの極致：Undo（元に戻す）を「制御」し、プロのツールへと昇華させる
Word VBAでドキュメントを自動生成・装飾する際、多くの人が一度は直面する壁があります。それは、「実行したマクロが『元に戻す（Ctrl + Z）』ボタンで一括解除できない」という問題です。
マクロが数千の段落を書き換えたとき、ユーザーが「あ、しまった！」とCtrl + Zを押しても、Wordは何も反応しないか、あるいは一動作ずつしか戻せず、結局ドキュメントが破壊されてしまう――。
これは、プロの現場では「許されない仕様」です。今日は、WordのUndoスタックを意図的に制御する魔法のオブジェクト、`UndoRecord`について、その本質を紐解いていきましょう。
—
なぜ「元に戻す」が効かないのか？
Word VBAで `Paragraph.Range.Font.Color = wdColorRed` のようにプロパティを変更すると、Wordはその操作を「独立したイベント」としてスタックに積みます。しかし、マクロ内で数百回ループを回すと、そのすべてが個別のUndoポイントとして記録され、ユーザーが期待する「マクロ実行前の状態」へ一撃で戻すことができなくなります。
これを解決するために登場するのが、`UndoRecord`オブジェクトです。
—
UndoRecordが導く「アトミックな操作」
`UndoRecord`は、コードの開始から終了までの一連の処理を「一つの大きな動作（不可分な操作）」としてWordに認識させるための境界線です。
実装のテンプレート
まずは、この設計パターンを脳に焼き付けてください。
Sub ApplyProfessionalFormatting()
‘ UndoRecordオブジェクトの宣言
Dim objUndo As UndoRecord
Set objUndo = Application.UndoRecord
‘ Undoの開始（名前をつけると履歴に残ります）
objUndo.StartCustomRecord “一括書式設定の適用”
On Error GoTo ErrorHandler
‘ — ここから処理を開始 —
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
‘ 段落単位での高度な装飾
With para.Range.Font
.Name = “游ゴシック”
.Size = 11
.Color = wdColorDarkBlue
End With
Next para
‘ ————————-
‘ 正常終了時は何もしない
GoTo CleanUp
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description
CleanUp:
‘ 処理の終了（ここを忘れるとWordが不安定になるので注意！）
objUndo.EndCustomRecord
End Sub
—
知っておくべき「極限の知見」：3つの鉄則
このコードをただコピペするだけでなく、以下のポイントを理解することが「脱・初心者」への近道です。
1. `EndCustomRecord` は必ず閉じる
エラーハンドラ（`ErrorHandler`）を準備した理由がここです。もし処理の途中でエラーが発生し、`EndCustomRecord`に到達せずにマクロが終了すると、Wordは「どこまでが記録対象か」を見失い、最悪の場合、Wordそのものがフリーズしたり、以降の「元に戻す」機能が完全に壊れたりします。必ず最後に `EndCustomRecord` が呼ばれる構造を作るのが鉄則です。
2. オブジェクトのライフサイクルを意識する
`UndoRecord`は、グローバルな状態を操作するオブジェクトです。マクロ内で別のマクロを呼び出す場合、Undoの入れ子（ネスト）には注意が必要です。基本的には「一つの処理の起点となるプロシージャ」に記述を限定するのが最も安全です。
3. 「マクロの記録」の呪縛を解く
「マクロの記録」で生成されたコードは、`Selection`オブジェクトを多用するため非常に遅く、かつUndoの制御も不安定です。今回のように `Paragraph` オブジェクトを直接操作し、`UndoRecord`で囲う手法こそが、Word VBAを「自動化ツール」から「アプリケーション開発」のレベルに引き上げる第一歩となります。
—
さあ、次はあなたの番です
この `UndoRecord` を組み込むだけで、あなたの作ったツールは、ユーザーにとって「安心感のある信頼できる道具」へと変わります。
「元に戻せないマクロ」は、現場では「リスク」です。しかし、今日学んだこの制御手法を手にすれば、あなたはWordの挙動を意図通りに操るエンジニアへの階段を確実に登っています。
次に挑戦する際は、ぜひ `Application.ScreenUpdating = False` と組み合わせて、処理速度と操作性の両面から最適化してみてください。Word VBAの深淵は、まだまだ先に広がっていますよ。
何か不明点があれば、いつでも聞いてください。共に最高の自動化環境を築き上げましょう！
