マーキングをしたいときに
文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。
次のコードは、カーソル位置の文全体を赤色にマーキングします。
|
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 英字数字括弧いろかはれ() Dim 英字ギリシャ文字 As String: 英字ギリシャ文字 = “[Ａ-Ｚａ-ｚA-Za […]
USキーボードの日本語入力
日本語配列キーボードであれば、Windows（キーとタッチのカスタマイズ）で設定をすれば、変換/無変換キーでIMEのオン/オフ制御ができ、日本語入力と英語入力の切り替えができますが、英語配列キーボードには、変換/無変換キーがありません。 唯一の（と思われる）手段として、IME-オン/オフをCtrl+ […]
隅付き括弧と角括弧を入れ替えたいときに
たまに、段落番号の表示等で使う墨付き括弧’【】’を角括弧’[]’に変更するとき、または、その逆に変更するときがあります。 そのようなとき、簡単に括弧の種類を変更できるマクロを作成しました。 Sub 括弧の種類を変えます() Dim cur As Range Dim objRng As Range S […]