Avec une macro :

Sub bicolore()
Dim i
With ActiveDocument.Content.Characters
For i = 1 To .Count
n = i Mod 2
If n = 0 Then .Item(i).Font.ColorIndex = wdRed
Next
End With
End Sub

NB : Choisissez la couleur qui vous convient. En choisissant la couleur wdWhite, votre texte aura une lettre sur deux invisible (sur papier blanc) !