Discussion :

[michelraymond]

Bonjour,

Je dispose d'un fichier de généalogie sous Word, dont voici un extrait
...
0176;SAUNIER, Jean François; 17.6.1681;Réclère
0177;RIAT, Catherine; ~ 1690;Chenevez
0178;JOLISSAINT, Pierre Germain; 12.10.1704;Réclère
0179;SAUNIER, Jeanne Catherine; 14.5.1713;Damvant;JOLISSAINT,
0180;MACABRÉ, Pierre; 7.6.1693;Damvant
...
Le nom du grand père est précédé d'un nombre pair, le nom de l'épouse est précédé du nombre impair immédiatement supérieur.
De façon générale tous les nombres sont impairs pour les femmes.

Un fichier peut être assez long et donc assez fastidieux à lire
Je voudrait pouvoir lancer une Macro sous Word qui
- lit chaque ligne
- impose une écriture rouge pour les lignes où elle trouve un nombre impair (donc une femme)

Est ce possible simplement ?
Vous remerciant par avance
Bonne fin de journée
Michel

[Heureux-oli]

Salut,

Si la structure de ton fichier est toujours la même, c'est assez simple.

On fait une boucle sur les paragraphes du document.
On fait un split du texte pour en prendre la première partie.
On convertit en texte et si le modulo 2 donne 1, on colore la ligne.

En code, ça peu donner ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub colorerEnRouge()
Dim myTable
Dim myPar As Paragraph
 
For Each myPar In ActiveDocument.Paragraphs
 myTable = Split(myPar.Range.Text, ";")
 Debug.Print myTable(0)
 
 
If CInt(myTable(0)) Mod 2 = 1 Then
   myPar.Range.Font.ColorIndex = wdRed
End If
Next myPar
 
 
End Sub