符号等を記載するとき、英字や数字、括弧を使用します。これらの色を変えると、文のチェックがより容易になります。

そこで、英字や数字、括弧の色を変えるマクロを作成しました。

Sub 英字数字括弧いろかはれ()
Dim 英字ギリシャ文字 As String: 英字ギリシャ文字 = "[Ａ-Ｚａ-ｚA-Za-zΑ-Ωα-ω]"
Dim 数字 As String: 数字 = "[０-９0-9]"
Dim 括弧 As String: 括弧 = "[（*）]"

Call 着色する(英字ギリシャ文字, wdColorDarkRed)
Call 着色する(数字, wdColorAqua)
Call 着色する(括弧, wdColorBrightGreen)
End Sub

Sub 着色する(ByRef 置換文字 As String, カラー As Long)
With ActiveDocument.Range(0, 0).Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = 置換文字
    .Replacement.Font.Color = カラー
    .Format = True
    .Forward = True
    .Wrap = wdFindContinue
    .MatchFuzzy = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
    
    .Format = False
    .Font.Color = False
    .Replacement.Font.Color = False
    .Text = ""
    .MatchWildcards = False
End With
End Sub

このマクロでは、英字ギリシャ文字が濃赤色（wdColorDarkRed）、数字が水色（wdColorAqua）、括弧が明緑色（wdColorBrightGreen）に着色されます。色は、好みに応じて変えてください。