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