ワードマクロの世界 > ワード > 変更履歴の承諾とコメントの削除を一度に済ませたいときに

変更履歴の承諾とコメントの削除を一度に済ませたいときに

１回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。

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 元の色に […]

隅付き括弧と角括弧を入れ替えたいときに

たまに、段落番号の表示等で使う墨付き括弧’【】’を角括弧’[]’に変更するとき、または、その逆に変更するときがあります。 そのようなとき、簡単に括弧の種類を変更できるマクロを作成しました。 Sub 括弧の種類を変えます() Dim cur As Range Dim objRng As Range S […]

読点・カンマを整えたいときに

日本語入力にしてキーを叩くと読点「、」が入力され、英語入力にしてキーを叩くとカンマ「,」が入力されます。 文を作成していると、読点を入力したいのにカンマを入力してしまったり、その逆があったり。 Sub カンマと読点() Dim R As String R = “([Ａ-Ｚａ-ｚA-Za-zΑ-Ωα- […]