ワードマクロの世界 > ワード > マーキングをしたいときに

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

文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。

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

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

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

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

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

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

（ご参考）

背景の色を黒色にしたい背

キーワードの色を一括で変えたい

英字・数字・括弧の色を変えたいときに

関連記事

句読点まで一気に選択したいときに

文を書いたり修正したりしていると、カーソルの移動に時間がかかることがあります。例えば、現在のカーソル位置から次の句読点までの部分を削除したいとき、Shiftを押しながら右矢印キーカタカタを叩いて句読点まで選択して削除をします。僅かな時間ですが、積み重なると大きな時間になります。 このときに、次の句読 […]

英字・数字・括弧の色を変えたいときに

符号等を記載するとき、英字や数字、括弧を使用します。これらの色を変えると、文のチェックがより容易になります。 そこで、英字や数字、括弧の色を変えるマクロを作成しました。 Sub 英字数字括弧いろかはれ() Dim 英字ギリシャ文字 As String: 英字ギリシャ文字 = “[Ａ-Ｚａ-ｚA-Za […]

読点・カンマを整えたいときに

日本語入力にしてキーを叩くと読点「、」が入力され、英語入力にしてキーを叩くとカンマ「,」が入力されます。 文を作成していると、読点を入力したいのにカンマを入力してしまったり、その逆があったり。 Sub カンマと読点() Dim R As String R = “([Ａ-Ｚａ-ｚA-Za-zΑ-Ωα- […]