Word VBAを掌握する：コメント抽出の極致とオブジェクト管理の流儀
レビュー業務の「魔境」であるWordコメントの集計。これを手作業で行うのは、Excelの行を数えるために顕微鏡を覗くようなものだ。シニアエンジニアであれば、この程度のタスクは一瞬で終わらせ、システムの堅牢性に投資すべきである。
今回は、単に「コメントを抜き出す」だけのコードではない。大規模文書におけるメモリリークを防ぎ、Late Bindingを駆使して環境依存を排除し、Excelとのプロセス間通信を極限まで最適化したアーキテクチャを提示する。
—
1. 勘所：Commentオブジェクトのライフサイクルと範囲
Wordの `Comments` コレクションを扱う際、初心者は `For Each` 文で安易に回しがちだが、これには罠がある。文書の修正や外部更新が絡む環境では、オブジェクトの参照が不整合を起こす可能性があるからだ。
また、`Range` オブジェクトはメモリを食う。ループ内で生成される `Range` を適切にハンドリングしなければ、長大な文書ではパフォーマンスが著しく低下する。
2. 実装の設計思想：プロセス間連携の鉄則
今回、WordからExcelを操作するにあたり、以下の設計思想を貫く。
1. Late Binding（遅延バインディング）の採用: 参照設定に頼らない。これにより、クライアントPCのOfficeバージョン差異を吸収し、「DLLが見つかりません」という初歩的な事故を撲滅する。
2. オブジェクトの明示的解放: `Set obj = Nothing` は儀式ではない。WordとExcelという別々のプロセス空間でメモリを共有する以上、参照カウントを確実にゼロに戻すことが、安定稼働の絶対条件だ。
3. Rangeの再利用: インスタンスを乱立させず、プロパティアクセスを最小化する。
—
3. 究極のコメント抽出スクリプト
以下のコードをWordの標準モジュールに実装せよ。
Option Explicit
‘ ———————————————————
‘ Word内の全コメントをExcelへ一括出力するプロシージャ
‘ メモリ管理を徹底した設計
‘ ———————————————————
Public Sub ExportCommentsToExcel()
Dim wdDoc As Document
Dim wdComm As Comment
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim i As Long
Set wdDoc = ActiveDocument
‘ Excelをプロセス起動 (Late Binding)
On Error Resume Next
Set xlApp = GetObject(, “Excel.Application”)
If xlApp Is Nothing Then
Set xlApp = CreateObject(“Excel.Application”)
End If
On Error GoTo 0
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
‘ ヘッダーの初期化
With xlSheet
.Cells(1, 1).Value = “ページ”
.Cells(1, 2).Value = “作成者”
.Cells(1, 3).Value = “コメント内容”
.Cells(1, 4).Value = “対象テキスト”
End With
‘ コメントの抽出：インデックスベースでの走査
‘ Rangeの生成を最小限に抑える
i = 2
For Each wdComm In wdDoc.Comments
With xlSheet
.Cells(i, 1).Value = wdComm.Scope.Information(wdActiveEndAdjustedPageNumber)
.Cells(i, 2).Value = wdComm.Author
.Cells(i, 3).Value = wdComm.Range.Text
.Cells(i, 4).Value = wdComm.Scope.Text
End With
i = i + 1
Next wdComm
‘ 後処理：オブジェクトの明示的解放
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Set wdDoc = Nothing
MsgBox “抽出完了”, vbInformation
End Sub
—
4. エンジニアが意識すべき「深淵」
なぜ `GetObject` と `CreateObject` を併用するのか？
`GetObject` を先に試行するのは、既に開いているExcelプロセスにフックすることで、不要なメモリ消費を抑えるためだ。これはサーバーサイドや高負荷な端末での自動化において、プロセス数＝リソース消費量を制御する定石である。
大規模文書への対応
もし文書が数千ページに及ぶ場合、`wdComm.Scope.Text` へのアクセスはコストが高い。必要であれば、一度 `Range` を変数に代入してからアクセスする方が、DOM操作回数を削減でき、高速化が期待できる。
レガシー環境での保守性
コード内に `Early Binding`（参照設定）を記述すると、配布先でコンパイルエラーが頻発する。「Word 2010」と「Microsoft 365」が混在する社内環境において、Late Bindingは最強の防波堤となる。
最後に：伝説を継ぐ者へ
VBAはレガシーではない。「OSの深層まで操作できる軽量なスクリプトエンジン」である。
今回提供したコードは、あくまで「雛形」だ。これを土台に、コメントのタイムスタンプ取得や、特定のレビューアのみを抽出するフィルタリング機能を追加し、君のワークフローを自動化の領域まで引き上げてほしい。
技術は、使う者の意志によってのみ、真の価値を発揮する。期待している。
