Word VBAの「置換」を極める：UndoRecordで操作をプロ級のクオリティへ
こんにちは。業務自動化の世界へようこそ。
日々、Wordの膨大なドキュメントと格闘している皆さん。マクロを動かした後に「あ、ちょっとミスった…」と気づき、Ctrl + Zを連打して冷や汗をかいた経験はありませんか？
Word VBAで「Find（検索）」と「Replace（置換）」を繰り返すと、Wordはその一つひとつの置換操作を「個別の履歴」としてスタックに積み上げます。 100箇所の置換を行えば、Ctrl + Zを100回叩かないと元に戻せない。これは、業務ツールとしては「未完成」と言わざるを得ません。
今日は、この「戻る」という概念を制御し、大量の置換処理を「たった1回の操作」としてWordに認識させる極意をお教えします。
—
1. なぜ「UndoRecord」が必要なのか？
通常、VBAで置換を実行すると、Wordは「置換した」というイベントを細かく記憶します。これをグループ化して、「この処理全体で1つの操作ですよ」とWordに教えるための機能が `UndoRecord` オブジェクトです。
これを使うと、どんなに複雑な処理であっても、ユーザーは「Ctrl + Z」を1回押すだけで、マクロ実行前の完璧な状態へ一瞬で引き戻すことができます。これは、単なる親切心ではなく、「システムの堅牢性」を担保するための必須知識です。
—
2. 【実装編】UndoRecordの魔法
まずは、具体的なコードを見てみましょう。このパターンをテンプレートとして持っておくだけで、あなたのマクロの信頼性は劇的に向上します。
Sub ProfessionalReplace()
‘ UndoRecordオブジェクトの宣言
Dim undo As UndoRecord
Set undo = Application.UndoRecord
‘ 処理の開始を宣言。引数には「戻るボタンに表示される名前」を指定
undo.StartCustomRecord “一括置換処理を実行”
‘ ここから実際の置換処理
On Error GoTo ErrorHandler ‘ エラー発生時に記録を閉じないとWordが不安定になるため
Dim rng As Range
Set rng = ActiveDocument.Content
With rng.Find
.ClearFormatting
.Text = “旧用語”
.Replacement.Text = “新用語”
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll ‘ 全置換
End With
‘ 処理終了を宣言
undo.EndCustomRecord
Exit Sub
ErrorHandler:
‘ エラーが発生しても記録を確実に終了させる
undo.EndCustomRecord
MsgBox “エラーが発生しました。” & Err.Description
End Sub
—
3. コードの心臓部を読み解く
このコードで重要なポイントは3つです。
1. `undo.StartCustomRecord “名前”`:
Wordに「これから特別な記録を始めるぞ。この名前を『元に戻す』の履歴リストに表示してくれ」と命令します。
2. `On Error GoTo` による保護:
もし処理の途中でエラーが起きると、`EndCustomRecord` が実行されず、WordのUndoスタックが壊れたままになります。必ずエラーハンドリングをセットで書いてください。
3. `undo.EndCustomRecord`:
記録を閉じます。これ以降の操作は、また通常の個別操作として記録されます。
—
4. 陥りやすい罠：Findの「ワイルドカード」
中級者へのステップアップとして、もう一つだけ。「ワイルドカード（正規表現のようなもの）」を使って置換する場合、特に注意が必要です。
ワイルドカード検索は非常に強力ですが、範囲設定（Range）の扱いを間違えると、ドキュメントの末尾から先頭へループし続け、無限ループに陥ることがよくあります。
- 鉄則: `rng.Find.Execute` を実行した後は、必ず `rng` オブジェクトが「置換後の文字列」を含んでいることを確認し、検索範囲を正しく再定義してください。
‘ 正規表現的な置換のコツ
With rng.Find
.MatchWildcards = True ‘ ワイルドカード有効化
.Text = “([0-9]{4})年” ‘ 4桁の数字＋年
.Replacement.Text = “\1年度”
.Execute Replace:=wdReplaceAll
End With
—
最後に：プロのエンジニアを目指す君へ
Word VBAにおいて、「ただ動くコード」を書くのは簡単です。しかし、「使う人が安心して使えるコード」を書くのは、こうした細やかな配慮ができる者にしか許されない領域です。
`UndoRecord` を使いこなすということは、あなたの作ったツールがWordという巨大なアプリケーションの一部として、正しく振る舞うことを意味します。
まずは今日紹介したテンプレートをコピーして、自分のマクロに組み込んでみてください。「Ctrl + Z」で一発で戻る快感を知れば、もう以前のような書き方には戻れないはずです。
ここをクリアしたあなたは、もう初心者ではありません。自信を持って、より高度な自動化の世界へ突き進んでください。応援しています！
