日本語入力にしてキーを叩くと読点「、」が入力され、英語入力にしてキーを叩くとカンマ「,」が入力されます。 文を作成していると、読点を入力したいのにカンマを入力してしまったり、その逆があったり。 Sub カンマと読点() Dim R As String R = “([A-Za-zA-Za-zΑ-Ωα- […]
1回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。 Sub 全文を承諾してコメントを削除する() On Error Resume Next With ActiveDocument .Revisions.AcceptAll If .Comments.Count > […]