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 wdBlue, pour le vert wdGreen, etc.

Sub premiers_mots()
Dim Paragraphe As Paragraph, mot As Range
For Each Para In ActiveDocument.Paragraphs
Set mot = Para.Range.Words(1)
mot.Font.ColorIndex = wdRed
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ères, 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, mot As Range
For Each Para In ActiveDocument.Paragraphs
Set mot = Para.Range.Words(1)
mot.Style = "monstyle"
Next
End Sub


S'il s'agit d'appliquer une couleur non pas au premier mot de chaque paragraphe, mais au premier caractères, la macro est pratiquement identique :

Sub premiers_cars()
Dim Paragraphe As Paragraph, car As Range
For Each Para In ActiveDocument.Paragraphs
Set car = Para.Range.Characters(1)
car.Style = "monstyle"
Next
End Sub
 

 

 

 

Statistiques

Aujourd'hui470
Hier2370
Cette semaine5248
Ce mois52276
Total depuis 200413428987

31
visiteurs actuellement en ligne

27 octobre 2021