マーキングをしたいときに
文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。そんなときに便利なコードをご紹介します。
次のコードは、カーソル位置の文全体を赤色にマーキングします。
|
1 2 3 |
Sub マーキング赤() Selection.Sentences(1).Font.Color = wdColorRed End Sub |
元の色に戻すコードは、次のとおりです。
|
1 2 3 |
Sub マーキング戻す() Selection.Sentences(1).Font.Color = wdColorAutomatic End Sub |
例えば、次のような文において、第２文の任意の場所にカーソルを当てて実行すると、
↓のように、第２文が赤色でマーキングされます。
地味に便利なコードです。。
色を変えたいとき、wdColorRed（赤色）の部分を修正してください。色の種類は、イロイッカイズツをご参照ください。
（ご参考）
関連記事
ドキュメント内を上へジャンプしたいときに
前回の越え行きたしの回では、下方へジャンプするマクロをご紹介しましたが、ここでは、上方へジャンプするマクロをご紹介します。 Sub 上に移動() Dim 選択文字 As String 選択文字 = “（” Selection.HomeKey unit:=wdLine, Extend:=wdMove […]
ワードの画面がまぶしいときに
仕事柄、一日中ワードに向かって文書を作成することが多いのですが、画面が白いとまぶしてく目が疲れます。 そのため、ワードを使うときには、背景を黒色にして作業をしています。 ところが、作業の際には背景を黒色にしたり、納品の際には背景を白色に戻したりと、マウスのポチポチに意外と手間がかかります。 自動化し […]
イロイッカイズツ
その昔、「イロイッカイズツ」というメッセージが表示され、カラーコード０〜７が示す色の順番にしたがって移動すると、謎が解けるという、黎明期のRPGがありました。 現在のPCは、技術の進歩によって多くの色を再現可能です。 ワードマクロでもカラーコードのような色定数が用意されています。 色定数のリストは、 […]