変更履歴の承諾とコメントの削除を一度に済ませたいときに
自分が作成したワード原稿を依頼者に提出した後、依頼者が変更履歴で修正をしてくださり、また、コメントを追加してくださることがあります。
変更履歴とコメントを入念にチェックした後、すべて問題ないとき、変更履歴すべて反映し、コメントをすべて削除し、次の作業に入ります。
そのとき、１回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。
|
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を押しながら右矢印キーカタカタを叩いて句読点まで選択して削除をします。僅かな時間ですが、積み重なると大きな時間になります。 このときに、次の句読 […]
改行された文を結合したいときに
メインクレームの記載を実施形態に埋め込みたいとき、 例えば、 徒然草と、 枕草子と、 古今和歌集と、 平家物語と、 をまとめたレポート。 などのように、改行された文をまとめ、一文で 「徒然草と、枕草子と、古今和歌集と、平家物語と、をまとめたレポート」 のようにしたい。 これを実現するマクロを作成しま […]