Word VBAの神髄：BeforeSaveイベントで「文書の守護神」を実装する
こんにちは。現場の最前線でコードを書き続けていると、たまに「マクロの記録」から一歩踏み出し、Wordそのものを制御したいという相談を受けます。
Word VBAにおいて、最もエキサイティングな領域の一つが「イベントハンドラ」です。ボタンを押した時に動くマクロではなく、「Wordが何かをしようとした瞬間に割り込む」という発想。これができると、あなたのマクロは単なるツールから、文書を守る「守護神」へと進化します。
今回は、保存という「最も脆弱な瞬間」を制御し、安全なバックアップを自動生成する極限のテクニックを伝授しましょう。
—
1. なぜ「イベント」を使うのか？
通常、私たちは「ボタンを押してマクロを動かす」という能動的な操作をします。しかし、保存作業のような「ルーチンワーク」は、人間がうっかり忘れるものです。
そこで登場するのが `DocumentBeforeSave` です。これは、ユーザーが「保存」ボタンを押した瞬間にWordが発するシグナルを捕まえ、保存処理が完了する直前に特定の処理を割り込ませるための魔法です。
ここが重要：オブジェクトモデルの階層
Word VBAを制する鍵は、オブジェクトの「階層構造」を理解することです。
- Application: Wordアプリそのもの。ここでイベントを監視します。
- Document: 開いている文書。
- Range: 文書内の具体的な場所（文字、段落など）。
今回は `Application` オブジェクトのイベントを監視することで、どの文書を保存しようとしても、自動的にバックアップが走る仕組みを作ります。
—
2. 構築：Wordの守護神を実装する
この実装には、少しだけ「クラスモジュール」という概念が必要です。通常の標準モジュール（Module1など）ではイベントを受け取れないためです。
手順1：クラスモジュールの作成
1. VBAエディタで「挿入」→「クラスモジュール」を選択。
2. 名前を `AppEventClass` に変更します。
3. 以下のコードを貼り付けます。
‘ クラスモジュール: AppEventClass
‘ Applicationオブジェクトのイベントを制御する核となります
Public WithEvents App As Application
Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
‘ 1. 未入力チェック（メタデータが空なら保存させない）
If Doc.CustomDocumentProperties(“ProjectID”).Value = “” Then
MsgBox “エラー：ProjectIDが未入力です。保存を中断します。”, vbCritical
Cancel = True ‘ 保存をキャンセルする
Exit Sub
End If
‘ 2. バックアップの自動作成
‘ 現在のパスを取得し、同階層のbackupフォルダへ保存
Dim backupPath As String
backupPath = Doc.Path & “\backup\” & Format(Now, “yyyymmdd_hhnnss_”) & Doc.Name
‘ フォルダがない場合は作成する簡易的な防御
If Dir(Doc.Path & “\backup”, vbDirectory) = “” Then MkDir Doc.Path & “\backup”
‘ バックアップとして別名保存
Doc.SaveAs2 FileName:=backupPath, FileFormat:=wdFormatXMLDocument
Debug.Print “バックアップ完了: ” & backupPath
End Sub
手順2：イベントの有効化
次に、Wordを起動した瞬間にこのクラスを有効にする必要があります。「ThisDocument」モジュール（または標準モジュール）に以下を記述してください。
‘ 標準モジュールなど
Dim myApp As New AppEventClass
Sub AutoExec()
‘ Word起動時に自動的にイベント監視を開始
Set myApp.App = Application
End Sub
—
3. なぜこのコードが「強い」のか？
初学者が陥りやすい罠は、「とりあえず動けばいい」というコードです。しかし、この実装にはプロの視点が含まれています。
- `Cancel = True` の活用: 保存を物理的にブロックすることで、データの整合性を強制的に担保しています。
- イベントの独立性: `Doc.SaveAs2` を使う際、本来の保存処理（メインの保存）を邪魔しないよう配慮しています。
- エラーハンドリングの予兆: `Dir` 関数を使ってフォルダの有無を確認しています。実務では「フォルダがないからエラーで止まった」という事故が最も多いため、ここをガードするだけで堅牢性は飛躍的に上がります。
—
4. 陥りやすいエラーと対処法
Q: コードを書いたのに動きません！
A: 最も多い理由は「インスタンスの消滅」です。`myApp` という変数がプロシージャ終了とともにメモリから解放されると、イベント監視も止まります。必ず「モジュールレベルの変数」として宣言し、Word起動時にセットするようにしてください。
Q: 保存がループして無限地獄になりませんか？
A: `DocumentBeforeSave` イベント内で `Doc.Save` を呼ぶと、またイベントが発生して無限ループに陥ります。必ず `SaveAs2` で別名保存するか、フラグ変数を使って「今は自動保存中」であることを制御してください。
—
最後に：エンジニアとしての心得
Word VBAを使いこなすということは、Wordという巨大なアプリケーションの「呼吸」を理解するということです。
今回学んだ「BeforeSave」は、単なる機能拡張ではありません。「ユーザーが誤った操作をしても、システムがそれを未然に防ぐ」という、信頼性の高いシステム設計の第一歩です。
まずはこのコードをコピペして、自分の環境で動かしてみてください。そして、「なぜこのフォルダパス指定なのか？」「なぜ `Cancel` フラグが重要なのか？」を自問自答してみてください。それが、伝説的な自動化エンジニアへの道筋です。
ここをクリアしたあなたは、もう「マクロの記録」に頼る初心者ではありません。Wordを自在に操るアーキテクトの入り口に立っているのです。応援しています。
