Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oChar As Range
For Each oChar In Selection.Range.Characters
  Debug.Print Asc(oChar) 'For information.  Remove in final code.
  Select Case Asc(oChar)
    Case 65 To 90, 97 To 122, 48 To 57 'AZaz0-9
      oChar.Font.Color = wdColorRed
    Case 9, 10, 11, 13, 32, 160
      'Skip
    Case Else
      '????
  End Select
Next oChar
End Sub

Sub TestColorMacro()
Const MyName As String = "TestColorMacro"
Dim msg As String
msg = "Test the set of printable colors. Press Enter to continue or Cancel to abort."
Dim temp
temp = InputBox(msg, MyName, "OK")
If temp = "" Then Exit Sub

'Define the set of printable characters
Dim CharSet As String
CharSet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" _
        & "abcdefghijklmnopqrstuvwxyz" _
        & "1234567890`~!@#$%^&*()-_=+[]{}\|;:,.<>/?" _
        & "'""" & Chr(145) & Chr(146) & Chr(147) & Chr(148)

Dim obChar As Range
For Each obChar In Selection.Characters
'  'Display the ASCII code
'  msg = obChar & "=" & Asc(obChar)
'  MsgBox msg
  'If the character is in the set, color it red.
  If InStr(CharSet, obChar) > 0 Then
    obChar.Font.Color = RGB(255, 0, 0)
  'Otherwise, color it green
  Else
    obChar.Font.Color = RGB(0, 255, 0)
  End If
Next obChar

End Sub