マーキングをしたいときに
文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。
次のコードは、カーソル位置の文全体を赤色にマーキングします。
Sub マーキング赤() Selection.Sentences(1).Font.Color = wdColorRed End Sub
元の色に戻すコードは、次のとおりです。
Sub マーキング戻す() Selection.Sentences(1).Font.Color = wdColorAutomatic End Sub
例えば、次のような文において、第2文の任意の場所にカーソルを当てて実行すると、
![](https://i0.wp.com/autumnleaf.biz/wp-content/uploads/2019/03/z1.png?fit=1024%2C143&ssl=1)
↓のように、第2文が赤色でマーキングされます。
![](https://i0.wp.com/autumnleaf.biz/wp-content/uploads/2019/03/z2.png?fit=1024%2C121&ssl=1)
(ご参考)