Word VBAの深淵：変更履歴を破壊せずに「書式のみ」を外科手術する極意
Word VBAにおける最大の罠の一つ。それが `Range.ClearFormatting` メソッドだ。
多くのエンジニアが「段落の書式をリセットしよう」としてこのメソッドに手を出し、その瞬間に文書内の「変更履歴（Track Changes）」や「コメント」をゴミ箱に投げ捨てるという失態を演じる。なぜなら、Wordの内部構造において、書式情報のクリアは`Range`の再構築を伴い、それは時にメタデータの境界を破壊するからだ。
今日は、変更履歴を保持したまま、特定の段落のプロパティだけを「狙撃」する手法を伝授する。
—
1. なぜClearFormattingは「劇薬」なのか
`Range.ClearFormatting` は、その範囲に含まれる全ての書式をデフォルト値に戻す。これはWordのオブジェクトモデルにおいて、内部的なXML構造（OpenXML）を強制的に書き換える操作に等しい。
変更履歴が有効な場合、この操作は「変更箇所の削除」と「新規挿入」としてWordエンジンに解釈されることがある。結果、文書は赤線だらけになり、レビューアの信頼を失う。
我々アーキテクトが取るべきアプローチは、「全破壊」ではなく「個別のプロパティへの直接代入」である。
—
2. 変更履歴を保護する「外科手術」コード
特定の属性（フォント名、サイズ、インデントなど）をリセットしつつ、コメントや履歴を維持する実装がこちらだ。
Option Explicit
‘ メモリ管理を意識したオブジェクト解放の設計
Public Sub ResetParagraphFormatting(ByRef targetPara As Paragraph)
Dim rng As Range
Set rng = targetPara.Range
‘ 変更履歴を維持するため、ClearFormattingは絶対に使用しない。
‘ 代わりにFontおよびParagraphFormatオブジェクトのプロパティを直接リセットする。
‘ 1. フォント情報の個別リセット
With rng.Font
.Name = “游明朝”
.Size = 10.5
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.Color = wdColorAutomatic
End With
‘ 2. 段落フォーマットの個別リセット
With rng.ParagraphFormat
.LeftIndent = 0
.RightIndent = 0
.SpaceBefore = 0
.SpaceAfter = 0
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
End With
‘ 3. 明示的なメモリ解放（VBAでは参照カウンタを落とすのが定石）
Set rng = Nothing
End Sub
—
3. シニアエンジニアが意識すべき「メモリと安定性」の極意
このコードを実務で運用する際、以下の3点に留意せよ。これらができていないシステムは、いずれ必ず大規模な文書処理でスタックする。
① 参照の「取り回し」を最小化せよ
`Selection`オブジェクトを多用するコードは、Wordのレンダリング処理を呼び出し、パフォーマンスを著しく低下させる。必ず`Range`オブジェクトを生成し、バックグラウンドで処理せよ。`ScreenUpdating = False` は必須だが、それ以上に「Wordが画面を描画する機会を与えない」ことが高速化の鍵だ。
② 大規模文書におけるパフォーマンスのボトルネック
`Paragraph`オブジェクトをループ処理する際、`.Next`プロパティを頻繁に呼び出すと、Wordの内部キャッシュが飽和する。
大規模な文書であれば、以下のように処理をバッチ化することを推奨する。
‘ 悪い例: Paragraphを一つずつ操作し、毎回Wordが再描画を計算する
‘ 良い例: 変更箇所をメモリ上の配列に格納し、一括で適用するか、
‘ またはRangeオブジェクトの終端を動的に拡張する。
③ レガシー環境と「ゴミ」の掃除
Word VBAは、特に `Range` の生成や `Selection` の操作において、メモリリークを誘発しやすい。特に、COMオブジェクトを参照する際、ループ内で生成したオブジェクトは、必ずループの直後に `Set object = Nothing` で解放すること。これをサボると、文書が長くなるほどWordが重くなる「VBA特有の慢性疾患」に見舞われる。
—
4. 最後に：なぜ「直接代入」なのか
`ClearFormatting` は便利だが、Wordの「状態」を制御する権限をAPIに丸投げする行為だ。
真の自動化エンジニアは、Wordのレンダリングエンジンに余計な推論をさせない。値を明示的に上書きすることで、Wordは「これは書式の更新だ」と認識し、変更履歴（Revision）のフラグを立てることなく、静かにスタイルを書き換える。
これが、システム管理者として、そしてアーキテクトとして守るべき「文書の整合性」に対する責任だ。
次に仕様書を書き換える際は、ぜひこの「外科手術」を試してほしい。Wordという巨大なブラックボックスを、自分の支配下に置く感覚が味わえるはずだ。
