変更履歴の承諾とコメントの削除を一度に済ませたいときに
1回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。
1 2 3 4 5 6 7 |
Sub 全文を承諾してコメントを削除する() On Error Resume Next With ActiveDocument .Revisions.AcceptAll If .Comments.Count > 0 Then .DeleteAllComments End With End Sub |
(参考)