You can colour the alternative characters of a selected piece of text (here
red and blue) with a simple macro
Sub ColorText()
Dim colA As String
Dim colB As String
Dim i As Long
Dim j As Long
colA = wdColorBlue
colB = wdColorRed
With Selection
For i = 1 To .Characters.Count Step 2
.Characters(i).Font.Color = colA
Next i
For j = 2 To .Characters.Count Step 2
.Characters(j).Font.Color = colB
Next j
End With
End Sub
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>