Code:
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