こんにちは！シニアアーキテクトの私です。
普段、Excelの自動化ばかりが注目されがちですが、実はWord VBAの世界も非常に奥深く、そしてエレガントな自動化が可能です。
「マクロの記録」ボタンを押してコードを生成する時代はもう終わり。今回は、一歩進んで「Wordの表（Table）の変更をリアルタイムで監視し、ログを記録するイベント駆動型VBA」という、実務で圧倒的な差がつく最先端のテクニックを伝授します。
「ここをクリアすれば、Word VBAの基本はバッチリですよ！」
さあ、泥臭い手作業とは今日でお別れです。プロフェッショナルな世界へ一緒に踏み出しましょう。
—
1. なぜ「イベント駆動型」なのか？（基本概念の理解）
通常、Wordマクロといえば「ボタンを押したら動く」「実行マクロを指定して走らせる」という受動的なものです。しかし、真の業務自動化システムは「ユーザーが何かをした瞬間、システムが自発的に動く（イベント駆動）」ものでなければなりません。
Excelには `Worksheet_Change` という非常に有名なセル変更イベントがありますが、実はWordにも、文書内の操作をトリガーにするイベントが存在します。
今回はその中でも、表のテキストや数値が書き換えられた瞬間を捉えるために、「コンテンツコントロール（Content Control）」というWord独自の強力な部品と、終了時イベントである `Document_ContentControlOnExit` を組み合わせます。
—
2. 全体像の設計とアプローチ
今回の実装の流れはこうです。
1. Word文書上に「表」を作成し、そのセルの中に「リッチテキスト（またはプレーンテキスト）コンテンツコントロール」を配置する。
2. ユーザーがそのセルの値を書き換えてフォーカスを外した（Exitした）瞬間をイベントで捕捉する。
3. 変更されたセルの位置（行・列）と、古い値・新しい値を自動的に取得する。
4. 文書内の別の場所（または別シート・別ファイル、今回は分かりやすく同文書内のログエリア）にタイムスタンプ付きで履歴を記録する。
—
3. 実装のステップ：コードを書く前の準備
まずはWordの画面で開発タブを表示させましょう。
（「ファイル」>「オプション」>「リボンのユーザー設定」から「開発」にチェックを入れてください）
次に、ドキュメントのどこかに、
- データ入力用の表（例: 3行3列）
- 変更履歴を出力するためのテキストエリア（またはログ用の表）
を用意します。
—
4. 伝説のチーフアーキテクトが贈る！実用VBAコード
ここからが本番です。Word VBAのエディタ（`Alt + F11`）を開き、`ThisDocument` モジュールに以下のコードを貼り付けてください。
> ⚠️ 超重要ポイント: 標準モジュール（Module1など）ではなく、必ず `ThisDocument` に記述してください。文書イベントは `ThisDocument` に書くことで初めて機能します。
Option Explicit
‘ =====================================================================
‘ テーマ: Word表の変更をリアルタイムで監視し、ログを記録するイベント駆動型VBA
‘ 著者: チーフアーキテクト
=====================================================================
‘ ユーザーがコンテンツコントロールからフォーカスを外した瞬間に発火するイベント
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, ByRef Cancel As Boolean)
Dim targetCell As Cell
Dim tbl As Table
Dim logTable As Table
Dim rowIdx As Long, colIdx As Long
Dim currentVal As String
Dim oldVal As String
On Error GoTo ErrorHandler
‘ 1. 操作されたコントロールが「表の中」にあるか判定
‘ （表外のコントロールであれば何もしない）
If ContentControl.Range.Information(wdWithInTable) = True Then
‘ セルとテーブルのオブジェクトを取得
Set targetCell = ContentControl.Range.Cells(1)
Set tbl = targetCell.Range.Tables(1)
‘ 行番号と列番号を取得
rowIdx = targetCell.RowIndex
colIdx = targetCell.ColumnIndex
‘ 変更後の値を取得
currentVal = ContentControl.Range.Text
‘ 【実務的テクニック】
‘ 前回の値を保持する仕組み（今回は簡易的にタグプロパティを利用、またはログから逆引き）
oldVal = ContentControl.Tag
‘ 値が実際に変わっていなければ処理をスキップ
If oldVal = currentVal Then Exit Sub
‘ 2. ログ用テーブルへの書き込み処理
‘ 文書内に「LogTable」という名前のテーブルが存在すると仮定
If ActiveDocument.Tables.Count >= 2 Then
Set logTable = ActiveDocument.Tables(2) ‘ 2番目の表をログ表とする
‘ ログ表の末尾に行を追加
logTable.Rows.Add
‘ ログデータを流し込む（日時、場所、旧値、新値）
With logTable.Rows(logTable.Rows.Count)
.Cells(1).Range.Text = Format(Now, “yyyy/mm/dd hh:nn:ss”) ‘ タイムスタンプ
.Cells(2).Range.Text = “行:” & rowIdx & ” 列:” & colIdx ‘ セル位置
.Cells(3).Range.Text = IIf(oldVal = “”, “(空)”, oldVal) ‘ 変更前の値
.Cells(4).Range.Text = currentVal ‘ 変更後の値
End With
End If
‘ 3. 次回比較のためにTagを新しい値で更新
ContentControl.Tag = currentVal
End If
Exit Sub
ErrorHandler:
MsgBox “ログ記録中にエラーが発生しました: ” & Err.Description, vbCritical
End Sub
—
5. コードの解説と、初心者がハマりやすい罠
このコードには、Word VBAを知り尽くしたエンジニアならではの「安全装置」と「効率化の工夫」が詰まっています。ポイントを解説しましょう。
① `wdWithInTable` による安全な判定
Wordでは、表のセルの中にある要素と、本文にある要素の挙動が大きく異なります。`ContentControl.Range.Information(wdWithInTable)` を使うことで、「今編集されたのが本当に表の中なのか」を安全に判定しています。これを怠ると、表外のコントロールを触ったときに「オブジェクトが必要です」というおなじみのエラーに悩まされることになります。
② `ContentControl.Tag` を活用した「変更前・変更後」の比較
データベースの世界では当たり前の「古い値と新しい値の比較」ですが、Wordのテキストボックス単体では「書き換わる前の値」をデフォルトで保持していません。
そこでこのコードでは、コンテンツコントロールの `Tag` プロパティ（隠しデータ領域のようなもの）を賢く利用し、フォーカスイン時や更新時に「直前の値」を記憶させています。
③ 陥りやすいエラー：標準モジュールに書いてしまうミス
何度も言いますが、文書のイベントは `ThisDocument` モジュール以外では動きません。 「先生、コードをコピペしたのにイベントが発火しません！」という質問の9割が、標準モジュール（Module1など）に書いてしまっていることが原因です。必ずエディタのツリーから `ThisDocument` をダブルクリックして貼り付けてください。
—
6. まとめ：ここをクリアすれば、Word VBAはバッチリ！
いかがでしたでしょうか？
今回は、表のセル変更をリアルタイムで監視し、監査証跡（ログ）として残すという、一歩進んだイベント駆動型のVBAをご紹介しました。
- イベントドリブン（出来事に応じて動く）の概念
- テーブルやコンテンツコントロールのオブジェクト階層構造
- エラーハンドリングと安全な条件分岐
これらをマスターすれば、単なる「文字入力の自動化」を超えた、「ミスを許さない堅牢な業務アプリケーション」をWord上で構築できるようになります。
「ここをクリアすれば、Word VBAの基本はバッチリですよ！」
ぜひご自身の環境でも試して、その感動を味わってみてください。あなたの開発ライフがよりスマートになることを応援しています！
