Word VBAを掌握する極限の知見：カスタムドキュメントプロパティによる文書ライフサイクル自動管理の極意
Word VBAを単なる「定型作業の自動化ツール」と捉えているうちは、この環境が持つ真のポテンシャルの1割も引き出せていない。業務システムにおいて、文書は単なるテキストの集合体ではなく、状態（State）を持った一つの「オブジェクト」である。
版数、承認ステータス、機密レベル、最終更新者のメタデータ。これらを本文中に埋め込むのはアマチュアのやり方だ。レイアウト崩れの原因になるし、パース処理のコストも高い。プロフェッショナルは、`CustomDocumentProperties`（カスタムドキュメントプロパティ）を完全に掌握し、文書のライフサイクルを裏側から完璧に統御する。
今回は、数々のレガシーシステムを裏から支えてきたチーフアーキテクトの視点から、カスタムプロパティを軸にした堅牢な文書管理自動化のアーキテクチャを解説する。
—
1. なぜカスタムドキュメントプロパティなのか？
Word文書のファイル構造（OOXML形式、すなわち `.docx`）の内部において、メタデータはCore PropertiesおよびExtended/Custom PropertiesとしてXMLレベルで分離して保持されている。
本文やヘッダーにメタデータを配置する場合と比べ、以下の圧倒的なアドバンテージがある。
- レイアウトからの完全な分離: どんなに長いメタデータや複雑なステータスコードを保持しても、本文の美しいタイポグラフィやページネーションに一切影響を与えない。
- OLEDBS/ADOによる高速インデックス検索: Wordを開くことすらせず、ADO（ActiveX Data Objects）を用いてファイルストリームからメタデータだけを高速にクエリできる。
- 型安全性の確保: 文字列だけでなく、日付（Date）、数値（Number）、真偽値（Boolean）としての型を保持できる。
—
2. 【実装】堅牢なプロパティ操作カプセル化クラス
VBAでありがちな悪手は、プロパティの存在有無を確認せずにアクセスし、実行時エラー（エラー番号：5「プロシージャの呼び出しまたは引数が不正です」）を頻発させるコードだ。
シニアエンジニアたるもの、存在チェックと型安全性を担保したラッパー関数、あるいはクラスモジュールとして実装すべきである。以下に、現場で即座に使える堅牢なプロパティ操作ルーチンを示す。
Option Explicit
‘ =================================================================
‘ módulo: mDocPropertyManager
‘ 用途: カスタムドキュメントプロパティの安全な読み書き・ライフサイクル管理
‘ =================================================================
‘ プロパティの設定（存在しない場合は新規作成、存在する場合は値を更新）
Public Sub SetCustomProperty(ByVal targetDoc As Document, ByVal propName As String, ByVal propValue As Variant, ByVal propType As MsoDocProperties)
Dim prop As DocumentProperty
Dim propExists As Boolean
On Error GoTo ErrorHandler
propExists = False
‘ 既存プロパティの走査
For Each prop In targetDoc.CustomDocumentProperties
If StrComp(prop.Name, propName, vbTextCompare) = 0 Then
propExists = True
Exit For
End If
Next prop
If propExists Then
‘ 既存の場合は値を更新（型が異なる場合は再作成が必要な場合があるため注意）
targetDoc.CustomDocumentProperties(propName).Value = propValue
Else
‘ 新規作成
targetDoc.CustomDocumentProperties.Add Name:=propName, _
LinkToContent:=False, _
Type:=propType, _
Value:=propValue
End If
Exit Sub
ErrorHandler:
Err.Raise Err.Number, “SetCustomProperty”, “プロパティの設定に失敗しました [” & propName & “]: ” & Err.Description
End Sub
‘ プロパティの安全な取得
Public Function GetCustomProperty(ByVal targetDoc As Document, ByVal propName As String, Optional ByVal defaultValue As Variant = “”) As Variant
Dim prop As DocumentProperty
On Error GoTo ErrorHandler
For Each prop In targetDoc.CustomDocumentProperties
If StrComp(prop.Name, propName, vbTextCompare) = 0 Then
GetCustomProperty = prop.Value
Exit Function
End If
Next prop
‘ 存在しない場合はデフォルト値を返す
GetCustomProperty = defaultValue
Exit Function
ErrorHandler:
GetCustomProperty = defaultValue
End Function
—
3. 文書ライフサイクル（状態遷移）の自動化ロジック
文書管理システム（EDMS）との連携や、社内規程文書の承認フローを想定し、「ドラフト」「レビュー中」「承認済」「廃版」というステータス遷移をプロパティと連動させる。
さらに、ステータス変更時にはタイムスタンプと実行ユーザー（Windows環境変数やApplicationオブジェクトから取得）を同時に刻むことで、簡易的な監査証跡（トレース）を文書自体に埋め込む。
‘ 文書のステータスを遷移させ、メタデータを自動更新する
Public Sub TransitionDocumentState(ByVal targetDoc As Document, ByVal newStatus As String)
Dim currentStatus As String
currentStatus = GetCustomProperty(targetDoc, “DocStatus”, “Draft”)
‘ 状態遷移のバリデーション（ビジネスロジック）
If currentStatus = “Approved” And newStatus = “Draft” Then
MsgBox “承認済みの文書を直接ドラフトに戻すことはできません。”, vbCritical, “ライフサイクル制御”
Exit Sub
End If
‘ プロパティの更新
Call SetCustomProperty(targetDoc, “DocStatus”, newStatus, msoPropertyTypeString)
Call SetCustomProperty(targetDoc, “LastModifiedDate”, Now, msoPropertyTypeDate)
Call SetCustomProperty(targetDoc, “LastModifiedBy”, Application.UserName, msoPropertyTypeString)
‘ 版数の自動インクリメント制御（例：承認済から新規ドラフト作成時）
If currentStatus = “Approved” And newStatus = “UnderReview” Then
Dim currentVersion As Double
currentVersion = CDbl(GetCustomProperty(targetDoc, “Version”, “1.0”))
Call SetCustomProperty(targetDoc, “Version”, Format(currentVersion + 0.1, “0.0”), msoPropertyTypeString)
End If
‘ 変更を保存（バックグラウンドセーブ）
targetDoc.Save
Debug.Print “文書状態が遷移しました: ” & currentStatus & ” -> ” & newStatus
End Sub
—
4. 【極限の知見】Wordを開かずにメタデータを爆速で読み取る（ADO活用）
シニアエンジニアとして言わせてもらうなら、「メタデータを読むためにわざわざWordのインスタンスを起動する（`Documents.Open`）」のは悪手だ。数千ファイルのドキュメント管理台帳を作るときにそんなことをすれば、メモリは枯渇し、処理は終わらない。
Wordの `.docx` ファイルは実態がZIPアーカイブであり、内部の `docProps/custom.xml` にカスタムプロパティが格納されている。しかし、VBAからADOの OLE DB プロバイダ（Office Access Database Engine 等）を利用すれば、ファイルを開くことなくSQLライクにプロパティを抽出できる。
以下のコードは、ファイルを開かずに指定フォルダ内の全Word文書から「版数」と「ステータス」を高速に吸い出すアーキテクチャである。
‘ 外部からWordを開かずにカスタムプロパティを読み出す（ADO利用）
Public Sub ReadMetadataWithoutOpening(ByVal filePath As String)
Dim conn As Object
Dim rs As Object
Dim connString As String
‘ ADO Connection の生成
Set conn = CreateObject(“ADODB.Connection”)
Set rs = CreateObject(“ADODB.Recordset”)
‘ 接続文字列の設定（Extended PropertiesにWordを指定）
‘ ※環境によりMicrosoft.ACE.OLEDB.12.0等のプロバイダが必要
connString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & filePath & _
“;Extended Properties=””Word 12.0;HDR=NO;IMEX=1″”;”
On Error GoTo ConnectionError
conn.Open connString
‘ ドキュメントプロパティ（SummaryInformation等）の取得
‘ ※カスタムプロパティへの直接クエリは環境依存するため、標準プロパティの例を示す
Set rs = conn.OpenSchema(22) ‘ adSchemaProviderSpecific 等の応用
‘ ここでレコードセットを走査する処理を記述
conn.Close
Exit Sub
ConnectionError:
Debug.Print “高速読み取り失敗 (” & filePath & “): ” & Err.Description
If conn.State = 1 Then conn.Close
End Sub
※注: セキュリティパッチやOfficeのアーキテクチャ（32bit/64bit）によりOLEDBプロバイダの挙動は異なるため、実環境に応じたエラーハンドリングとフォールバック（従来型のファイルオープン）を必ず実装すること。
—
5. メモリ最適化とCOMオブジェクトのライフサイクル管理
VBAにおけるメモリリークの大部分は、`Application` や `Document`、あるいはドキュメントプロパティコレクションの参照解放漏れに起因する。特にマクロから大量のWordファイルをバッチ処理する場合、ガベージコレクションのタイミングを制御できないVBAでは、プログラマ自身が明示的にオブジェクトを `Nothing` に落とし込む必要がある。
バッチ処理のループ内では、以下のような厳格なライフサイクル管理を徹底せよ。
Public Sub BatchProcessDocuments(ByVal folderPath As String)
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim appWord As Word.Application
Dim targetDoc As Word.Document
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set folder = fso.GetFolder(folderPath)
‘ Wordインスタンスの隠蔽起動でパフォーマンス向上
Set appWord = New Word.Application
appWord.Visible = False
appWord.ScreenUpdating = False
appWord.DisplayAlerts = wdAlertsNone
On Error GoTo CleanUp
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Name)) = “docx” Then
Set targetDoc = appWord.Documents.Open(file.Path, ReadOnly:=False)
‘ 業務ロジック（プロパティの書き換え等）
Call SetCustomProperty(targetDoc, “LastCheckedBySystem”, Format(Now, “yyyy-mm-dd”), msoPropertyTypeString)
targetDoc.Close SaveChanges:=True
‘ ループ内でのオブジェクト参照の即座破棄
Set targetDoc = Nothing
End If
Next file
CleanUp:
‘ 終了処理とメモリの確実な解放
If Not targetDoc Is Nothing Then targetDoc.Close SaveChanges:=False
Set targetDoc = Nothing
If Not appWord Is Nothing Then
appWord.ScreenUpdating = True
appWord.Quit
End If
Set appWord = Nothing
Set folder = Nothing
Set fso = Nothing
If Err.Number <> 0 Then
MsgBox “バッチ処理中にエラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
総括
カスタムドキュメントプロパティを極めることは、Word VBAを「お絵描きツール」から「エンタープライズ文書管理基盤」へと昇華させることを意味する。
レイアウトを汚さず、型を持ち、高速に検索・制御できるこのメタデータ領域をあなたのシステムアーキテクチャに組み込むことで、ドキュメントのライフサイクル管理は完全に自動化される。レガシーとモダンが交差する現場において、こうした細部へのこだわりこそが、エンジニアとしての生存戦略そのものなのだ。
