Word VBAの「不可逆な破壊」を防ぐ：UndoRecordで実装するプロフェッショナルな書式制御
Word VBAでドキュメントを操作する際、多くの開発者が陥る「最大の罠」がある。それは、「数千行に及ぶ書式変更が、Ctrl+Zを連打しても1つずつしか戻らない」という事態だ。
ユーザーにとって、マクロ実行後の「Ctrl+Z」が機能しない、あるいは100回連打しなければ元の状態に戻らないツールは、もはや「バグ」と同義である。これを解消し、大規模な段落・フォント操作を「一連のアトミックな操作」としてUndoスタックに登録する技術。それこそが、アマチュアとプロを分かつ境界線だ。
今回は、`UndoRecord` オブジェクトを掌握し、堅牢な業務自動化ツールを構築するための設計思想を伝授する。
—
1. なぜ「個別の書式変更」はUndoスタックを汚染するのか
Word VBAで `Paragraph.Range.Font.Name = “MS 明朝”` のように記述すると、Word内部では個別のイベントとしてスタックに積まれる。ループ内で1,000回この処理を行えば、Undoスタックは1,000個のゴミで埋め尽くされる。
これを回避するために必要なのが、`UndoRecord` オブジェクトである。このオブジェクトは、「開始から終了までの全処理を、一つの不可分なトランザクションとしてWordのUndoエンジンに認識させる」役割を持つ。
—
2. 堅牢な実装設計：UndoRecordのライフサイクル
UndoRecordは、単に `StartCustomRecord` を呼べばいいわけではない。例外発生時に「記録が閉じられない」という最悪の事態（スタックの汚染・ハングアップ）を避けるため、必ず `Try…Finally` 的な構造をVBAで構築する必要がある。
プロダクションコード：一括装飾テンプレート
‘ @brief 段落スタイルを一括変換し、Ctrl+Zで一括復元可能にする関数
Public Sub ApplyProfessionalFormatting()
Dim ur As UndoRecord
Set ur = Application.UndoRecord
‘ 処理開始：Undoスタックへの記録を開始
ur.StartCustomRecord “一括書式設定の適用”
On Error GoTo ErrorHandler
‘ — 実際の業務処理 —
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
‘ パフォーマンスを意識し、変更が必要な場合のみプロパティに触れる
If para.Style = “標準” Then
With para.Range
.Font.Name = “游明朝”
.Font.Size = 10.5
.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
End With
End If
Next para
‘ 処理成功：記録を終了
ur.EndCustomRecord
Exit Sub
ErrorHandler:
‘ 異常終了時の安全装置：記録がスタックに残らないようにする
If ur.IsRecordingCustomRecord Then
ur.EndCustomRecord
End If
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End Sub
—
3. 実務で勝つための「3つの極意」
① 「ScreenUpdating」との併用が必須
`Application.ScreenUpdating = False` を併用しないコードは、実行速度が致命的に遅い。しかし、`UndoRecord` を使っている場合、画面描画を止めてもUndoスタックの生成には影響がない。むしろ、処理速度を向上させつつ、ユーザーには「一瞬で完了した」ように見せるのがUI/UXの基本である。
② 大規模データとデータベース連携の注意点
外部のデータベース（ExcelやSQL Server）から取得したデータをWordに流し込む際、データ件数が多いとWordのUndoスタックがメモリを圧迫する。
- 対策: 1,000以上の段落を処理する場合、`UndoRecord` を適宜区切るか、あるいは「処理前に元に戻す手段（バックアップファイル作成など）」を検討すること。Undoスタックは万能ではない。
③ オブジェクトの参照は最小限に
`para.Range.Font` へのアクセスはWordにとって非常にコストが高い操作だ。ループ内で何度もアクセスせず、一度の参照で済ませるか、スタイル（Styleオブジェクト）側で制御して「段落の属性」として一括変更することを推奨する。Wordの処理速度は、「どれだけオブジェクトのプロパティを読み書きしたか」に直結する。
—
4. 結論：プロのコードは「元に戻せる」
あなたが書いたコードが、ユーザーのPCで「Ctrl+Z」を一回押しただけで、1,000行の変更をなかったことにできるか。これが、その自動化ツールが「生産性を向上させる武器」になるか、「データの破壊者」になるかの分かれ道だ。
`UndoRecord` を適切に配置し、エラーハンドリングを怠らない。この当たり前のことを完璧に実装することこそが、世界最高峰の自動化エンジニアへの第一歩となる。
次は、`ContentControl` を組み合わせた、より高度な動的ドキュメント生成について掘り下げていこう。現場のコードを、さらに洗練させる準備はできているか。
