【Word VBA】特定の書式の変更履歴だけ削除したい

あるところから

というご相談がありました。こういうやつですね。

簡単な方法としては、Word の「校閲」の変更履歴の表示設定で「書式設定」のチェックを外して書式設定の履歴を非表示にするやり方がありますが、それだと蛍光ペン以外の書式変更も非表示になってしまいます。

蛍光ペンに関する変更履歴だけを狙い撃ちにして非表示にするには、その部分だけを「承諾」してしまう手もあります。次のような簡単な VBA で、特定の書式の変更履歴だけを承諾できます。

Sub a()

    Dim r As Revision
    For Each r In ActiveDocument.Revisions

        If InStr(r.FormatDescription, "蛍光ペン") > 0 Then
            r.Accept
        End If

    Next

End Sub