Discussion :

[nyto35]

Bonjour à tous,

Je sollicite votre aide car j'ai un petit souci dans ma macro Word.

Je souhaite affecter une couleur spécifique à un texte dans mon sommaire, et ceux de façon automatique à chaque utilisation de la macro.

J'ai essayé de me renseigner, mais je ne dispose d'aucune piste à l'heure actuelle...

Quelqu'un aurait une idée ?

Cordialement,

[carden752]

Bonjour,

Il faut sélectionner le texte et ensuite travailler avec l'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

selection.font.color=wdColorAqua

Il faut soit modifier le style associé à la table des matières styles TM 1 à TM 9 par défaut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Styles("TM 1").Font.Color = wdColorAqua

[nyto35]

D'accord, je te remercie pour cette piste, or il doit y avoir un petit problème je te montre mon bout de code qui correspond au problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Selection.GoTo what:=wdGoToBookmark, Name:=SomCotis
        Selection.Range.Text = "Les cotisations" & NumPageCotis
        Selection.Font.Color = wdColorAqua
        ActiveDocument.Styles("TM 1").Font.Color = wdColorAqua

C'est à l'endroit du signet "SomCotis" que j'insère mon texte avec la méthode Range.
J'ai appliqué le style à cet endroit mais il ne se passe rien.
Tu vas sûrement trouver directement la solution car personnellement je ne suis pas encore un initié en VBA sous Word.

Cordialement,

[carden752]

Bonjour,

Première chose, si tu exécutes en pas à pas, tu verrais que ton texte n'est pas sélectionné donc il te faut changer la police avant.
Deuxième chose, les styles TM 1 à TM 9 sont réservés pour la table des matières donc c'est soit l'un, soit l'autre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Selection.GoTo what:=wdGoToBookmark, Name:=SomCotis
        Selection.Font.Color = wdColorAqua
Selection.Range.Text = "Les cotisations" & NumPageCotis

Attention, Ici, le nom du signet est défini comme marqué dans la variable SomCotis ce qui me paraît un peu surprenant si le nom du signet est SomCotis alors, il faut mettre Name:="SomCotis"

Dernier point en passant pour ajouter du texte dans un signet sans le détruire, je te conseille de regarder ce lien

[Sepia]

Salut nyto35,

La solution que carden752 t'a proposé est la bonne car c'est la plus simple dans Word. Tu ouvres Word (n'importe quel document), tu modifies les styles des TM<Niveau> comme tu veux, tu reportes tes modifications de tes styles dans ton modèle "Normal.dot" que tu sauvegardes.

Après dès que tu vas utiliser Word, tes styles de table des matières seront conformes à ce que tu as défini sans avoir à les modifier, y compris pour les tables des matières générées par macro.

@+