マーキングをしたいときに

文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。そんなときに便利なコードをご紹介します。

次のコードは、カーソル位置の文全体を赤色にマーキングします。

Sub マーキング赤()
Selection.Sentences(1).Font.Color = wdColorRed
End Sub

Sub マーキング赤()

Selection.Sentences(1).Font.Color = wdColorRed

End Sub

元の色に戻すコードは、次のとおりです。

Sub マーキング戻す()
Selection.Sentences(1).Font.Color = wdColorAutomatic
End Sub

Sub マーキング戻す()

Selection.Sentences(1).Font.Color = wdColorAutomatic

End Sub

例えば、次のような文において、第２文の任意の場所にカーソルを当てて実行すると、

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

地味に便利なコードです。。

色を変えたいとき、wdColorRed（赤色）の部分を修正してください。色の種類は、イロイッカイズツをご参照ください。

（ご参考）

関連記事