Word VBAを掌握する極限の知見：Applicationイベントによる保存・印刷の強制監視とガバナンスの鉄壁化
Word VBAにおいて、`ActiveDocument.Save` や `ActiveDocument.PrintOut` のメソッドを叩くだけのコードは、プロトタイピングの域を出ない。エンタープライズ環境、あるいは機密情報を扱う法務・金融の現場において、ユーザーの「うっかり」や「意図的なバイパス」を許容するシステムは、設計段階で破綻している。
真のシステムアーキテクトが求めるのは、アプリケーションレベルでの「強制的な介入と監視」だ。
今回は、`Application` オブジェクトのイベントハンドラを極限まで活用し、文書の保存（Save）および印刷（Print）のライフサイクルをインターセプトし、組織のポリシーに違反した操作を物理的にブロックするアーキテクチャを解説する。
—
1. なぜ「Documentイベント」ではなく「Applicationイベント」なのか？
多くの初学者は、`ThisDocument` モジュールに書ける `Document_Close()` や `Document_Open()` で満足する。しかし、これらは対象文書がアクティブなときにしか機能せず、ユーザーが複数の文書を開いた際や、アドイン（.dotm）からグローバルに監視をかけたい場合には無力だ。
エンタープライズ・ガバナンスを構築するためには、Wordアプリケーション全体のライフサイクルを監視する `Application` イベントを捉えなければならない。
これには、以下の2つのステップが必要となる。
1. `WithEvents` キーワードを持つクラスモジュールによるイベントのルーティング
2. `AutoExec` またはアドイン読み込み時のクラスインスタンスのフック（メモリ上への常駐）
—
2. 実装アーキテクチャ：イベント監視クラスの構築
まずは、Word全体のイベントをフックするためのクラスモジュールを構築する。
VBAのIDEで新しいクラスモジュールを追加し、名称を `CWordEvents` とする。
‘ ==============================================================================
‘ クラスモジュール名: CWordEvents
‘ 概要: Wordのアプリケーションイベントをキャプチャし、保存・印刷を制御する
‘ ==============================================================================
Option Explicit
‘ WithEventsキーワードにより、Applicationオブジェクトのイベントを購読する
Public WithEvents App As Word.Application
‘ — 文書保存前のイベント —
Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
On Error GoTo ErrorHandler
‘ 【ポリシー例1】機密文書の「名前を付けて保存（SaveAsUI = True）」を禁止する
If IsConfidentialDocument(Doc) And SaveAsUI Then
MsgBox “セキュリティポリシー違反です：この機密文書は名前を付けて保存できません。”, vbCritical, “ガバナンス監視システム”
Cancel = True ‘ 処理を完全に取り消す
Exit Sub
End If
‘ 【ポリシー例2】必須メタデータ（カスタムプロパティなど）の存在チェック
If Not ValidateMetadata(Doc) Then
MsgBox “メタデータが不足しています。作成者と承認者をプロパティに入力してください。”, vbExclamation, “保存ブロック”
Cancel = True
Exit Sub
End If
Exit Sub
ErrorHandler:
‘ イベント内での予期せぬエラーはWord全体をクラッシュさせる危険があるため必ずトラップする
MsgBox “保存監視モジュールでエラーが発生しました: ” & Err.Description, vbCritical
Cancel = True
End Sub
‘ — 文書印刷前のイベント —
Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
On Error GoTo ErrorHandler
‘ 【ポリシー例3】「社外秘」ウォーターマークや特定のプロパティがない場合の印刷ブロック
If Not Doc.CustomDocumentProperties(“Reviewed”).Value Then
MsgBox “未承認の文書は印刷できません。”, vbCritical, “印刷セキュリティ”
Cancel = True
Exit Sub
End If
Exit Sub
ErrorHandler:
Cancel = True
End Sub
‘ — 補助関数：機密文書判定 —
Private Function IsConfidentialDocument(ByVal Doc As Document) As Boolean
‘ ファイル名や特定文字列、またはビルトインプロパティで判定
If InStr(1, Doc.Name, “CONFIDENTIAL”, vbTextCompare) > 0 Then
IsConfidentialDocument = True
Else
IsConfidentialDocument = False
End If
End Function
‘ — 補助関数：メタデータ検証 —
Private Function ValidateMetadata(ByVal Doc As Document) As Boolean
On Error Resume Next
Dim authorProp As String
authorProp = Doc.BuiltInDocumentProperties(wdPropertyAuthor)
If Len(Trim(authorProp)) = 0 Then
ValidateMetadata = False
Else
ValidateMetadata = True
End If
On Error GoTo 0
End Function
—
3. グローバルスコープでのインスタンス保持（メモリ管理の極意）
VBAの最大の罠は、プロシージャ内で生成したクラスインスタンスが、プロシージャ終了と共にメモリから解放（ガベージコレクション）される点にある。これにより、イベントが突然動かなくなる現象が発生する。
これを防ぐため、標準モジュールでグローバル変数を宣言し、Word起動時にインスタンスを永続化させる必要がある。
標準モジュールを1つ追加し、以下のコードを記述する。
‘ ==============================================================================
‘ 標準モジュール名: MdlAppInitializer
‘ 概要: イベント監視クラスのインスタンスを保持し、ライフサイクルを管理する
‘ ==============================================================================
Option Explicit
‘ アプリケーションイベントをフックするクラスのグローバルインスタンス
Public MonitoredApp As CWordEvents
‘ Word起動時（またはアドイン読み込み時）に自動実行される
Public Sub AutoExec()
InitializeWordEvents
End Sub
Public Sub InitializeWordEvents()
‘ 既にインスタンス化されている場合は二重生成を防ぐ
If MonitoredApp Is Nothing Then
Set MonitoredApp = New CWordEvents
‘ Applicationオブジェクトを紐付ける
Set MonitoredApp.App = Word.Application
End If
End Sub
‘ Word終了時やアドインアンロード時のクリーンアップ
Public Sub AutoExit()
Set MonitoredApp = Nothing
End Sub
このアーキテクチャにより、ユーザーがどのようなルート（リボン、ショートカットキー `Ctrl + S`、VBAマクロ、クイックアクセスツールバー）から保存や印刷を試みようとも、`Cancel = True` が発行された時点で処理は必ず水泡に帰す。
—
4. チーフアーキテクトからの実践的警告と高度な回避策
この手法を導入するにあたり、現場のエンジニアが直面する「罠」と、それを突破するための実践的知見を共有する。
1. デバッグ時の無限ループとイベント連鎖
イベントプロシージャ内で、誤って `Doc.Save` などのメソッドを呼び出すと、無限に `DocumentBeforeSave` が再帰呼び出しされ、Wordがスタックオーバーフローで強制終了する。イベントハンドラ内では、対象文書の状態変更（プロパティ書き換え等）は最小限に留め、保存・印刷メソッドの自社内からの直接呼び出しは厳禁である。
2. マクロ無効（Disabled）環境への対策
この仕組みはVBA（マクロ）に依存しているため、ユーザーが「マクロを無効にして開く」を選択した場合、イベント監視は機能しない。
真のセキュリティ担保が必要な場合は、Word単体のVBAに頼るのではなく、COMアドイン（VSTO / C# によるWord Add-in）を開発し、`DocumentBeforeSave` イベントに相当するネイティブイベントをフックする必要がある。VBAによる監視は、あくまで社内標準テンプレート（.dotm）を全社配布し、トラストセンターの設定を強制している環境における「品質・ガバナンス維持」のベストプラクティスである。
3. エラーハンドリングの絶対性
イベント内で未処理のエラーが発生した場合、Wordアプリケーション全体が不安定になるか、最悪の場合ユーザーの作業データが吹き飛ぶ。すべてのイベントプロシージャの先頭には `On Error GoTo` を記述し、例外時には必ず `Cancel = True` と適切なユーザー通知を行わせるフェイルセーフ設計を徹底すること。
—
5. 結び
VBAはレガシーな言語と揶揄されることがあるが、オブジェクトモデルの挙動とイベントライフサイクルの機序を完全に掌握していれば、エンタープライズレベルの強固な入力・出力制御システムを構築できる。
コードを書くのではない。アプリケーションの挙動を「支配」するのだ。
この知見が、あなたの管理するシステムの品質を極限まで高める一助となることを確信している。
