Recherche

 

Avec une macro :

Sub bicolore()
Dim i
With ActiveDocument.Content.Characters
For i = 1 To .Count
= 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) !

 

Statistiques

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

65

Pays
018273690
Aujourd'hui: 13
Hier: 68
Cette semaine: 13
Semaine dernière: 783
Ce mois: 1.952