【Word VBA極限講座】変更履歴の魂を殺さず、書式だけを外科手術的に書き換える技術
業務自動化の現場において、Word文書のスタイルやフォントの一括置換は、一見すると初歩的な課題に見える。
しかし、それが「変更履歴（TrackRevisions）が有効な法的文書や契約書のレビュー段階」であった瞬間、話は180度変わる。
素人が書いた安易なVBAコードは、変更履歴を無視してプロパティを直叩きし、文書全体を「誰が・いつ変えたか分からない不審な改変の塊」に変えてしまうか、あるいは「変更履歴が残らないバグ」を引き起こす。さらに最悪な場合、Wordの内部キャッシュと競合してCOM例外（エラー 4605 など）を爆誕させる。
真のチーフアーキテクトであれば、Wordのドキュメントライフサイクルと変更履歴エンジンの挙動を完全に制御し、「中身のテキストの変更履歴は微塵も汚さず、指定した段落の書式（余白、インデント、行間など）だけを外科手術的に更新する」という高度なマジックを実装できなければならない。
今回は、その極限のテクニックを完全公開する。
—
1. なぜ「単純な一括置換」では変更履歴が破壊されるのか？
Word VBAで `Paragraph.Format` や `Font` プロパティを書き換えるとき、デフォルトの状態では、その変更自体が「変更履歴」として記録されるか、あるいは変更履歴のコンテキストを無視して強制上書きされる。
監査やコンプライアンスが厳格な企業において、フォーマットの整形（例えば「全角スペースの削除に伴うインデント調整」や「コーポレートフォントへの統一」など）で変更履歴が大量発生すると、「どこが実質的な条文の変更で、どこが単なるレイアウト修正なのか」が判別できなくなり、レビュー担当者を絶望の淵に追い込むことになる。
我々が目指すべきゴールはこれだ：
- テキストの追加・削除・置換履歴は一切改変しない。
- しかし、段落のレイアウト・書式属性のみをターゲットを絞って最新の状態にアップデートする。
これを実現するためには、Wordの `Application.TrackRevisions` プロパティのスコープをプログラム側で完全に掌握し、トランザクションのように安全に制御する必要がある。
—
2. 堅牢な設計アプローチ：変更履歴エンジンの一時無効化とエラーハンドリング
Wordの変更履歴はグローバルな状態を持っているため、コードの途中でエラー落ちすると、「変更履歴がオフのまま放置される」という致命的なヒューマンエラー（データ破損のリスク）につながる。
したがって、プロダクションコードにおける鉄則は以下の通りだ：
1. エラータフネス（Error-Resilient）: `On Error Goto` を必ず使用し、異常終了時でも必ず変更履歴の状態を元のフラグに復元する。
2. スコープの最小化: 書式変更を行う瞬間だけ `TrackRevisions = False` にし、処理が終わったら即座に復元する。
3. オブジェクトの明示的参照: `Selection` や `ActiveDocument` の暗黙的な参照を避け、ドキュメントオブジェクトを変数にバインドしてパフォーマンスを最大化する。
—
3. 【プロダクションコード】変更履歴を保持したまま書式のみを更新するVBAモジュール
以下のコードは、実務の現場でそのままコピペして利用できる、極めて堅牢に設計されたプロシージャである。
指定したスタイル、あるいは特定のキーワードを含む段落に対してのみ、変更履歴を汚さずにフォントおよび段落書式を強制適用する。
Option Explicit
‘ ==============================================================================
‘ 処理名 : UpdateParagraphFormatsWithoutTracking
‘ 概要 : ドキュメントの変更履歴（TrackRevisions）を維持したまま、
‘ 特定の段落書式とフォント設定のみを安全に更新する。
‘ 著者 : Enterprise Automation Architect
‘ ==============================================================================
Public Sub UpdateParagraphFormatsWithoutTracking()
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ 変更履歴の元の状態を退避（監査・安全性の確保）
Dim originalTrackStatus As Boolean
originalTrackStatus = targetDoc.TrackRevisions
‘ エラーハンドリングの有効化（異常終了時の状態復元を担保）
On Error GoTo ErrorHandler
‘ 1. トランザクション開始：変更履歴の記録を一時停止
‘ ※これを行うことで、書式変更自体が「変更履歴」として記録されるのを防ぐ
targetDoc.TrackRevisions = False
‘ 画面描画を停止し、処理速度を劇的に向上させる
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
Dim para As Paragraph
Dim targetCount As Long
targetCount = 0
‘ 2. 段落コレクションの走査
For Each para In targetDoc.Paragraphs
‘ 【条件判定の例】
‘ ここでは例として、スタイル名が「標準」または特定の条件を満たす段落を対象にする
‘ ※業務要件に合わせてこのIF文の条件を書き換えること
If para.Style = “標準” Or para.Style = “Normal” Then
‘ — 段落書式（ParagraphFormat）の適用 —
With para.Format
.SpaceBefore = 0 ‘ 段落前間隔
.SpaceAfter = 6 ‘ 段落後間隔
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(1.15) ‘ 行間 1.15行
.LeftIndent = CentimetersToPoints(0) ‘ 左インデント
.RightIndent = CentimetersToPoints(0) ‘ 右インデント
.KeepWithNext = False ‘ 次の段落と同一ページ
End With
‘ — フォント書式（Font）の適用 —
With para.Range.Font
.NameAscii = “Meiryo”
.NameFarEast = “メイリオ”
.Size = 10.5
.Color = RGB(51, 51, 51) ‘ チャコールグレー
End With
targetCount = targetCount + 1
End If
Next para
‘ 3. トランザクション正常終了：変更履歴の状態を元に戻す
targetDoc.TrackRevisions = originalTrackStatus
‘ 画面描画の復元
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
MsgBox “処理が完了しました。” & vbCrLf & _
“更新された段落数: ” & targetCount & ” 件”, _
vbInformation, “VBAアーキテクチャ・インスペクター”
Exit Sub
ErrorHandler:
‘ 異常終了時の安全弁：何があっても変更履歴の状態と画面描画を復元する
targetDoc.TrackRevisions = originalTrackStatus
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
MsgBox “致命的なエラーが発生しました。” & vbCrLf & _
“Error Description: ” & Err.Description, _
vbCritical, “System Error”
End Sub
—
4. チーフアーキテクトからの実装上の注意点
1. `Application.ScreenUpdating` の重要性
Word VBAで `For Each para In targetDoc.Paragraphs` を回す際、画面描画が有効なままだと、1段落処理するごとにDOM（Document Object Model）の再描画走査が走り、処理時間が数十倍から数百倍に跳ね上がる。数千行の契約書等では致命傷になるため、必ず `False` にすること。
2. フォントのプロパティ設定（`NameAscii` と `NameFarEast`）
日本語文書において `.Name = “メイリオ”` のみを指定すると、英数字部分と日本語部分でフォントが乖離してレイアウトが崩れる原因になる。プロフェッショナルなコードでは、欧文（Ascii）と和文（FarEast）を明示的に分離して指定するのが鉄則である。
3. データベースや外部システム連携時の前処理
もしこのマクロが、外部のデータベースやRPA（UiPathやPower Automateなど）から呼び出される場合、事前にドキュメントの「保護（Protect）」が有効になっていないかチェックするロジックを前段に挟む必要がある。保護された文書に対して `Format` プロパティを操作すると、容赦なくトラップ不能なエラーが発生するためだ。
—
総括
Word VBAにおける「変更履歴の制御」は、単なるプロパティの操作ではなく、「文書の歴史とインテグリティ（整合性）を守るエンジニアリング」である。
今回紹介したトランザクション的なフラグ管理と堅牢なエラーハンドリングをマスターすれば、いかなる厳格な法務・コンプライアンス文書の自動整形案件であっても、クライアントの信頼を裏切ることなく完璧にタスクを遂行できるはずだ。
プロフェッショナルとしての誇りを持ち、ワンランク上の自動化コードを現場に実装してほしい。
