変更履歴の承諾とコメントの削除を一度に済ませたいときに
１回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。
|
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 さかさまなり() D […]
英字・数字・括弧の色を変えたいときに
符号等を記載するとき、英字や数字、括弧を使用します。これらの色を変えると、文のチェックがより容易になります。 そこで、英字や数字、括弧の色を変えるマクロを作成しました。 Sub 英字数字括弧いろかはれ() Dim 英字ギリシャ文字 As String: 英字ギリシャ文字 = “[Ａ-Ｚａ-ｚA-Za […]
マーキングをしたいときに
文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。 次のコードは、カーソル位置の文全体を赤色にマーキングします。 Sub マーキング赤() Selection.Sentences(1).Font.Color = wdColorRed End Sub 元の色に […]