Word VBAを掌握する極限の知見：文書間「差分のみ」段落書式同期エンジンの設計と実装
開発現場において、Word文書の標準化やテンプレートの強制適用は常に悩ましい課題だ。
「マスター文書の書式が変わったので、既存の数百の文書に反映してほしい」
素人が書いたVBAであれば、全段落のプロパティをマスター側から丸ごと上書きコピーするだろう。しかし、そんな力技のコードは、文書全体のファイルサイズを肥大化させ、ユーザーが手動で設定した例外的なインデントやカスタム書式をすべて破壊する。
プロのエンジニアが作るべきは、「変更されたプロパティ（差分）のみを検出し、ピンポイントで適用する」洗練された同期エンジンだ。
今回は、Word VBAのオブジェクトモデルの重みを知り尽くしたアーキテクトが、バグの起きない堅牢な差分同期システムの設計思想とプロダクションコードを伝授する。
—
1. なぜ「全上書き」は地獄を生むのか？
Wordの`ParagraphFormat`オブジェクトは、膨大なプロパティを抱えている。
これを全プロパティにわたって単純代入（`Dest.LeftIndent = Src.LeftIndent` など）すると、以下のような致命的な問題が発生する。
1. 不要なXMLノードの生成: 変更がないプロパティであっても値を代入すると、Wordの内部XML（document.xml）に冗長なプロパティタグが書き込まれ、文書が徐々に重くなる。
2. 手動調整の破壊: 担当者が意図的に調整した「特定段落の微小なインデントや行間」が容赦なくリセットされる。
3. パフォーマンスの劣化: 比較ロジックなしにあらゆるプロパティを叩きに行くと、COMの境界を跨ぐオーバーヘッドが蓄積し、数千行の文書で処理が数分単位でフリーズする。
したがって、「マスターとターゲットの値を比較し、一致しない場合のみ代入する（Dirty Check）」というガード節の徹底が、実務レベルのコードの必須条件となる。
—
2. 堅牢な同期エンジンのアーキテクチャ
今回構築する「段落書式差分同期エンジン」のアーキテクチャ上のポイントは以下の3点だ。
- プロパティ単位の厳密な比較: `SpaceBefore`, `SpaceAfter`, `LineSpacing`, `LeftIndent` などの主要なレイアウトプロパティを個別に評価。
- トリプルステート（三値論理）の考慮: Wordのプロパティには `9999999`（wdUndefined：混在状態）や `999999`（未設定）といった特殊な値が存在する。これをそのまま比較・代入するとエラーの元になるため、値の正規化を行う。
- トランザクション的アプローチ: 処理の途中でエラーが発生しても文書が破損しないよう、適切なエラーハンドリングとスクリーン・アップデートの抑制を行う。
—
3. プロダクションコード：段落書式差分同期モジュール
以下のコードは、マスター文書（`masterDoc`）の指定段落の書式を、ターゲット文書（`targetDoc`）の対応する段落へ「差分のみ」適用する実用的なVBAモジュールである。
Option Explicit
‘ ==============================================================================
‘ 処理名: 同期エンジン・メインプロシージャ
‘ 概要: マスター文書とターゲット文書の段落書式を比較し、差分のみを同期する
‘ ==============================================================================
Public Sub SyncParagraphFormats(ByVal masterDoc As Document, ByVal targetDoc As Document)
‘ 描画・警告を停止してパフォーマンスを極限まで引き上げる
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
On Error GoTo ErrorHandler
Dim i As Long
Dim maxPara As Long
Dim srcPara As Paragraph
Dim tgtPara As Paragraph
‘ 比較対象の段落数を調整（短い方に合わせるか、エラーハンドリングを行う）
maxPara = masterDoc.Paragraphs.Count
If targetDoc.Paragraphs.Count < maxPara Then
maxPara = targetDoc.Paragraphs.Count
End If
Dim syncCount As Long
syncCount = 0
' ループ処理
For i = 1 To maxPara
Set srcPara = masterDoc.Paragraphs(i)
Set tgtPara = targetDoc.Paragraphs(i)
' 変更があった場合のみ適用フラグが立つ
If ApplyParagraphFormatDiff(srcPara.Format, tgtPara.Format) Then
syncCount = syncCount + 1
End If
Next i
MsgBox "同期完了: " & syncCount & " 個の段落で書式差分を更新しました。", vbInformation, "同期エンジン"
CleanUp:
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
Exit Sub
ErrorHandler:
MsgBox "予期せぬエラーが発生しました: " & Err.Description, vbCritical, "致命的エラー"
Resume CleanUp
End Sub
' ==============================================================================
' 関数名: ApplyParagraphFormatDiff
' 概要: 2つの ParagraphFormat を比較し、差分があればターゲットに適用して True を返す
' ==============================================================================
Private Function ApplyParagraphFormatDiff(ByRef srcFmt As ParagraphFormat, ByRef tgtFmt As ParagraphFormat) As Boolean
Dim isModified As Boolean
isModified = False
' 1. 段落前スペース (SpaceBefore)
If Not SafeCompare(srcFmt.SpaceBefore, tgtFmt.SpaceBefore) Then
tgtFmt.SpaceBefore = srcFmt.SpaceBefore
isModified = True
End If
' 2. 段落後スペース (SpaceAfter)
If Not SafeCompare(srcFmt.SpaceAfter, tgtFmt.SpaceAfter) Then
tgtFmt.SpaceAfter = srcFmt.SpaceAfter
isModified = True
End If
' 3. 行間 (LineSpacing)
If Not SafeCompare(srcFmt.LineSpacing, tgtFmt.LineSpacing) Then
tgtFmt.LineSpacing = srcFmt.LineSpacing
isModified = True
End If
' 4. 行間ルール (LineSpacingRule)
If Not SafeCompare(srcFmt.LineSpacingRule, tgtFmt.LineSpacingRule) Then
tgtFmt.LineSpacingRule = srcFmt.LineSpacingRule
isModified = True
End If
' 5. 左インデント (LeftIndent)
If Not SafeCompare(srcFmt.LeftIndent, tgtFmt.LeftIndent) Then
tgtFmt.LeftIndent = srcFmt.LeftIndent
isModified = True
End If
' 6. 右インデント (RightIndent)
If Not SafeCompare(srcFmt.RightIndent, tgtFmt.RightIndent) Then
tgtFmt.RightIndent = srcFmt.RightIndent
isModified = True
End If
' 7. 1行目のインデント (FirstLineIndent)
If Not SafeCompare(srcFmt.FirstLineIndent, tgtFmt.FirstLineIndent) Then
tgtFmt.FirstLineIndent = srcFmt.FirstLineIndent
isModified = True
End If
' 8. 揃え位置 (Alignment)
If Not SafeCompare(srcFmt.Alignment, tgtFmt.Alignment) Then
tgtFmt.Alignment = srcFmt.Alignment
isModified = True
End If
' 9. 改段落時の改ページ制御 (KeepWithNext)
If Not SafeCompare(srcFmt.KeepWithNext, tgtFmt.KeepWithNext) Then
tgtFmt.KeepWithNext = srcFmt.KeepWithNext
isModified = True
End If
ApplyParagraphFormatDiff = isModified
End Function
' ==============================================================================
' 関数名: SafeCompare
' 概要: Word特有の未定義値(wdUndefined等)を考慮した安全な値比較
' ==============================================================================
Private Function SafeCompare(ByVal val1 As Variant, ByVal val2 As Variant) As Boolean
' 型が異なる場合は不一致
If VarType(val1) <> VarType(val2) Then
SafeCompare = False
Exit Function
End If
‘ 浮動小数点誤差や特殊定数の評価
‘ Wordの書式プロパティには 9999999 (wdUndefined) が返ることがあるため厳密に弾く
If val1 = 9999999 Or val2 = 9999999 Then
SafeCompare = False
Exit Function
End If
‘ 通常の値比較
If val1 = val2 Then
SafeCompare = True
Else
SafeCompare = False
End If
End Function
—
4. 実務・データベース連携における注意点
このシステムをエンタープライズ環境（ファイルサーバーやSharePoint上の文書群、あるいはDB管理されたテンプレート配布システム）に組み込む場合、以下のアーキテクチャ上の罠に注意せよ。
① COMの解放とメモリリークの防止
VBAにおける `Set obj = Nothing` は、ローカルスコープでは必ずしも必須ではないが、大量の文書を開閉するバッチ処理（タスクランナー等からの呼び出し）では、COMオブジェクトの参照が残ることでメモリリークを引き起こす。
ループ内で文書を開閉する場合は、必ず明示的に `Close` し、変数に `Nothing` を代入してメモリを解放すること。
② ファイルロックと排他制御
ネットワークドライブ上のWordファイルを直接操作すると、他のユーザーがファイルを開いている場合に `Error 70: 書き込みできません` が発生する。
実務ツールとして構築する場合は、対象ファイルをローカルのテンポラリディレクトリ（`Environ(“TEMP”)`）に一度コピーし、ローカル上で差分同期処理を完結させてから上書き保存する設計にすべきである。
③ 段落数が一致しないケースへの対応
今回のサンプルコードではシンプルに「段落数の少ない方に合わせる」実装にしているが、実務では段落の削除や挿入によってマスターとターゲットのインデックスがズレる。
もし完全な同期が必要な場合は、段落番号ベースではなく、「カスタムXMLパーツ」や「隠しテキストによるGUID（識別子）」を段落単位に付与し、IDベースで差分比較を行う高度なメタデータ・マッピング構造を採用すべきである。
—
チーフアーキテクトからの総括
「動けばいいや」で作られたVBAは、保守フェーズに入った途端にバグの温床となる。
今回紹介した「差分のみを検出・適用するロジック（Dirty Check）」と「Wordの仕様の癖を封じ込めるラッパー関数」の思想は、段落書式だけでなく、フォント、表、セクション設定など、すべてのWord自動化に応用できる普遍的なパターンだ。
真に信頼される業務自動化ツールは、無駄な処理を削ぎ落とした美しさと、例外を許容しない堅牢なディフェンシブ・プログラミングによってのみ実現される。このコードをあなたの武器庫に加え、現場の生産性を極限まで高めてほしい。
