user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

On pourrait utiliser le Recherche-Remplace si l'on n'avait pas peur de colorer également le retour paragraphe qui précède.

Partant donc du principe que cette dernière solution n'est pas l'idéale, voici une macro qui peut faire ça rapidement. Cette macro met en rouge les premiers mots de chaque paragraphe. Si vous préférez le bleu, vous mettrez wdColorBlue, pour le vert wdColorGreen, etc. etc.

Sub premiers_mots()
Dim Paragraphe As Paragraph
For Each Para In ActiveDocument.Paragraphs
Set mot = Para.Range.Words(1)
mot.Font.ColorIndex = wdColorRed
Next
End Sub
 

Si vous avez besoin d'une couleur particulière, vous devrez la déterminer vous-même en donnant les indications RGB (red, green, blue). Exemple :

mot.Font.Color = RGB(125, 80, 0)


Plutôt que d'utiliser une couleur, il est cependant toujours préférable d'utiliser un style de caractère, ce qui vous permettra de choisir un groupe de formatages, couleur, gras, italique ou ce que vous voulez, et ensuite de changer d'avis sans avoir à refaire la macro, et juste en modifiant le style. La macro ci-dessus applique le style de caractères nommé "monstyle".

Sub premiers_mots()
Dim Paragraphe As Paragraph
For Each Para In ActiveDocument.Paragraphs
Set mot = Para.Range.Words(1)
mot.Style = "monstyle"
Next
End Sub
 

 

 

 

Statistiques

Aujourd'hui2694
Hier1546
Cette semaine2694
Ce mois24900
Total depuis 200412923785

12
visiteurs actuellement en ligne

12 avril 2021