【Word VBA】変更履歴を壊さずに「特定の書式だけ」を消す極意｜ClearFormattingの罠を越えて
こんにちは。Wordという、一見するとただの文書作成ソフト、しかしその裏側には狂気とも言える複雑なオブジェクトモデルが広がる「魔境」に足を踏み入れたあなたへ。
マクロの記録を卒業し、自分の手でコードを書こうとすると必ず突き当たる壁があります。そう、「なぜか`ClearFormatting`を使うと、苦労して記録した変更履歴まで吹き飛んでしまうのか？」という問題です。
今日は、Word VBAの深淵に触れる第一歩として、変更履歴という「資産」を保護しつつ、特定の段落の書式だけを外科手術のようにリセットする技術を伝授します。
—
1. なぜ「ClearFormatting」は禁じ手なのか？
多くの初心者が最初に覚えるのが `Selection.ClearFormatting` です。これは非常に強力ですが、Wordの内部構造においては「書式というレイヤーを全削除する」という破壊的なコマンドです。
変更履歴（Track Changes）は、Wordのエンジンにとって「文書の履歴」という極めて繊細なレイヤーに刻まれています。`ClearFormatting`を叩くと、Wordは「書式情報が更新された」と判断し、その変更が履歴として残るどころか、場合によっては履歴の整合性を壊し、文書をクラッシュさせる原因にもなります。
プロのエンジニアは、「全消去」ではなく「個別のプロパティを初期値に戻す」というアプローチを取ります。
—
2. 実践：変更履歴を維持したまま書式をリセットする
特定の段落（Paragraph）から「手動で設定した装飾」だけを剥がし、スタイルに基づいた状態に戻すための、安全かつ洗練されたアプローチを紹介します。
核心となるコード
Sub ResetParagraphFormattingSafely()
‘ 対象となる段落を取得
Dim targetPara As Paragraph
Set targetPara = Selection.Paragraphs(1)
‘ 変更履歴を維持するために「書式の全消去」は使わない
‘ その代わり、フォントプロパティを直接「初期状態」へ戻す
With targetPara.Range.Font
.Reset ‘ フォントの直接設定（太字、斜体、色など）をデフォルトに戻す
End With
‘ 段落設定（インデントや行間など）をスタイル基準に戻す
With targetPara.Format
.Reset ‘ 段落設定をクリア
End With
‘ ここがポイント：
‘ 明示的に「スタイルを再適用」することで、
‘ 変更履歴を肥大化させずにクリーンな状態へ復帰させる
targetPara.Style = targetPara.Style
MsgBox “変更履歴を保持したまま、書式のリセットが完了しました。”
End Sub
—
3. なぜこのコードが「プロ仕様」なのか
このコードには、単なる命令以上の「知見」が込められています。
1. `Font.Reset` の活用: これが重要です。`ClearFormatting`が「すべてを無にする」のに対し、`Font.Reset`は「手動で上書きされたフォント属性のみを削除する」という挙動をします。これにより、変更履歴の断片化を防ぎます。
2. `targetPara.Style = targetPara.Style` という魔術:
実は、段落に対して「現在のスタイルを代入し直す」という操作は、Word内部で「現在の書式をスタイルの定義で上書き更新する」という信号を送ります。これにより、手動でいじりすぎて崩れたレイアウトを、一瞬で「本来あるべき姿」に引き戻すことができるのです。
3. オブジェクトの粒度:
`Selection`全体を操作するのではなく、`Paragraphs(1)`という単位でターゲットを明確にしています。これにより、意図しない場所の書式が崩れる事故を最小限に抑えています。
—
4. 陥りやすい罠：エラーを避けるために
現場でよくある失敗は、「選択範囲がテーブルの中にある場合」や「保護された文書」に対してこのコードを実行することです。
- テーブル内の挙動: テーブルセル内では、`Paragraph`の扱いに注意が必要です。セル内には必ず段落記号が含まれますが、構造が複雑な場合は `Selection.Range` を経由して処理する方が安全です。
- 変更履歴の「承諾」とは別物: このコードは「変更履歴を記録したまま見た目を戻す」ものです。もし「履歴を確定（承諾）させたい」のであれば、`ActiveDocument.Revisions.AcceptAll` を使う必要があります。これと混同しないようにしてください。
—
最後に：自動化の先にあるもの
Word VBAは「文書という静的なデータ」を「プログラムで動的に制御する」魔法です。今回紹介した手法を使えば、何百ページもある文書の「手動でいじり倒されて崩壊した書式」を、変更履歴を汚さずに一瞬で修正できるようになります。
「とりあえず動くコード」を書く段階から、「なぜそのメソッドを選ぶのか」を説明できる段階へ。この一歩を踏み出したあなたは、すでに中級者の入り口に立っています。
次は、`Find`オブジェクトを組み合わせて、文書内の特定の書式を持つ単語だけを自動抽出してリセットするような、より高度な自動化にも挑戦してみてください。
何か疑問があれば、いつでも聞いてください。あなたの自動化ライフが、より効率的で美しいものになることを願っています。
