こんにちは！いつも業務自動化の設計や実装、本当にお疲れ様です。
「マクロの記録」を使って定型業務を自動化できるようになると、次に欲しくなるのが「ユーザーがミスを犯せない仕組み（ポカヨケ）」ですよね。
「提出前に、特定の項目が未入力なら保存させないようにしたい」
「社外秘マークが入っていない文書の印刷を、水際で食い止めたい」
こうした高度な仕組みは、ボタンを押して実行する普通のマクロ（標準モジュール）では実現できません。Wordが動く「その瞬間」を検知して割り込む、「イベントハンドラ」という技術が必要になります。
今回は、Word VBAのオブジェクトモデルの深淵に触れつつ、実務で今すぐ使える「保存・印刷時の自動品質チェッカー」を一緒に作っていきましょう。
「ここをクリアすれば、Word VBAの基本と本質はバッチリ掴めますよ！」
—
1. なぜ「イベントハンドラ」なのか？パラダイムシフトを体感しよう
まずは頭の整理から始めましょう。
一般的なマクロは、「ユーザーがボタンをクリックした時」に実行されます。これは「能動的なマクロ」です。
しかし、品質管理においては「ユーザーがマクロを実行し忘れたら終わり」という致命的な弱点があります。
そこで登場するのが「受動的（自発的）なマクロ」＝ イベントハンドラです。
Wordというアプリケーションが何かを行う瞬間（イベント）を監視し、その処理の直前にプログラムを割り込ませます。
- 保存しようとした瞬間 ── `Document_BeforeSave`
- 印刷しようとした瞬間 ── `Document_BeforePrint`
これらを使うことで、ユーザーが意識せずとも、裏側で自動的に記述チェックが走り、NGなら「保存や印刷を強制キャンセルする」という強力な水際対策が可能になります。
—
2. 魂の宿る場所：`ThisDocument` モジュール
イベントハンドラを記述する場所は、普段使う「標準モジュール」ではありません。
Word文書そのものを指す `ThisDocument` という特殊なクラスモジュールに記述します。
ここに書くことで、Wordオブジェクトモデル（Application ── Document ── Range）の、まさに「Document」そのもののライフサイクルにプログラムを組み込むことができます。
【図解】コードを記述する場所
1. Wordで `Alt + F11` を押してVBAエディタ（VBE）を開きます。
2. 左側のプロジェクトエクスプローラで、対象の文書内にある `ThisDocument` をダブルクリックします。
3. 開いたコードウィンドウの上部にある左側のドロップダウンから 「Document」 を選択します。
4. 右側のドロップダウンに、利用可能なイベント（`BeforeSave` や `BeforePrint` など）がズラリと並びます。
—
3. 【実戦コード】未入力と特定ルールを強制検知する品質チェッカー
では、具体的なコードを見てみましょう。
今回は、社内ドキュメントでよくある「【未記入】という仮文字が残っていたら、保存も印刷もさせない」というルールを強制するシステムを構築します。
以下のコードを、そのまま `ThisDocument` モジュールに貼り付けてみてください。
Option Explicit
‘ ==========================================
‘ 1. 保存直前に実行されるイベントハンドラ
‘ ==========================================
Private Sub Document_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim hasError As Boolean
‘ 文書内の整合性チェックを実行
hasError = CheckDocumentQuality()
‘ エラーがあれば、保存処理そのものをキャンセルする
If hasError Then
Cancel = True ‘ ★ここが魔法の1行！Wordの「保存処理」を中止します
MsgBox “【保存がキャンセルされました】” & vbCrLf & _
“文書内に未入力、または不適切な表現が含まれています。” & vbCrLf & _
“修正後に再度保存を実行してください。”, vbCritical, “品質管理システム”
End If
End Sub
‘ ==========================================
‘ 2. 印刷直前に実行されるイベントハンドラ
‘ ==========================================
Private Sub Document_BeforePrint(Cancel As Boolean)
Dim hasError As Boolean
‘ 保存時と同じチェックを実行（コードの再利用）
hasError = CheckDocumentQuality()
‘ エラーがあれば、印刷処理をキャンセルする
If hasError Then
Cancel = True ‘ ★印刷処理を中止します
MsgBox “【印刷がキャンセルされました】” & vbCrLf & _
“不完全なドキュメントは印刷できません。” & vbCrLf & _
“修正後に再度印刷を実行してください。”, vbCritical, “品質管理システム”
End If
End Sub
‘ ==========================================
‘ 3. 品質チェックの共通ロジック（Rangeオブジェクトの操作）
‘ ==========================================
Private Function CheckDocumentQuality() As Boolean
Dim docRange As Range
Dim searchWord As String
‘ チェックしたい仮文字を設定
searchWord = “【未記入】”
‘ Document全体のRange（全テキスト）を取得
‘ Wordオブジェクトモデルにおいて、不要なSelect（選択）を避けるのがプロの流儀です
Set docRange = ThisDocument.Content
‘ Findオブジェクトを使って高速に検索
With docRange.Find
.ClearFormatting
.Text = searchWord
.Forward = True
.Wrap = wdFindStop ‘ 範囲の最後までいったら停止
‘ 検索実行（見つかればTrueを返す）
If .Execute Then
‘ 該当箇所にカーソル（選択状態）を移動させ、ユーザーに場所を教える
docRange.Select
CheckDocumentQuality = True ‘ 違反あり
Exit Function
End If
End With
‘ 何も問題がなければFalseを返す
CheckDocumentQuality = False
End Function
—
4. コードの深層解説：なぜこの数行で「極限の制御」ができるのか？
このコードには、Word VBAをマスターする上で欠かせない本質的なエッセンスが詰まっています。先輩として、特に注目してほしいポイントを3つ解説しますね。
① 引数 `Cancel` の正体（ByRef / 参照渡し）
イベントハンドラの定義を見ると、`Cancel As Boolean` という引数があります。
これはVBAの「参照渡し（デフォルトは `ByRef`）」という仕組みを利用しています。
私たちがコードの中で `Cancel = True` と書き換えると、その結果がWordアプリケーション側に返されます。Wordは「おっと、マクロ側から『True（キャンセルして）』と返ってきたな。じゃあ保存（印刷）の処理は中止しよう」と判断するのです。
この1行だけで、アプリケーション本来の挙動を安全に制御できるのが、イベントハンドラの美しさです。
② `ThisDocument.Content` という最高のRange選択
マクロの記録を使うと、画面をスクロールして文字を選択する `Selection.Find` が記録されます。しかし、これは処理が遅く、画面がチラつく原因になります。
プロは画面を動かさず、メモリ上で完結する `Range` オブジェクト（今回の場合は `ThisDocument.Content`）を直接操作します。これにより、何百ページある文書でも一瞬で、スマートにスキャンが完了します。
③ ユーザー体験（UX）への配慮
ただ「保存できません！」と突き放すだけでは、ユーザーは困惑してしまいます。
上記のコードでは、問題が見つかった瞬間に `docRange.Select` を実行し、「問題がある場所にカーソルを自動でジャンプさせる」親切設計にしています。これこそが、業務システムとしての「品格」です。
—
5. 【超重要】Word VBA特有の罠と回避策
ここからは、教科書には載っていない「現場の泥臭いノウハウ」をお伝えします。ここをクリアすれば、あなたはもう立派な上級者です。
罠：Wordには `Application.EnableEvents = False` が存在しない！
Excel VBAをやったことがある人なら、イベントの無限ループを防ぐために `Application.EnableEvents = False` （一時的にイベントを無効化する）をよく使いますよね。
しかし、Word VBAの `Application` オブジェクトには `EnableEvents` プロパティがありません。
例えば、保存イベント（`BeforeSave`）の中で、マクロを使って「文書の変更を自動保存させよう（`ThisDocument.Save`）」と記述したとします。すると、その保存動作が引き金となって、再び `BeforeSave` が呼び出され、無限ループ（最悪の場合Wordがクラッシュ）に陥ります。
回避策：モジュールレベルの「フラグ変数」で自衛する
Wordでイベントの連鎖を防ぐには、以下のように「今、処理中だよ」という情報を保持する変数（フラグ）を自分で用意します。
Private isProcessing As Boolean ‘ モジュールレベルで宣言
Private Sub Document_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
‘ 処理中なら、イベントをスルーする
If isProcessing Then Exit Sub
On Error GoTo ErrorHandler
isProcessing = True ‘ フラグを立てる
‘ ── ここに具体的な処理を書く ──
‘ 例: 自動で何かを書き換えて、再度保存をかけるなど
isProcessing = False ‘ 処理が終わったらフラグを戻す
Exit Sub
ErrorHandler:
isProcessing = False ‘ エラーが起きても必ずフラグを戻す安全設計
End Sub
このように、自前で `isProcessing` というバリアを張ることで、無限ループの罠を完璧に回避できます。
—
6. まとめ：「ボタン不要の世界」へようこそ！
お疲れ様でした！
今回学んだ内容を振り返ってみましょう。
1. イベントハンドラを使えば、保存や印刷といった「ユーザーの自然な動作」にマクロを組み込める。
2. コードは標準モジュールではなく、`ThisDocument` に書く。
3. `Cancel = True` を渡すことで、Wordの標準動作を安全にコントロールできる。
4. Wordには `EnableEvents` がないので、複雑な処理を行う時はフラグ変数で自衛する。
これまで「ボタンを押して動かすマクロ」を作っていた段階から、今回の「Wordの動きとシンクロするマクロ」が書けるようになると、VBAの世界は一気に広がります。
あなたの作ったドキュメントが、まるで意志を持っているかのようにユーザーを優しくナビゲートする──そんな感動的な体験を、ぜひ職場の仲間にも届けてあげてくださいね。
一歩一歩、確実に進んでいきましょう。あなたなら、Word VBAを完全に掌握できますよ！応援しています。
