変更履歴の承諾とコメントの削除を一度に済ませたいときに
１回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。
|
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 括弧の種類を変えます() Dim cur As Range Dim objRng As Range S […]
キーワードをテレコにしたいときに
文を書き進めていくと、２つのキーワードをテレコにしたいときがあります。 例えば「第１部材」を書いた後、説明の順番で どうしても「第１部材」の前に「第２部材」を書き入れたくなることがあります。そのまま書き入れると、「第１部材」の前に唐突に「第２部材」が登場してしまいます。 Sub さかさまなり() D […]
USキーボードの日本語入力
日本語配列キーボードであれば、Windows（キーとタッチのカスタマイズ）で設定をすれば、変換/無変換キーでIMEのオン/オフ制御ができ、日本語入力と英語入力の切り替えができますが、英語配列キーボードには、変換/無変換キーがありません。 唯一の（と思われる）手段として、IME-オン/オフをCtrl+ […]