変更履歴の承諾とコメントの削除を一度に済ませたいときに
１回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。
Sub 全文を承諾してコメントを削除する()
On Error Resume Next
With ActiveDocument
.Revisions.AcceptAll
If .Comments.Count > 0 Then .DeleteAllComments
End With
End Sub
（参考）
関連記事
マーキングをしたいときに
文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。 次のコードは、カーソル位置の文全体を赤色にマーキングします。 Sub マーキング赤() Selection.Sentences(1).Font.Color = wdColorRed End Sub 元の色に […]
マクロが勝手に消えないようにしたいときに
ワードの一般的な設定情報は、下記の「Normal.dotm」ファイルに記録されていますが、どうも不安定です。 C:\Users\%username%\AppData\Roaming\Microsoft\Templates\Normal.dotm これとは別に、拡張子「dotm」のマクロ専用ファイルを […]