View Single Post
 
Old 01-09-2013, 06:17 AM
gmaxey gmaxey is offline Windows 7 32bit Office 2010 (Version 14.0)
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,598
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default

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
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote