変更履歴の承諾とコメントの削除を一度に済ませたいときに
１回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。
Sub 全文を承諾してコメントを削除する()
On Error Resume Next
With ActiveDocument
.Revisions.AcceptAll
If .Comments.Count > 0 Then .DeleteAllComments
End With
End Sub
（参考）
関連記事
キーワードをテレコにしたいときに
文を書き進めていくと、２つのキーワードをテレコにしたいときがあります。 例えば「第１部材」を書いた後、説明の順番で どうしても「第１部材」の前に「第２部材」を書き入れたくなることがあります。そのまま書き入れると、「第１部材」の前に唐突に「第２部材」が登場してしまいます。 Sub さかさまなり() D […]
隅付き括弧と角括弧を入れ替えたいときに
たまに、段落番号の表示等で使う墨付き括弧’【】’を角括弧’[]’に変更するとき、または、その逆に変更するときがあります。 そのようなとき、簡単に括弧の種類を変更できるマクロを作成しました。 Sub 括弧の種類を変えます() Dim cur As Range Dim objRng As Range S […]