[WD-2010] [VBA] Mise en forme avec Macro

[Brossard56]

Bonjour,

Je débute avec les macros et je cherche à mettre en forme une partie du texte.
Je souhaite que :
- le 1er mot du premier paragraphe soit en gras et rouge (est-ce aussi faisable pour un mot à une position précise dans un paragraphe)

- lorsqu'il y a un mot précis en début de phrase, la taille de police passe à 8 et qu'il y ait une bordure horizontale au dessus de cette ligne.

Merci par avance

B56

[carden752]

Bonjour,

Oui, cela est possible.

Par exemple, pour tous les paragraphes mettre en rouge et en gras le premier mot et le changer en premier.

Code :

1
2
3
4
5
6
7
8
9
10
Sub mise()
Dim a As Paragraph
For Each a In ActiveDocument.Paragraphs 'Parcourir tous les paragraphes
With a.Range.Words(1).FormattedText 'Formatter le premier mot de chaque paragraphe
.Bold = True 'Mettre en gras
.Font.Color = wdColorRed 'Mettre en rouge
.Text = "Premier " 'Ecrire premier
End With
Next
End Sub

Je vous laisse adapter cet exemple à votre besoin.

[Brossard56]

Merci pour votre réponse.

Je viens de rajouter ce code au début de macro que j'avais déjà en place en l'adaptant un peu (couleur, taille de la police, ne pas mettre le mot "premier").
Par contre je n'arrive pas à l'adapter de manière à n'avoir que le 1er mot du premier paragraphe qui se modifie.
J'ai essayé d'enlever ce qui me paraissait être une boucle (texte en bleu dans le code) à l'intérieur des documents mais ça ne fonctionne pas

Code :

1
2
3
4
5
6
7
8
Dim a As Paragraph
For Each a In ActiveDocument.Paragraphs 'Parcourir tous les paragraphes
With a.Range.Words(1).FormattedText 'Formatter le premier mot de chaque paragraphe
.Bold = True 'Mettre en gras
.Font.Color = wdColorRed 'Mettre en rouge
.Font.Size = 18 'Mettre en 18
End With
Next

Je pense que c'est le a (en violet) qui doit "planter" mais je ne vois pas comment m'en sortir.

[carden752]

Bonjour,

Pour sélectionner le premier paragraphe

Code :

ActiveDocument.Paragraphs(1)

Essayez comme ceci :

Code :

1
2
3
4
5
6
 
With ActiveDocument.Paragraphs(1).Range.Words(1).FormattedText 'Formatter le premier mot de chaque paragraphe
.Bold = True 'Mettre en gras
.Font.Color = wdColorRed 'Mettre en rouge
.Font.Size = 18 'Mettre en 18
End With

[Brossard56]

Merci Carden752.

Je vais essayer de continuer cette petite macro