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'hui2428
Hier2427
Cette semaine7228
Ce mois41618
Total depuis 200413302692

12
visiteurs actuellement en ligne

22 septembre 2021