Word VBAを掌握する極限の知見：カスタムドキュメントプロパティで実現する「真の文書管理自動化」
開発現場でよく見かける光景がある。
「承認日」や「版数」、「機密区分」といった文書のメタデータを、わざわざ表紙やヘッダーのテキストボックスに直接手入力させ、その値をVBAで強引に`.Range.Text`から正規表現で探し出してファイル名に利用する――。
今すぐその非効率な設計をやめてほしい。
ドキュメントのライフサイクル管理において、メタデータを「本文のテキスト」として扱うのは、バグを生む最大の温床だ。ユーザーが誤ってバックスペースキーを押してタグを消したり、書式を変更したりするだけで、自動化スクリプトは容易にクラッシュする。
Wordには、文書そのものに不可分のメタデータを格納する 「カスタムドキュメントプロパティ（CustomDocumentProperties）」 という、この目的のために用意された神機能が存在する。
今回は、このカスタムプロパティをVBAで完全に制御し、ファイル管理やデータベース連携の基盤となる「堅牢なメタデータ駆動型ワークフロー」の構築法を伝授する。
—
1. なぜ「カスタムドキュメントプロパティ」なのか？
Wordオブジェクトモデルにおいて、メタデータを保持する領域は大きく分けて2つある。
1. `BuiltInDocumentProperties`（組み込みプロパティ：タイトル、作成者、ページ数など）
2. `CustomDocumentProperties`（カスタムプロパティ：ユーザー定義）
組み込みプロパティは仕様が固定されており、勝手な拡張（例: “ApprovalStatus” や “Revision” の追加）を行うと、OSのファイルプロパティとの同期不整合を起こすリスクがある。したがって、業務アプリケーション独自のメタデータ管理には、カスタムドキュメントプロパティ一択となる。
メタデータを文書内に隠蔽するメリット
- UI依存からの脱却: ユーザーが本文をどう編集しようとも、メタデータ領域は保護される。
- ファイルI/Oの効率化: 本文をパース（解析）する必要がなく、ドキュメントを開かずに（あるいは最小限のオーバーヘッドで）プロパティだけを読み取ることも理論上可能。
- 一元管理: 版数やステータスの変更をVBA側で一括制御し、文書のヘッダー等にフィールドコード（`DOCPROPERTY`）経由で同期させれば、表示と実体の完全な整合性が保たれる。
—
2. 堅牢な設計：存在チェックと型安全性の担保
VBAの`CustomDocumentProperties.Add`メソッドは、極めて厄介な仕様を持っている。
すでに存在するプロパティ名を指定して追加しようとすると、容赦なく実行時エラー（エラー番号：5）を吐く。
そのため、プロダクションコードでは必ず「存在確認を行い、あれば更新、なければ追加（Upsert）」というイディオムをカプセル化しておかなければならない。また、データ型（文字列、数値、真偽値、日付）を明示的に指定しないと、予期せぬバリアント型の解釈ミスを引き起こす。
以下のモジュールは、実務でそのまま使える堅牢なユーティリティ群だ。
—
3. プロダクションコード：カスタムプロパティ完全制御モジュール
以下のコードをWordの標準モジュールに実装してほしい。エラーハンドリング、型の安全性、そして保守性を極限まで高めた実装となっている。
Option Explicit
‘ =================================================================================
‘ 模块名: ModDocumentGovernance
‘ 概要 : カスタムドキュメントプロパティを用いた文書ライフサイクル管理モジュール
‘ =================================================================================
‘ プロパティのデータ型を明示するための列挙体
Public Enum DocPropType
msoPropTypeString = 4 ‘ msoPropertyTypeString
msoPropTypeNumber = 1 ‘ msoPropertyTypeNumber
msoPropTypeBoolean = 2 ‘ msoPropertyTypeBoolean
msoPropTypeDate = 3 ‘ msoPropertyTypeDate
End Enum
/
- 指定したカスタムドキュメントプロパティの値を取得する（存在しない場合はデフォルト値を返す）
- @param targetDoc 対象のDocumentオブジェクト
- @param propName 取得するプロパティ名
- @param defaultValue プロパティ未存在時のフォールバック値
- @return Variant プロパティの値またはデフォルト値
/
Public Function GetCustomProperty(ByVal targetDoc As Document, ByVal propName As String, Optional ByVal defaultValue As Variant = “”) As Variant
On Error GoTo ErrorHandler
Dim prop As DocumentProperty
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
/
- カスタムドキュメントプロパティを設定する（存在しない場合は新規作成、存在する場合は更新）
- ※これが実務で必須となる「Upsert」パターン
- @param targetDoc 対象のDocumentオブジェクト
- @param propName 設定するプロパティ名
- @param propValue 設定する値
- @param propType DocPropType列挙体による明示的な型指定
/
Public Sub SetCustomProperty(ByVal targetDoc As Document, ByVal propName As String, ByVal propValue As Variant, ByVal propType As DocPropType)
On Error GoTo ErrorHandler
Dim propExists As Boolean
Dim prop As DocumentProperty
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
‘ 新規の場合は型を指定して追加
‘ ※型を明示しないと、VBAの暗黙の型変換で意図しない型（日付が文字列になる等）になるのを防ぐ
targetDoc.CustomDocumentProperties.Add _
Name:=propName, _
LinkToContent:=False, _
Type:=CLng(propType), _
Value:=propValue
End If
Exit Sub
ErrorHandler:
Err.Raise Err.Number, “SetCustomProperty”, “プロパティの設定に失敗しました [” & propName & “]: ” & Err.Description
End Sub
/
- 【ユースケース】文書のライフサイクルステータスを更新し、ファイル名やフッターへ反映するデモ
/
Public Sub Demo_UpdateLifecycle()
Dim doc As Document
Set doc = ActiveDocument
‘ 1. メタデータの更新（Upsert）
Call SetCustomProperty(doc, “DocStatus”, “承認済み”, msoPropTypeString)
Call SetCustomProperty(doc, “ApprovalDate”, Date, msoPropTypeDate)
Call SetCustomProperty(doc, “Version”, 1.1, msoPropTypeNumber)
‘ 2. 本文側のフィールド（DOCPROPERTY）を強制更新
‘ ※文書内のフィールドコードが最新のプロパティ値を反映するように更新する
Dim fld As Field
For Each fld In doc.Fields
fld.Update
Next fld
‘ ヘッダーやフッター内のフィールドも対象にするため StoryRanges を走査
Dim rngStory As Range
For Each rngStory In doc.StoryRanges
Dim lngStrsType As Long
lngStrsType = rngStory.StoryType
‘ メインストーリー以外（ヘッダー・フッター等）のフィールドを更新
If lngStrsType <> wdMainTextStory Then
For Each fld In rngStory.Fields
fld.Update
Next fld
End If
Next rngStory
MsgBox “文書メタデータの更新とフィールドの同期が完了しました。”, vbInformation, “ライフサイクル管理”
End Sub
—
4. アーキテクトからの実践的助言：外部システム・データベース連携の注意点
このカスタムプロパティの真価は、VBA単体で完結させることではなく、「外部のデータベースやRPA、ファイルサーバー（SharePoint等）との連携ブリッジ」として機能させるときに発揮される。
1. Wordを開かずにプロパティを読み取る（パフォーマンスの極意）
大量のWord文書（例: 1000ファイル）の中から、「版数が 2.0 以上のもの」や「承認待ちの文書」を特定したいとする。
ここで絶対にやってはいけないのが、すべてのファイルを `Documents.Open` で開いてVBAで判定することだ。Wordの起動とドキュメントの読み込みはオーバーヘッドが大きすぎて、処理に数時間かかる。
【正解のアプローチ】
ADODB (ActiveX Data Objects) を用いて、Word文書を「構造化ストレージ（OLE Structured Storage）」として直接叩き、ファイルを開かずにSummaryInformationやDocumentSummaryInformation（※カスタムプロパティを含むストレージ領域）を高速に読み取る設計フックを用意するべきだ。
（※カスタムプロパティは `\05CustomDocumentProperties` という特定のストレージストリームに格納されている）
2. SharePoint / OneDrive 環境での注意点
モダンなオフィス環境では、ファイルはローカルではなくクラウド上にある。
カスタムプロパティはファイルのバイナリメタデータとして保持されるため、クラウド上のファイルを同期（Sync）する際、Officeアプリケーションがバックグラウンドでプロパティを書き換えることがある。
そのため、非同期処理の最中にプロパティへアクセスすると、「シャドウコピーの競合（Conflict）」が発生するリスクがある。共有サーバーやSharePoint上のファイルを操作する場合は、ローカルへの一時ダウンロード、あるいは排他制御（`Open Read-Only` の活用など）の設計を忘れないこと。
—
5. 総括
ドキュメントの管理を「属人的なオペレーション」から「コードによるガバナンス」へ移行させる第一歩が、このカスタムドキュメントプロパティの完全掌握だ。
本文のテキストに頼る脆弱な自動化は今日で卒業し、メタデータを軸とした堅牢で拡張性の高いドキュメントパイプラインを構築してほしい。それが、プロの業務自動化エンジニアの仕事である。
