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

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

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

Sub 全文を承諾してコメントを削除する()
On Error Resume Next
With ActiveDocument
    .Revisions.AcceptAll
    If .Comments.Count > 0 Then .DeleteAllComments
End With
End Sub

（参考）

背景を白色に戻したいとき

関連記事

04

明細書作成ツール

明細書の作成に際し、名称と名称の符号をチェックするのは意外と厄介です。 この名称と符号の入力のチェックを大幅に削減することができる明細書作成支援ツールがあります。 詳しくは、こちらをご覧ください。 Shoheyzaka Systems

  • 作成者: アキノハ
  • カテゴリー: ワード

キーワードをテレコにしたいときに

文を書き進めていくと、２つのキーワードをテレコにしたいときがあります。 例えば「第１部材」を書いた後、説明の順番で どうしても「第１部材」の前に「第２部材」を書き入れたくなることがあります。そのまま書き入れると、「第１部材」の前に唐突に「第２部材」が登場してしまいます。 Sub さかさまなり() D […]

マーキングをしたいときに

文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。 次のコードは、カーソル位置の文全体を赤色にマーキングします。 Sub マーキング赤() Selection.Sentences(1).Font.Color = wdColorRed End Sub 元の色に […]