マーキングをしたいときに
文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。
次のコードは、カーソル位置の文全体を赤色にマーキングします。
1 2 3 |
Sub マーキング赤() Selection.Sentences(1).Font.Color = wdColorRed End Sub |
元の色に戻すコードは、次のとおりです。
1 2 3 |
Sub マーキング戻す() Selection.Sentences(1).Font.Color = wdColorAutomatic End Sub |
例えば、次のような文において、第2文の任意の場所にカーソルを当てて実行すると、

↓のように、第2文が赤色でマーキングされます。

(ご参考)