1回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。 Sub 全文を承諾してコメントを削除する() On Error Resume Next With ActiveDocument .Revisions.AcceptAll If .Comments.Count > […]
符号等を記載するとき、英字や数字、括弧を使用します。これらの色を変えると、文のチェックがより容易になります。 そこで、英字や数字、括弧の色を変えるマクロを作成しました。 Sub 英字数字括弧いろかはれ() Dim 英字ギリシャ文字 As String: 英字ギリシャ文字 = “[A-Za-zA-Za […]
文を書き進めていくと、2つのキーワードをテレコにしたいときがあります。 例えば「第1部材」を書いた後、説明の順番で どうしても「第1部材」の前に「第2部材」を書き入れたくなることがあります。そのまま書き入れると、「第1部材」の前に唐突に「第2部材」が登場してしまいます。 Sub さかさまなり() D […]