Word VBAの極致：Ctrl+Zで「魔法」を取り消す、Undoスタック統合の技術
こんにちは。Word VBAの世界へようこそ。
マクロの記録ボタンを押して生成された、あの冗長で不安定なコードを卒業しようとしているあなたへ。今日は、Word VBAの「格」を一段引き上げる、Undo（元に戻す）スタックの制御という深淵なテーマについてお話しします。
多くの初心者がここで躓きます。「VBAで100箇所の段落を書き換えたら、Ctrl+Zを100回押さないと元に戻せない」。これでは、ユーザーにとって「破壊的なツール」でしかありません。
プロフェッショナルは、「一連の処理を一つの『歴史』としてWordに認識させる」ことができます。さあ、技術の裏側を覗いてみましょう。
—
なぜ「Undoスタック」を意識するのか？
WordのUndoスタックは、ユーザーの「操作単位」を記憶しています。しかし、VBAで `Paragraph.Range.Font.Bold = True` と10回書けば、Wordはそれを「10個の独立した変更」として解釈します。
私たちが目指すのは、「Application.UndoRecord」を利用した、トランザクション管理です。これにより、数千行の変更であっても、Ctrl+Zを一度押すだけで、すべてが「無」に帰す洗練された挙動を実現します。
—
実践：Undoを統合する魔法のメソッド
まずは、最もシンプルかつ強力なコードを見てください。`StartCustomUndoAction` メソッドを使うのが鍵です。
Sub ApplyProfessionalFormatting()
‘ WordのUndoスタックに名前付きの「一塊の操作」として登録する
Dim undoContext As UndoRecord
Set undoContext = Application.UndoRecord
‘ “一括装飾”という名前でUndo履歴を統合する
undoContext.StartCustomUndoAction “段落の一括ハイエンド装飾”
On Error GoTo ErrorHandler
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
‘ ここで複雑な書式設定を行う
With para.Range
.Font.Name = “游明朝”
.Font.Size = 12
.ParagraphFormat.LineSpacingRule = wdLineSpace1.5
End With
Next para
‘ 処理成功時に終了
undoContext.EndCustomUndoAction
Exit Sub
ErrorHandler:
‘ エラーが発生した場合は必ずUndoを終了させないとWordが不安定になる
undoContext.EndCustomUndoAction
MsgBox “エラーが発生しました: ” & Err.Description
End Sub
—
コードの深掘り：なぜこれで「一つ」になるのか？
このコードで重要なのは以下の3点です。
1. `StartCustomUndoAction`: Wordに対し「ここから先は一つの大きな操作ですよ」というフラグを立てます。
2. エラーハンドリングの徹底: もし途中でマクロがクラッシュしたらどうなるでしょうか？Undoスタックが閉じられず、Wordが操作不能に近い状態になることがあります。`On Error GoTo` で囲い、失敗しても必ず `EndCustomUndoAction` を呼ぶのが、プロとしての最低限の流儀です。
3. パフォーマンスの最適化: `ScreenUpdating`（画面更新）をオフにすることで、処理速度は劇的に向上します。
陥りやすい「罠」
- Undoスタックの無限ループ: `StartCustomUndoAction` の中で別のマクロを呼び出し、その中でもさらにUndoを開始しようとすると、ネスト構造が崩れてエラーになります。一つのルーチン内で完結させるのが鉄則です。
- 変更のしすぎ: あまりにも広範囲（例えばドキュメント全体を何万回も書き換える）を一つのUndoにまとめると、Undoスタック自体がメモリを圧迫し、Wordが重くなります。ほどよい粒度を見極めるのもエンジニアの腕の見せ所です。
—
プロのエンジニアからのアドバイス
「マクロの記録」で吐き出されるコードは、常に `Selection` オブジェクトを使います。しかし、`Selection` はカーソル位置に依存するため、実行速度が遅く、かつユーザーの画面をチラつかせます。
本物のツールを作るなら、`Range` オブジェクトを直接操作してください。
`Paragraphs` コレクションをループし、各 `Range` に対して属性を適用する。このアプローチは、Wordの内部エンジンに直接命令を下すようなものであり、圧倒的に高速です。
最後に：ここをクリアすれば、あなたはもう中級者です
今回紹介した「Undoスタックの管理」は、Word VBAという広大な森における、ほんの入り口に過ぎません。しかし、この「ユーザーの期待する挙動（Ctrl+Zで戻れる）」を担保できるかどうかで、あなたが作ったツールの信頼性は雲泥の差になります。
「コードを動かす」段階から、「ユーザー体験を設計する」段階へ。
今日からあなたのコードに `UndoRecord` を組み込んでみてください。それだけで、あなたのVBAは「自作スクリプト」から「業務システム」へと昇華します。
分からないことがあれば、いつでも聞いてください。応援していますよ。
