cs_ZANUS
Messages postés126Date d'inscriptionvendredi 2 décembre 2005StatutMembreDernière intervention23 février 2007 19 juil. 2006 à 19:03
Salut,
Supposons que ton texte fasse 24 lignes et qu'il soit composé d'un bloc sans marque de paragraphe sauf sur la dernière ligne.
For i = 1 To 23
Selection.EndKey Unit:=wdLine
'Placer le curseur à la fin de la ligne
Selection.TypeParagraph
'Insérer une marque de paragraphe
Next i
End Sub
Ensuite, ctrl+h
Remplacer ^p Format de police/Couleur Noir
Par ^p Format de police/Couleur Noir
Tu verras le nombre de remplacements, il correspond au nombre de lignes en noir