マーキングをしたいときに
文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。
次のコードは、カーソル位置の文全体を赤色にマーキングします。
|
1 2 3 |
Sub マーキング赤() Selection.Sentences(1).Font.Color = wdColorRed End Sub |
元の色に戻すコードは、次のとおりです。
|
1 2 3 |
Sub マーキング戻す() Selection.Sentences(1).Font.Color = wdColorAutomatic End Sub |
例えば、次のような文において、第２文の任意の場所にカーソルを当てて実行すると、
↓のように、第２文が赤色でマーキングされます。
（ご参考）
関連記事
変更履歴の承諾とコメントの削除を一度に済ませたいときに
１回の実行で、変更履歴をすべて承諾し、コメントをすべて削除するマクロをご紹介します。 Sub 全文を承諾してコメントを削除する() On Error Resume Next With ActiveDocument .Revisions.AcceptAll If .Comments.Count > […]
隅付き括弧と角括弧を入れ替えたいときに
たまに、段落番号の表示等で使う墨付き括弧’【】’を角括弧’[]’に変更するとき、または、その逆に変更するときがあります。 そのようなとき、簡単に括弧の種類を変更できるマクロを作成しました。 Sub 括弧の種類を変えます() Dim cur As Range Dim objRng As Range S […]
変更履歴だらけにしたくないときに
ワードの原稿に変更履歴で修正を入れることがあります。複数出てくる名称等は、変更履歴をオンにしてCtr+Hなどで一括置換すると便利です。 しかしながら、一括置換も多用しすぎると、文書が変更履歴だらけになってしまいます。 例えば、「制御装置」を「制御部」に変えるとき、「制御」はそのままで、「装置」だけ「 […]