Word VBAの深淵：ドキュメント・メタデータを制するアーキテクトの矜持
Wordファイルを単なる「文書」と捉えているうちは、ジュニアエンジニアの域を出ない。我々のようなシステムアーキテクトにとって、Wordファイルとは「メタデータという名のキーバリューストアを内包したポータブルなデータベース」である。
今回は、ドキュメント・プロパティ（特に`CustomDocumentProperties`）を極限まで制御し、業務自動化の基盤として昇華させる手法を伝授する。
—
1. なぜ「外部ファイル」ではなく「ドキュメントプロパティ」なのか
システム開発において、管理番号や承認ステータスを別個のDBや外部JSONで管理するのは、冗長かつ「ファイルとデータが乖離する」リスクを伴う。ドキュメント自体にメタデータを埋め込むことは、ファイルが配布された後でも、その出自や属性を自己完結的に保持できる最強のポータビリティを意味する。
VBAの`CustomDocumentProperties`は、OLEの仕様に基づいている。これを正しく理解すれば、Word文書を軽量なコンテナとして扱うことが可能だ。
—
2. 堅牢なプロパティ操作のアーキテクチャ
単に「書く」だけでは素人だ。存在しないプロパティへのアクセスは実行時エラーを誘発する。これを防ぐには、例外処理をカプセル化したラッパー関数を実装し、メモリのリークを防ぐ設計が必要だ。
実装コード：メタデータ操作の最適解
以下のコードは、既存のプロパティを破壊せずに安全に更新し、存在しない場合は動的に生成する、いわゆる「Upsert（Update or Insert）」のロジックだ。
Option Explicit
‘ @brief カスタムプロパティを安全に設定・更新する
‘ @param doc 対象ドキュメントオブジェクト
‘ @param propName プロパティ名
‘ @param propValue 値
Public Sub UpsertCustomProperty(ByRef doc As Document, ByVal propName As String, ByVal propValue As Variant)
Dim props As Office.DocumentProperties
Dim prop As Office.DocumentProperty
Dim isExists As Boolean
Set props = doc.CustomDocumentProperties
‘ 存在確認（エラーをトラップせず、コレクションをループで回すのが最も安定する）
isExists = False
For Each prop In props
If prop.Name = propName Then
isExists = True
Exit For
End If
Next prop
If isExists Then
props(propName).Value = propValue
Else
‘ 型判定を厳密に行うとより堅牢だが、Variantで柔軟に受け取る
props.Add Name:=propName, LinkToContent:=False, _
Type:=msoPropertyTypeString, Value:=CStr(propValue)
End If
‘ オブジェクトの明示的解放（VBAでも大規模処理では必須の作法）
Set prop = Nothing
Set props = Nothing
End Sub
—
3. シニアエンジニアが意識すべき「メモリとパフォーマンス」
Word VBAにおいて、`Document`オブジェクトや`Range`オブジェクトを不用意にループ内で生成し続けるのは、メモリリークの温床だ。
- 明示的解放: `Set obj = Nothing`を怠るな。特にCOMオブジェクトの参照カウントは、VBAのガベージコレクションを過信してはならない。
- イベントの無効化: 大規模な文書処理を行う際は、`Application.ScreenUpdating = False`を忘れずに。メタデータの書き込み頻度が高い場合、Wordの再描画コストは無視できない。
- Late Binding vs Early Binding: 開発時は「参照設定」を使ったEarly Bindingで型安全性を確保し、配布時は配布先環境のバージョン差異を吸収するためにLate Bindingに切り替えるのが、長期保守を想定したアーキテクトの定石である。
—
4. システム間連携の極限：レガシーとの共生
この技術の真骨頂は、外部のRPA（UiPathやPower Automate）や、C#で書かれたデスクトップアプリとの連携にある。
WordファイルをOpenXML SDKで解析せずとも、VBA側で特定のプロパティを読み出し、それをJSON化して標準出力（`Debug.Print`経由でのリダイレクトやテキスト書き出し）を行えば、「WordファイルをDBのエンドポイント」として機能させることができる。
読み込み時のTips
プロパティを取得する際は、必ず`On Error Resume Next`を使用せよ。プロパティが削除されている可能性を常に考慮するのが、システム管理者のリスク管理というものだ。
Public Function GetCustomProperty(ByRef doc As Document, ByVal propName As String) As String
Dim val As String
On Error Resume Next
val = doc.CustomDocumentProperties(propName).Value
If Err.Number <> 0 Then val = “” ‘ 未定義なら空文字を返す
On Error GoTo 0
GetCustomProperty = val
End Function
—
結論：Wordを「文書」から「知的資産」へ
Word文書のプロパティを操ることは、単なる事務作業の効率化ではない。文書が「誰によって」「いつ作成され」「どのフェーズにあるか」を自己定義できるようにすることだ。
この仕組みを導入すれば、ファイル管理の煩雑さから解放される。ファイル名に「最終版_v2_修正版」などと付ける愚行は、今日で終わらせるべきだ。
技術は、使う者の意志によって凶器にも、そして最高級のツールにもなる。諸君が手にするそのWordファイルが、真に管理された知的資産へと進化することを期待している。
