Word表の変更をリアルタイムで監視し、ログを記録するイベント駆動型VBAの極意
Word VBAにおける「表（Table）」の操作は、Excelのそれに比べて遥かにプリミティブであり、しばしば開発者を絶望の淵に追い込む。セルの参照は遅く、行の追加はドキュメント全体の再描画コストを伴い、何より「ユーザーがいつ、どのセルの値を書き換えたか」を検知する標準的なイベントが存在しない。
一般的なアプローチとしては、定期的なタイマー実行（`Application.OnTime`）によるポーリングや、保存時の差分検知が挙げられる。だが、これらはリアルタイム性に欠け、何よりシニアエンジニアの美学に反する。
今回は、Wordのコンテンツコントロール（Content Control）とドキュメントイベントを巧みに組み合わせ、表のデータ変更をミリ秒単位で捕捉し、トランザクションログとして記録する極限のアーキテクチャを解説する。
—
1. アーキテクチャの全体像：なぜ「コンテンツコントロール」なのか？
Wordの表セルを直接監視するイベントは、APIレベルでも存在しない。セルのテキスト変更をフックするためには、すべてのセルに「リッチテキスト・コンテンツコントロール」を埋め込むというアプローチが必要となる。
コンテンツコントロールには、ユーザーが編集を終えた瞬間に発火する `Document_ContentControlOnExit` イベントが存在する。これを利用することで、「表の動的生成」「セルの結合管理」「変更検知のイベント駆動化」を一つのエコシステムとして統合できる。
さらに、マルチユーザー環境や誤操作による二重発火を防ぐため、イベントの多重発火抑止フラグと、メモリリークを排除した厳格なオブジェクト管理を実装する。
—
2. 実装コード：イベント駆動型ロギング・エンジン
以下のコードは、標準モジュールとクラスモジュール、そしてドキュメントイベント（`ThisDocument`）を組み合わせた、実運用に耐えうるプロダクションコードである。
① `ThisDocument` モジュール（イベントのエントリポイント）
ユーザーがセルの編集を終えてフォーカスを外した瞬間、このイベントが捕捉される。
Option Explicit
‘ =================================================================
‘ 担当: ドキュメントイベントハンドラ
‘ 概要: コンテンツコントロールの離脱イベントを捕捉し、ログエンジンへ転送する
‘ =================================================================
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
‘ 監視対象外のコントロールなら即座に抜ける（タグで識別）
If ContentControl.Tag <> “LoggableTableCell” Then Exit Sub
On Error GoTo ErrorHandler
‘ 変更検知ロジックの呼び出し
Call TableLogEngine.RecordChange(ContentControl)
Exit Sub
ErrorHandler:
MsgBox “ログ記録中に予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “Critical Error”
End Sub
② 標準モジュール：`TableLogEngine`（データ流し込み・動的生成・ログ記録）
ここでは、表の動的生成と同時にセルをコンテンツコントロール化し、変更履歴を別シート（または別ファイル・データベース）の代わりにドキュメント内の不可視領域や別段落へ追記するエンジンを構築する。
Option Explicit
‘ イベントの多重発火・無限ループを防ぐためのセマフォフラグ
Private m_IsProcessing As Boolean
‘ =================================================================
‘ 1. 表の動的生成とコンテンツコントロール化
‘ =================================================================
Public Sub CreateTrackableTable(ByVal targetRange As Range, ByVal rows As Long, ByVal cols As Long)
Dim tbl As Table
Dim r As Long, c As Long
Dim cc As ContentControl
‘ パフォーマンス最適化：画面描画とバックグラウンド再計算を停止
Application.ScreenUpdating = False
Application.Calculation = wdCalculationManual
On Error GoTo CleanUp
‘ 表の作成
Set tbl = targetRange.Tables.Add(Range:=targetRange, NumRows:=rows, NumColumns:=cols)
tbl.Borders.Enable = True
‘ 各セルにコンテンツコントロールを埋め込む
For r = 1 To rows
For c = 1 To cols
Dim cellRange As Range
Set cellRange = tbl.Cell(r, c).Range
‘ セル内の段落記号を除外してレンジを調整
cellRange.End = cellRange.End – 1
‘ リッチテキスト・コンテンツコントロールを追加
Set cc = cellRange.ContentControls.Add(wdContentControlRichText, cellRange)
cc.Tag = “LoggableTableCell”
cc.Title = “Row ” & r & “, Col ” & c
cc.Range.Text = “Data_” & r & “_” & c
Next c
Next r
CleanUp:
Application.Calculation = wdCalculationAutomatic
Application.ScreenUpdating = True
If Err.Number <> 0 Then
MsgBox “表の生成に失敗しました: ” & Err.Description, vbCritical
End If
End Sub
‘ =================================================================
‘ 2. 変更ログの記録エンジン
‘ =================================================================
Public Sub RecordChange(ByVal cc As ContentControl)
If m_IsProcessing Then Exit Sub
m_IsProcessing = True
On Error GoTo Finally
Dim logTable As Table
Dim logRow As Row
Dim timestamp As String
Dim cellLocation As String
Dim newValue As String
timestamp = Format(Now, “yyyy-mm-dd hh:nn:ss”)
cellLocation = cc.Title ‘ 以前設定した位置情報
newValue = cc.Range.Text
‘ ログ用テーブルがドキュメント末尾にあるか確認し、なければ作成
Set logTable = GetOrCreateLogTable()
‘ ログ行の追加（パフォーマンスを考慮し、末尾に行を追加）
Set logRow = logTable.Rows.Add
logRow.Range.Cells(1.Range.Text = timestamp
logRow.Range.Cells(2).Range.Text = cellLocation
logRow.Range.Cells(3).Range.Text = newValue
logRow.Range.Cells(4).Range.Text = Environ(“USERNAME”) ‘ 操作者
Finally:
m_IsProcessing = False
End Sub
‘ =================================================================
‘ 3. ログテーブルの取得または初期化
‘ =================================================================
Private Function GetOrCreateLogTable() As Table
Dim doc As Document
Set doc = ActiveDocument
‘ ドキュメントの最後にログ用テーブルが存在するか走査
Dim tbls As Tables
Set tbls = doc.Tables
If tbls.Count > 1 Then
‘ 最後のテーブルをログ用と仮定（実運用ではTagなどで厳密に判定すべき）
Dim lastTbl As Table
Set lastTbl = tbls(tbls.Count)
If lastTbl.Range.Tables(1).Rows(1).Cells(1).Range.Text Like “Timestamp” Then
Set GetOrCreateLogTable = lastTbl
Exit Function
End If
End If
‘ ログテーブルが存在しない場合は新規作成
Dim rng As Range
Set rng = doc.Content
rng.Collapse wdCollapseEnd
rng.InsertParagraphAfter
rng.Collapse wdCollapseEnd
Set GetOrCreateLogTable = doc.Tables.Add(Range:=rng, NumRows:=1, NumColumns:=4)
With GetOrCreateLogTable
.Borders.Enable = True
.Cell(1, 1).Range.Text = “Timestamp”
.Cell(1, 2).Range.Text = “Cell Location”
.Cell(1, 3).Range.Text = “New Value”
.Cell(1, 4).Range.Text = “Operator”
End With
End Function
—
3. シニアエンジニアが押さえるべき極限の最適化ポイント
A. オブジェクトの明示的解放とメモリ管理
VBAはCOMベースの言語であり、マクロ終了時に参照カウントが即座に解放されないケースがある。特に `Range` オブジェクトや `ContentControl` オブジェクトをループ内で大量に生成・破棄すると、Wordのヒープ領域が断片化し、最悪の場合はOLEオートメーションエラー（メモリ不足）を引き起こす。
- 対策: ループ内で使用する変数（`Range`, `ContentControl`, `Row` 等）は、処理の完了ごとに `Set xxx = Nothing` を明示的に行い、VBAのガベージコレクションを助けよ。
B. `ScreenUpdating` と `Calculation` の封鎖
動的表生成コードを見て分かる通り、数行・数列であれば体感できないが、数百行を超える表のセル一つひとつにコンテンツコントロールを埋め込む処理を画面描画有効のまま行うと、Wordは毎回DOM（Document Object Model）の再描画とレイアウト計算走り、実行時間が数十倍に跳ね上がる。
- 対策: 処理の冒頭で `Application.ScreenUpdating = False` と `Application.Calculation = wdCalculationManual` をかけ、トランザクションの最後に必ず元に戻す（エラーハンドラでの復旧を忘れないこと）。
C. 無限ループの防止（セマフォパターン）
イベント駆動型VBA最大の罠が「イベントの連鎖」である。ログを記録する過程でプログラムからセルやドキュメントを書き換えるコードが走ると、それが新たなイベントを引き起こし、スタックオーバーフローやフリーズを誘発する。
- 対策: モジュールレベルの静的フラグ（`m_IsProcessing`）を用いたセマフォ（排他制御）を実装し、イベント処理中の再入を完全にブロックすること。
—
4. レガシー環境・システム間連携への応用
このアーキテクチャの真価は、Word単体で完結しない「外部システム連携」にある。
`RecordChange` プロシージャ内のログ書き込み部分を、ファイル出力（CSVへの追記）や、Windows API経由での名前付きパイプ（Named Pipes）、あるいは `MSXML2.ServerXMLHTTP` を使ったREST APIへの非同期POSTリクエストに置き換えることで、「Wordで作成した仕様書や帳票の変更履歴を、リアルタイムで企業のERPやGit基盤に同期させる」というエンタープライズレベルのシステム連携が実現できる。
VBAを単なる「お絵描きマクロ」で終わらせるか、堅牢な「イベント駆動型エージェント」へと昇華させるか。それは、アーキテクトである君のコードの質にかかっている。
