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

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

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

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

（参考）

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

関連記事

句読点まで一気に選択したいときに

文を書いたり修正したりしていると、カーソルの移動に時間がかかることがあります。例えば、現在のカーソル位置から次の句読点までの部分を削除したいとき、Shiftを押しながら右矢印キーカタカタを叩いて句読点まで選択して削除をします。僅かな時間ですが、積み重なると大きな時間になります。 このときに、次の句読 […]

04

明細書作成ツール

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

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

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

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