こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押してコードを生成するだけの日々は、もう卒業しましたね。
今回は、業務自動化の現場で最も頭を悩ませる難問の一つ、「変更履歴（トラッキング）を残したまま、プログラムから特定の書式だけをスマートに上書きする」という極上のテクニックを伝授します。
「変更履歴がオンの状態でVBAから書式を変えると、余計な変更履歴が残ってしまう…」
「かといって、履歴を切ると誰がどこを変えたか分からなくなる…」
そんなジレンマに直面したことはありませんか？
ここをクリアできれば、あなたも立派なWord VBAのアーキテクトです。さあ、一緒に本質をマスターしていきましょう！
—
なぜ、Wordの「変更履歴」とVBAの相性は最悪なのか？
まず、Wordの裏側の仕組みを少しだけ覗いてみましょう。
Wordの「変更履歴の記録（TrackRevisions）」が有効なとき、ドキュメントに対して何らかの変更を加えると、Wordはそれを「削除されたテキスト」「追加されたテキスト」「書式が変更されたテキスト」として監視し、内部の履歴ツリーに記録します。
ここで、素朴なVBAコードで段落のフォントやスタイルを変更したとします。
‘ 【やってはいけない例】
ActiveDocument.Paragraphs(1).Range.Font.Color = wdColorRed
これを変更履歴がオンの状態で実行するとどうなるか？
なんと、「ユーザーが意図的に赤字に変更した」という変更履歴がバッチリ残ってしまいます。
システムやバッチ処理で一括フォーマットを整えたいだけなのに、これでは「誰が・いつ変えたか分からない謎の修正履歴」が全文書にバラ撒かれてしまい、レビュー担当者は大激怒です。
—
解決の鍵：`TrackRevisions` プロパティの神制御
この問題を華麗に解決するのが、Documentオブジェクトが持つ `TrackRevisions` プロパティ です。
実は、VBAからこのプロパティを一時的に `False`（無効）にし、処理が終わったら即座に `True`（有効）に戻すという「トランザクション的な制御」を行うことで、変更履歴を汚さずに書式だけを書き換えることが可能になります。
図解的に表すと、こういうイメージです。
[ 処理前 ] 変更履歴: ON (通常稼働中)
↓
[ Step 1 ] VBAで TrackRevisions = False にする（一時休止）
↓
[ Step 2 ] 静かに目的の書式だけを適用（履歴に残らない！）
↓
[ Step 3 ] TrackRevisions = True に戻す（通常稼働再開）
↓
[ 完了 ] ユーザーの本来の履歴だけが美しく残る
「なんだ、そんな単純なことか」と思いました？
ええ、理論はシンプルですが、これを安全かつ確実に行うためのエラーハンドリングとオブジェクトのスコープ管理が、プロの腕の見せ所なのです。
—
【実践】変更履歴を保持したまま書式を更新するプロフェッショナルコード
それでは、実際の現場でそのままコピペして使える、堅牢なVBAコードを公開します。
今回は、「特定のスタイル（例：見出し1）がついている段落のフォントカラーを、変更履歴をつけずに『紺色』へ一括変更する」というシナリオを想定しています。
Sub UpdateFormattingWithoutTracking()
Dim doc As Document
Set doc = ActiveDocument
‘ 念のため、画面描画を停止してパフォーマンスを爆発的に上げる
Application.ScreenUpdating = False
‘ 変更履歴の現在の状態を退避（後で元に戻すため）
Dim originalTrackState As Boolean
originalTrackState = doc.TrackRevisions
On Error GoTo ErrorHandler ‘ 予期せぬエラーで履歴が無効のまま放置されるのを防ぐ
‘ 【重要】ここで変更履歴を一時的に無効化する
doc.TrackRevisions = False
‘ — ここから書式変更の処理 —
Dim para As Paragraph
For Each para In doc.Paragraphs
‘ 例として、「見出し 1」スタイルの段落だけをターゲットにする
If para.Style = “見出し 1” Then
With para.Range.Font
.Name = “Meiryo UI”
.Color = RGB(0, 51, 102) ‘ 渋い紺色
.Bold = True
End With
End If
Next para
‘ — ここまで —
ErrorHandler:
‘ 【超重要】エラーが発生しようがしまいが、必ず変更履歴の状態を復元する
doc.TrackRevisions = originalTrackState
‘ 画面描画を再開
Application.ScreenUpdating = True
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Else
MsgBox “変更履歴を汚さずに、書式の更新が完了しました！”, vbInformation
End If
End Sub
—
コードの注目すべき3大ポイント（知見の共有）
世界最高峰の現場で使われているこのコードには、初学者が陥りやすい罠を防ぐための「3つの絶対防衛線」が張られています。
1. `On Error GoTo` による状態の死守
もし、コードの途中で何らかのエラー（メモリ不足やオブジェクトの競合など）が発生した場合、`doc.TrackRevisions = False` のままプログラムが中断してしまうと大変です。ユーザーが気づかずにそのまま作業を続けると、「変更履歴が記録されない恐怖のドキュメント」が誕生してしまいます。
エラーハンドラを必ず用意し、どんな結末になろうとも元の状態（`originalTrackState`）に復元させるのがプロの作法です。
2. `Application.ScreenUpdating = False` による高速化
Word VBAは、画面の描画（GUIの更新）を伴うと劇的に遅くなります。数千行あるドキュメントの段落をループ処理する場合、描画を止めるだけで実行速度が数倍〜数十倍変わります。体感スピードの違いに驚くはずです。
3. レンジ（Range）と段落（Paragraph）の適切なスコープ
今回は段落全体のフォントを一括指定するために `para.Range.Font` を使っています。Word VBAでは、`Selection` オブジェクトを絶対に触らないこと。画面上のカーソルを動かさバックグラウンドで黙々と仕事をさせるのが、高速化と安定稼働の鉄則です。
—
まとめ：ここをクリアすれば、Word VBAの基本はバッチリです！
いかがでしたでしょうか？
今回は「変更履歴を保持したまま書式を更新する」という、一歩進んだ実用的なテクニックを解説しました。
- Wordの裏側で何が起きているか（変更履歴の仕組み）を理解する
- 一時的に機能をスイッチングし、必ず元の状態に戻す（トランザクション思想）
- エラーハンドリングでシステムの堅牢性を担保する
この3つさえ押さえておけば、どんなに複雑なクライアントの要望であっても、エレガントに自動化しきることができます。
Word VBAの基礎と本質は、もうあなたのものです。
ぜひ、日々の業務効率化にこの知見を役立ててください。それでは、次の自動化の旅でお会いしましょう！
