変更履歴の承諾とコメントの削除を一度に済ませたいときに
１回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。
|
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 |
（参考）
関連記事
読点・カンマを整えたいときに
日本語入力にしてキーを叩くと読点「、」が入力され、英語入力にしてキーを叩くとカンマ「,」が入力されます。 文を作成していると、読点を入力したいのにカンマを入力してしまったり、その逆があったり。 Sub カンマと読点() Dim R As String R = “([Ａ-Ｚａ-ｚA-Za-zΑ-Ωα- […]
英字・数字・括弧の色を変えたいときに
符号等を記載するとき、英字や数字、括弧を使用します。これらの色を変えると、文のチェックがより容易になります。 そこで、英字や数字、括弧の色を変えるマクロを作成しました。 Sub 英字数字括弧いろかはれ() Dim 英字ギリシャ文字 As String: 英字ギリシャ文字 = “[Ａ-Ｚａ-ｚA-Za […]
変更履歴だらけにしたくないときに
ワードの原稿に変更履歴で修正を入れることがあります。複数出てくる名称等は、変更履歴をオンにしてCtr+Hなどで一括置換すると便利です。 しかしながら、一括置換も多用しすぎると、文書が変更履歴だらけになってしまいます。 例えば、「制御装置」を「制御部」に変えるとき、「制御」はそのままで、「装置」だけ「 […]