変更履歴の承諾とコメントの削除を一度に済ませたいときに
自分が作成したワード原稿を依頼者に提出した後、依頼者が変更履歴で修正をしてくださり、また、コメントを追加してくださることがあります。
変更履歴とコメントを入念にチェックした後、すべて問題ないとき、変更履歴すべて反映し、コメントをすべて削除し、次の作業に入ります。
そのとき、１回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。
|
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 |
しからばこれにて
（参考）
関連記事
ドキュメント内を下へジャンプしたいときに
文を修正するとき、関連した部分の修正も必要となり、あっちもこっちも修正することがあります。マウスホイールを指で弾いて画面をスクロールさせるのですが、これが結構時間かかります。 例えば、実施形態の記載を修正し、併せて変形例の記載も修正するときなど、実施形態を修正し、画面をスクロールさせて変形例を探し出 […]
句読点まで一気に選択したいときに
文を書いたり修正したりしていると、カーソルの移動に時間がかかることがあります。例えば、現在のカーソル位置から次の句読点までの部分を削除したいとき、Shiftを押しながら右矢印キーカタカタを叩いて句読点まで選択して削除をします。僅かな時間ですが、積み重なると大きな時間になります。 このときに、次の句読 […]
マーキングをしたいときに
文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。そんなときに便利なコードをご紹介します。 次のコードは、カーソル位置の文全体を赤色にマーキングします。 Sub マーキング赤() Selection.Sentences(1).Font.Color = wdC […]