【Word VBA】変更履歴を殺さずに書式を「部分リセット」する極限の技術
Word VBAを扱っていると、必ずぶつかる壁がある。`Paragraph.Range.ClearFormatting` だ。
「特定の段落の装飾を一度クリアして、スタイルを再適用したい」——そう思ってこのメソッドを叩いた瞬間、それまで積み上げてきた「変更履歴（Track Changes）」は跡形もなく消え去る。 クライアントや法務部門から「なぜ履歴が消えたんだ？」と詰められる未来が見えるだろう。
なぜ `ClearFormatting` が危険なのか。それは、Word内部の「書式情報」と「履歴情報」が不可分な領域で結合されているからだ。今日は、この泥沼を回避し、履歴を保持したまま特定の属性だけを外科手術のように書き換える、プロの現場で通用する堅牢な実装手法を伝授する。
—
1. なぜ「全クリア」は禁じ手なのか
`ClearFormatting` は、Range内のすべての書式情報を「標準（Normal）」に戻そうとする。このプロセスは「削除」ではなく「置換」に近い処理を内部で行うため、Wordの変更履歴エンジンがこれを「書式変更の履歴」として捉えきれず、あるいは既存の履歴と競合して破壊してしまう。
業務自動化エンジニアとして我々が目指すべきは、「必要な属性だけを明示的に上書きする」ことだ。破壊するのではなく、上書きする。これが鉄則である。
—
2. 変更履歴を保持したまま書式を操作する「限定的リセット」手法
特定の属性だけをクリアしたい場合、あるいは標準状態に戻したい場合、`Font` オブジェクトのプロパティを個別に初期化するのが最も安全だ。
以下のコードは、指定した段落の「フォントサイズ」「フォント色」「太字」のみを強制リセットし、その他の履歴情報は一切触れないアプローチである。
【プロダクションコード】安全な属性リセット・モジュール
‘ ———————————————————————-
‘ 目的: 変更履歴を保持しつつ、特定の段落の書式を安全にリセットする
‘ 備考: ClearFormattingを避けることで、履歴エンジンとの競合を防ぐ
‘ ———————————————————————-
Public Sub ResetParagraphFormatting(ByVal targetPara As Paragraph)
Dim rng As Range
Set rng = targetPara.Range
‘ エラーハンドリング：保護された文書や読み取り専用への対策
On Error GoTo ErrHandler
With rng.Font
‘ 必要な属性のみを初期値(wdUndefined/wdColorAutomatic等)へ戻す
‘ これらは「変更」として履歴に残るが、文書構造全体を破壊しない
.Name = “ＭＳ 明朝” ‘ フォント名を固定
.Size = 10.5 ‘ サイズを標準へ
.Bold = False ‘ 太字を解除
.Color = wdColorAutomatic ‘ 色を自動へ
.Italic = False ‘ 斜体を解除
End With
‘ 段落自体のインデントをリセットする場合
With targetPara.Format
.LeftIndent = 0
.FirstLineIndent = 0
End With
Exit Sub
ErrHandler:
Debug.Print “書式リセット失敗: ” & Err.Description
End Sub
—
3. 実務で「詰む」ポイント：データベース連携とXML出力
この自動化ツールを外部データベースやXML形式のレポート生成と組み合わせる場合、注意すべき点がある。
1. スタイルの継承問題:
段落に「スタイル」が適用されている場合、手動でフォント属性をリセットしても、`Style` 自体の定義が変更されると結果が上書きされる。テンプレート側の `Style` 定義が正しいか、常に `Style.NameLocal` をチェックするロジックを噛ませるべきだ。
2. XML保存時の整合性:
Wordの変更履歴は、XML形式（Flat OPCやWordML）で保存する際、非常に繊細な構造を持つ。VBAで操作した直後に `ActiveDocument.SaveAs2` を行うと、Wordの再計算処理（レイアウトエンジン）が走り、履歴が意図しない形で確定されてしまうことがある。重要な更新の前には必ず `DoEvents` を挟み、WordのUIスレッドに処理を委譲する余裕を持たせること。
—
4. リーダーからのアドバイス
「とりあえず動くコード」を書くのはジュニアエンジニアだ。しかし、「クライアントの履歴を汚さないコード」を書くのが、本当の意味でのプロフェッショナルである。
もし大規模な文書でこの処理を繰り返す場合は、`Application.ScreenUpdating = False` で描画を停止し、処理が終わるまで一気に駆け抜ける設計にせよ。そして、何よりも重要なのは「どのプロパティをリセット対象にするか」を定数化し、仕様変更に強いコードにすることだ。
Word VBAは、枯れた技術ではない。Wordの内部構造という「ブラックボックス」をどれだけ論理的に解釈できるかという、高度な知的格闘技なのだ。君たちのコードが、誰かの業務時間を確実に削り取る武器になることを期待している。
