【Word VBA】マスタ文書からスタイルを同期し、書式崩壊を根絶する高度同期ツールの構築
複数人が関与する巨大なドキュメントプロジェクトにおいて、最大の敵は「表記揺れ」と「野良スタイルの増殖」である。各々が手作業でフォントサイズやインデントを変更し、あるいは別の文書からコピー＆ペーストを繰り返した結果、スタイル定義は汚染され、文書構造は修復不可能なレベルまで崩壊する。
この問題を根本から解決するには、「絶対的なマスタ文書（またはテンプレート）」からスタイル定義を読み込み、ターゲット文書のスタイルを強制的に上書き・同期する自動化メカニズムが不可欠だ。
しかし、単に `Application.OrganizerCopy` を呼び出せば済むと考えているなら、それはWord内部のCOMオブジェクトモデルの深淵を見落としている。組み込みスタイルのローカライズ問題、スタイル相互の依存関係（`BaseStyle`）、そして直接書式設定（Direct Formatting）の残存など、実務で牙をむく罠は無数に存在する。
本稿では、レガシー環境から最新のOffice 365環境まで耐えうる、安全かつ高速なスタイル同期ツールの設計手法と完全なVBA実装を公開する。
—
1. 単なるコピー処理が失敗する技術的要因
Wordにおける「スタイル」は、単なるプロパティの集合体ではない。親スタイルを継承する階層構造（ツリー構造）であり、かつ「次に来る段落のスタイル」などのコンテキスト情報を持っている。
1.1 `OrganizerCopy` の極限と罠
Word VBAには標準で `Application.OrganizerCopy` メソッドが存在する。これは標準UIの「スタイル整理」ダイアログをプログラムから操作する同等の機能だが、以下の致命的な課題を抱えている。
- 依存関係の欠落: 基準スタイル（`BaseStyle`）がコピー先に存在しない場合、コピー順序によっては定義が壊れるか、想定外のデフォルト値にフォールバックされる。
- 排他ロックとファイルパス: ネットワークドライブ上のマスタファイルを指定した場合、ファイル共有のタイミング問題やパス長制限でランタイムエラーを発生させやすい。
- エラーハンドリングの粗さ: 保護された組み込みスタイルや、変更不可のシステムスタイルに遭遇すると、処理が途中で途絶する。
1.2 オブジェクトライフサイクルとメモリの圧迫
数千段落におよぶ大規模文書に対して、スタイル同期後に全段落の再計算が行われると、Wordの描画エンジンとUndo履歴用バッファが破綻し、UIがフリーズ（応答なし）に陥る。
これらを抑制するためには、Win32 APIレベルでの描画制御、バックグラウンドでのマスタドキュメント（ドキュメントオブジェクト）のサイレントオープン、そして処理完了後の確実なCOMオブジェクトの明示的解放（`Set obj = Nothing`）を完備させなければならない。
—
2. アーキテクチャ設計：堅牢な同期パイプライン
今回構築する「スタイル同期ツール」は、以下の4ステップのパイプラインで動作させる。
[マスタ文書 (.dotx/.docx)]
│ (1) バックグラウンド読み込み（非表示・読み取り専用）
▼
[スタイル定義の抽出と検証]
│ (2) ターゲット文書へのスタイルの移植（OrganizerCopy/CopyStylesFromTemplate）
▼
[ターゲット文書 (ActiveDocument)]
│ (3) 残存する「直接書式設定」の強制解除（ResetStyle / ClearFormatting）
▼
[描画キャッシュの再構築 & メモリ解放]
この設計により、ユーザの作業を邪魔することなく、ミリ秒単位のパフォーマンスで数百のスタイルを安全に同期する。
—
3. 実装：完全版 スタイル同期モジュール
以下のコードをWordの標準モジュール（例: `mod_StyleSynchronizer`）に配置して使用する。高精度タイマー用にWin32 APIの `QueryPerformanceCounter` を宣言し、プロフェッショナルなプロファイリングにも対応させている。
Option Explicit
‘ ==============================================================================
‘ Win32 API 宣言
‘ ==============================================================================
If VBA7 Then
Private Declare PtrSafe Function QueryPerformanceCounter Lib “kernel32” (lpPerformanceCount As Currency) As Long
Private Declare PtrSafe Function QueryPerformanceFrequency Lib “kernel32” (lpFrequency As Currency) As Long
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hwndLock As LongPtr) As Long
Else
Private Declare Function QueryPerformanceCounter Lib “kernel32” (lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib “kernel32” (lpFrequency As Currency) As Long
Private Declare Function LockWindowUpdate Lib “user32” (ByVal hwndLock As Long) As Long
End If
‘ ==============================================================================
‘ 定数定義
‘ ==============================================================================
Private Const MASTER_TEMPLATE_PATH As String = “C:\Templates\Corporate_Master_Styles.dotx”
‘ ==============================================================================
‘ メイン処理: マスタ文書からスタイルを強制同期する
‘ ==============================================================================
Public Sub SynchronizeDocumentStyles()
Dim targetDoc As Document
Dim masterDoc As Document
Dim appVis As Boolean
Dim startTime As Currency, endTime As Currency, freq As Currency
Dim isErrorOccurred As Boolean
‘ プロファイリング開始
QueryPerformanceFrequency freq
QueryPerformanceCounter startTime
Set targetDoc = ActiveDocument
‘ マスタファイルの存在チェック
If Dir(MASTER_TEMPLATE_PATH) = “” Then
MsgBox “マスタテンプレートファイルが見つかりません:” & vbCrLf & MASTER_TEMPLATE_PATH, _
vbCritical Or vbOKOnly, “システムエラー”
Exit Sub
End If
‘ パフォーマンス最適化: 画面描画とイベントの停止
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
‘ 描画のWin32レベルフリーズ（必要な場合のみ）
‘ LockWindowUpdate Application.hwnd
‘ バックグラウンドでマスタ文書を読み取り専用で開く
appVis = Application.Visible
Set masterDoc = Documents.Open( _
FileName:=MASTER_TEMPLATE_PATH, _
ConfirmConversions:=False, _
ReadOnly:=True, _
AddToRecentFiles:=False, _
Visible:=False _
)
‘ ————————————————————————–
‘ コア処理 1: テンプレート経由でのスタイル同期
‘ ————————————————————————–
‘ ActiveDocumentのAttachedTemplateを一時的に切り替えてCopyStylesFromTemplateを実行
‘ これによりスタイル定義が物理的に上書きされる
targetDoc.UpdateStylesOnOpen = True
targetDoc.AttachedTemplate = MASTER_TEMPLATE_PATH
targetDoc.CopyStylesFromTemplate (MASTER_TEMPLATE_PATH)
targetDoc.UpdateStylesOnOpen = False
‘ ————————————————————————–
‘ コア処理 2: 段落の「直接書式設定（Direct Formatting）」のクリーンアップ
‘ ————————————————————————–
‘ スタイルを同期しても、個別設定（太字、文字色直指定）が上書きされていると
‘ 見栄えが統一されないため、明示的にリセットをかける
CleanDirectFormatting targetDoc
‘ 正常終了処理
isErrorOccurred = False
ExitHandler:
‘ 後処理: リソースの明示的解放（ガベージコレクションの徹底）
If Not masterDoc Is Nothing Then
masterDoc.Close SaveChanges:=wdDoNotSaveChanges
Set masterDoc = Nothing
End If
‘ ウィンドウ描画の再開
‘ LockWindowUpdate 0
Application.DisplayAlerts = wdAlertsAll
Application.ScreenUpdating = True
‘ ターゲット文書のリフレッシュ
targetDoc.Fields.Update
QueryPerformanceCounter endTime
If Not isErrorOccurred Then
Dim elapsedTime As Double
elapsedTime = (endTime – startTime) / freq
MsgBox “スタイルの同期が完了しました。” & vbCrLf & _
“処理時間: ” & Format(elapsedTime, “0.000”) & ” 秒”, _
vbInformation, “同期成功”
End If
Exit Sub
ErrorHandler:
isErrorOccurred = True
MsgBox “スタイル同期中にエラーが発生しました。” & vbCrLf & _
“Err #” & Err.Number & “: ” & Err.Description, _
vbCritical, “実行時エラー”
Resume ExitHandler
End Sub
‘ ==============================================================================
‘ サブ処理: ターゲット文書内の全段落から「直接書式設定」を排除する
‘ ==============================================================================
Private Sub CleanDirectFormatting(ByRef doc As Document)
Dim rng As Range
Dim para As Paragraph
‘ ドキュメント全体を処理するとメモリを食うため、Rangeオブジェクトを再利用してループ
‘ 注意: Range.ClearFormatting はスタイル自体を「標準」に戻してしまうため、
‘ Paragraph.Reset 相当（Ctrl+Q, Ctrl+Spaceと同等のVBA処理）を施す。
Set rng = doc.Content
‘ 段落書式のリセット（フォントの直接指定解除: ClearCharacterAllFormatting）
‘ および 段落スタイルの直接設定リセット（ClearParagraphAllFormatting）
‘ ※完全リセットではなく、スタイル定義に従わせる処理
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “”
.Forward = True
.Wrap = wdFindStop
‘ ドキュメント全体の文字書式のリセット（キーボードショートカット Ctrl+Space 相当）
doc.Fields.Unlink ‘ 必要に応じてフィールドの維持
End With
‘ 全選択範囲に対して文字スタイルのオーバーライドを解除し、段落スタイルに同期させる
‘ 高速化のため、Paragraphsコレクションを直接叩くのではなくRangeを使う
rng.Select
Application.Selection.ClearCharacterDirectFormatting
Application.Selection.ClearParagraphDirectFormatting
‘ メモリ解放
Set rng = Nothing
End Sub
—
4. プログラミングの要点と極限のチューニング
上記のコードには、単なるリファレンス本には載っていない「大規模運用を成立させるための知見」が詰め込まれている。
① `AttachedTemplate` と `CopyStylesFromTemplate` の組み合わせ
Wordの内部仕様において、`Application.OrganizerCopy` を全スタイル分ループ処理させる手法は非常に低速であり、途中でCOMエラー（`0x800A11FD` 等）を発行しやすい。
`CopyStylesFromTemplate` を使用すると、Word C++コアエンジン内部のネイティブAPIがコールされ、マスタテンプレート内のスタイル定義テーブル（`Stshif`：Style Sheet in File）が一括でカレントドキュメントにマージされる。これにより、VBAのループオーバヘッドを100%カットできる。
② 直接書式設定（Direct Formatting）の消去
スタイルを上書きしても、作業者が過去に文字を選択して「個別で赤色にした」「サイズを12ptにした」という直接書式設定が乗っている場合、スタイル定義の変更が画面に反映されない。
VBAの `Selection.ClearCharacterDirectFormatting` および `Selection.ClearParagraphDirectFormatting` は、ショートカットキー `Ctrl + Space`（文字書式リセット）および `Ctrl + Q`（段落書式リセット）の内部表現である。これにより、割り当てられたスタイルそのものは維持したまま、被せられた手動設定のみを根こそぎ剥ぎ取ることができる。
③ COMオブジェクトの明示的解放とエラーハンドリング
Word VBAはExcel VBA以上にガベージコレクションの挙動が甘い。
バックグラウンドで開いた `masterDoc` を `masterDoc.Close` しても、変数への `Set masterDoc = Nothing` を怠ると、Wordのプロセス空間にドキュメントのハンドルが残留し、次回実行時に `ファイルはロックされています` という競合エラーを引き起こす。
`Try…Catch…Finally` パターンが存在しないVBAにおいては、上記コードのように `ExitHandler` ラベルへ一本化し、正常系・異常系どちらを通過しても必ず `Set = Nothing` が評価されるスクラム構造を構築しなければならない。
—
5. 運用・保守におけるアーキテクトの助言
1. マスタ文書の配置場所
マスタとなる `.dotx` または `.docx` ファイルは、ローカルの固定パスではなく、信頼できるネットワーク共有フォルダまたはOneDriveの同期ローカルパス（`Environ(“UserProfile”)` 経由で動的取得）に配置するロジックを追加することを推奨する。
2. 組み込みスタイル名のローカライズ（言語問題）
`”Heading 1″` と `”見出し 1″` の問題である。`CopyStylesFromTemplate` は内部ID（`WdBuiltinStyle` 定数）をベースにマージを行うため、英語版Wordで作成されたテンプレートを日本語版Wordで読み込んでも正しくマッピングされる。スタイル名を文字列で指定するコード（例: `Styles(“見出し 1”)`）は避け、可能な限りEnum値（`wdStyleHeading1`）またはテンプレート一括同期に委ねるべきである。
本アプローチを導入することで、これまで数時間を要していた「提出前の文書書式チェック・手修正作業」は一瞬で完了し、人間の主観が入らない絶対的なフォーマット統一が実現する。
