Microsoft Office Forums - View Single Post

macropod · 06-13-2014, 12:05 AM

Try:

Code:

Sub Colorize()
With Selection.Range
  Select Case .Font.ColorIndex
    Case wdAuto, wdBlack
      .Font.ColorIndex = wdWhite
      .HighlightColorIndex = wdBlack
    Case wdWhite
      .Font.ColorIndex = wdYellow
      .HighlightColorIndex = wdBlack
    Case wdYellow
      .Font.ColorIndex = wdAuto
      .HighlightColorIndex = wdNoHighlight
  End Select
End With
End Sub

For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm.