Word VBAを掌握する極限の知見：Excelから数千のWord文書プロパティを秒速で一括撃破する技術
Wordの文書プロパティ（組み込みプロパティおよびカスタムプロパティ）の管理は、文書管理システム（DMS）の移行や大規模な監査対応において、避けて通れない泥臭いタスクだ。
GUI操作で1つずつ「ファイル」＞「情報」からプロパティを書き換えているようなエンジニアを見かけたら、それはプロフェッショナルの仕事ではない。数千ファイル規模のドキュメント群に対し、手作業など論外である。
今回は、Excelのリストをマスターデータとし、ADO（ActiveX Data Objects）の高速ストリーム処理とWordのCOMオブジェクトを極限まで最適化して連携させ、「メモリリークなし・画面描画ゼロ・圧倒的なスループット」で一括更新を完遂する実用コードと、その裏にあるアーキテクチャの真髄を解説する。
—
1. アーキテクチャの核心：なぜ「ADO + 隠蔽インスタンス」なのか？
大容量のExcelデータを読み込む際、`Workbooks.Open`を使ってExcelインスタンスを立ち上げるのは愚行である。オーバーヘッドが大きすぎてメモリを食いつぶす。
代わりにADO (Microsoft ActiveX Data Objects) を用いて、Excelファイルを「データベース」として直接SQLクエリで叩く。これにより、Excelを起動することなく、数万行のレコードセットをメモリ上に高速展開できる。
また、Wordの操作においても以下の鉄則がある。
1. `ScreenUpdating = False` は気休めにもならない：Word本体の可視化 (`Visible = True`) を行わず、完全にヘッドレス（バックグラウンド）で動作させる。
2. 完全修飾とオブジェクトの明示的解放：COMの参照カウンタを熟知し、ループ内でインスタンスを肥大化させない。`Set obj = Nothing` の徹底と、ガベージコレクションのタイミングを制御する。
—
2. 実装コード：ExcelからWordプロパティを一括更新するチートエンジン
以下のコードは、Excel側のVBAエディタから実行することを想定したマッキントッシュお断りの純Windows環境向け極限チューニングコードである。
あらかじめExcelのシート（例: `Sheet1`）の1行目をヘッダーとし、以下のような構造でデータを準備しておいてほしい。
- A列：ファイルパス (`C:\Docs\Report_01.docx`)
- B列：タイトル (`2026年度事業計画`)
- C列：作成者 (`システム統括部`)
- D列：カスタムプロパティ「承認ステータス」 (`承認済`)
Option Explicit
‘ =================================================================================
‘ 処理名: Excel to Word プロパティ一括同期エンジン
‘ 概要 : ADOでExcelのマスターデータを読み込み、Wordを非表示で起動してプロパティを書き換える
‘ 備考 : 事前に「Microsoft ActiveX Data Objects 6.x Library」の参照設定を推奨
‘ =================================================================================
Sub SyncWordPropertiesFromExcel()
Dim conn As Object
Dim rs As Object
Dim connStr As String
Dim excelPath As String
Dim wdApp As Object
Dim wdDoc As Object
Dim targetPath As String
Dim titleVal As String
Dim authorVal As String
Dim statusVal As String
Dim updateCount As Long
Dim errorCount As Long
Dim startTime As Double
startTime = Timer
excelPath = ThisWorkbook.FullName
‘ 1. 画面描画と警告の完全停止（パフォーマンスの極限追求）
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With
On Error GoTo ErrorHandler
‘ 2. ADOによるExcel自体の高速データストリーム接続（HDR=Yes: 1行目をヘッダーとする）
Set conn = CreateObject(“ADODB.Connection”)
Set rs = CreateObject(“ADODB.Recordset”)
‘ ACE OLEDB Providerを使用（環境に合わせてJet 4.0に変更可能だが現代はACE一択）
If Val(Application.Version) >= 12.0 Then
connStr = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & excelPath & _
“;Extended Properties=””Excel 12.0 Xml;HDR=YES;IMEX=1″”;”
Else
connStr = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & excelPath & _
“;Extended Properties=””Excel 8.0;HDR=YES;IMEX=1″”;”
End If
conn.Open connStr
‘ 対象シート名「DataMap」からデータを抽出するSQL
‘ ※Excelシート名を適宜変更すること
rs.Open “SELECT FROM [DataMap$]”, conn, 1, 1 ‘ adOpenKeyset, adLockReadOnly
If rs.EOF Then
MsgBox “処理対象のデータが存在しません。”, vbExclamation
GoTo Cleanup
End If
‘ 3. Wordアプリケーションのバックグラウンドインスタンス生成
Set wdApp = CreateObject(“Word.Application”)
wdApp.Visible = False
wdApp.DisplayAlerts = 0 ‘ wdAlertsNone
updateCount = 0
errorCount = 0
‘ 4. レコードセットの走査とトランザクション的処理
Do While Not rs.EOF
targetPath = Nz(rs.Fields(0).Value)
titleVal = Nz(rs.Fields(1).Value)
authorVal = Nz(rs.Fields(2).Value)
statusVal = Nz(rs.Fields(3).Value)
If FileExists(targetPath) Then
On Error Resume Next
‘ ドキュメントを非表示かつバックグラウンドで開く
Set wdDoc = wdApp.Documents.Open(FileName:=targetPath, _
ConfirmConversions:=False, _
ReadOnly:=False, _
AddToRecentFiles:=False, _
Visible:=False)
If Err.Number = 0 Then
On Error GoTo ErrorHandler
‘ 組み込みプロパティの更新
With wdDoc
.BuiltInDocumentProperties(“Title”) = titleVal
.BuiltInDocumentProperties(“Author”) = authorVal
‘ カスタムプロパティの更新（存在しない場合は新規追加）
Call SetCustomProperty(wdDoc, “承認ステータス”, statusVal)
‘ 変更を保存して閉じる（不要なダイアログを出さない）
.Close SaveChanges:=True
End With
Set wdDoc = Nothing
updateCount = updateCount + 1
Else
‘ ファイルオープン失敗（排他制御エラー等）
errorCount = errorCount + 1
Err.Clear
End If
On Error GoTo ErrorHandler
Else
errorCount = errorCount + 1
End If
rs.MoveNext
Loop
Cleanup:
‘ 5. リソースの確実な解放（メモリリーク防止の絶対防衛線）
On Error Resume Next
If Not rs Is Nothing Then
If rs.State Then rs.Close
Set rs = Nothing
End If
If Not conn Is Nothing Then
If conn.State Then conn.Close
Set conn = Nothing
End If
If Not wdApp Is Nothing Then
wdApp.Quit SaveChanges:=False
Set wdApp = Nothing
End If
‘ Excel側の設定復元
With Application
.Calculation = xlCalculationAutomatic
.DisplayAlerts = True
.ScreenUpdating = True
End With
MsgBox “処理が完了しました。” & vbCrLf & _
“成功件数: ” & updateCount & ” 件” & vbCrLf & _
“スキップ/エラー: ” & errorCount & ” 件” & vbCrLf & _
“実行時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, vbInformation
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
Resume Cleanup
End Sub
‘ — ヘルパー関数: Null値の安全なハンドリング —
Private Function Nz(ByVal varValue As Variant) As String
If IsNull(varValue) Then
Nz = “”
Else
Nz = CStr(varValue)
End If
End Function
‘ — ヘルパー関数: ファイル存在確認 —
Private Function FileExists(ByVal filePath As String) As Boolean
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
FileExists = fso.FileExists(filePath)
Set fso = Nothing
End Function
‘ — ヘルパー関数: カスタムプロパティの設定（存在チェック付き） —
Private Sub SetCustomProperty(ByRef doc As Object, ByVal propName As String, ByVal propValue As String)
Dim prop As Object
Dim propExists As Boolean
propExists = False
For Each prop In doc.CustomDocumentProperties
If prop.Name = propName Then
propExists = True
Exit For
End If
Next prop
If propExists Then
doc.CustomDocumentProperties(propName).Value = propValue
Else
‘ msoPropertyTypeString = 4
doc.CustomDocumentProperties.Add Name:=propName, _
LinkToContent:=False, _
Type:=4, _
Value:=propValue
End If
End Sub
—
3. シニアエンジニアが押さえるべき「3つの罠と対策」
実現場でこのコードを稼働させる際、必ず遭遇するトラブルとその回避策を共有する。
① COMオブジェクトの「ゾンビプロセス」問題
ループ処理中に予期せぬエラーやユーザーの強制終了（Escキー連打など）が発生すると、裏で起動した `WINWORD.EXE` がタスクマネージャーに残り続ける（ゾンビプロセス化）。これが蓄積するとメモリが枯渇する。
- 対策: エラーハンドラー内に `wdApp.Quit SaveChanges:=False` と `Set wdApp = Nothing` を確実に配置し、イミディエイトウィンドウやタスクマネージャーから手動でキルする手間をゼロにすること。
② ファイルロックと共有違反
対象のWord文書が、別のユーザーによってネットワーク上で開かれている場合、`Documents.Open` は実行時エラー（エラー 4198: このコマンドは失敗しました）を吐く。
- 対策: コード内では `On Error Resume Next` でトラップしているが、実運用ではエラー発生時にログファイル（または別シート）に「処理失敗: ファイルがロックされています」と記録し、バッチ全体の停止を防ぐ設計に昇華させるべきだ。
③ プロパティのデータ型ミスマッチ
カスタムプロパティを新規追加する際、`Type` 引数（`msoPropertyTypeString`, `msoPropertyTypeNumber` など）を誤ると、Excel側から流し込んだ文字列が数値型フィールドとコンフリクトを起こす。
- 対策: 基本的にはテキスト（Type = 4）として安全に流し込み、必要に応じてWord側やExcel側のバリデーションレイヤーで型担保を行うこと。
—
4. 総括
VBAは「おもちゃの言語」ではない。オブジェクトモデルのライフサイクルを完全に理解し、外部リソース（ADOやCOM）とのハンドシェイクを最適化すれば、専用のC#製バッチアプリケーションに匹敵するスループットと堅牢性を叩き出すことができる。
手作業によるプロパティ更新という前世紀の遺物は、今日を境にあなたの自動化スクリプトの礎石へと置き換えられなければならない。
コードの細部を自身の環境の要件にアジャストさせ、圧倒的な業務効率化をその手で実装してほしい。
