Discussion :

[Tintou]

Bonjour,

J'effectue un publipostage d'access (97) vers word (2003), et je souhaiterais pouvoir changer la couleur d'un mot après (ou avant) l'avoir insérer à son signet.

J'ai essayé de multiples solutions sans succès, pas d'erreur mais aucun changement de couleur. Voici deux exemples de codes que j'ai essayés :

Code :

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

1
2
3
4
5
 
Dim a As Bookmark
Set a = Doc.Bookmarks("meascod1")
a.Range.Font.Color = wdColorBlue
a.Range.Text = subresrs(4).Value

et

Code :

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

1
2
3
4
 
Doc.Bookmarks("meascod1").Range.Text = subresrs(4).Value
myWord.Selection.MoveRight wdWord, 1, wdExtend
myWord.Selection.Font.Color = wdColorBlue

PS : je n'ai pas posté dans word car depuis word j'arrive à le faire avec ce code (juste pour avoir une idée du code):

Code :

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

1
2
3
4
 
ActiveDocument.Bookmarks("book").Range.Text = "cucu"
Selection.MoveRight wdWord, 1, wdExtend
Selection.Font.Color = wdColorBlue

Merci d'avance.

[Tintou]

Voila un code qui fait quelque chose (pas du tout ce que je veux!) :

Code :

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

1
2
3
4
 
Doc.Bookmarks("meascod1").Select
Doc.Range.Font.Color = wdColorBlue
Doc.Range.Text = subresrs(4).Value

Juste après l'exécution de ces lignes, il ne me reconnait plus aucun signet, c'est à dire que dès qu'il rencontre une ligne du type : Doc.Bookmark("signet").Range.Text = "balbla", j'ai une erreur m'indiquant que le signet n'existe pas.

Une fois que j'arrive à la fin, je n'ai plus qu'un signet dans mon document word avec la bonne info et la bonne couleur. Mais c'est juste un mot isolé dans un page blanche. Alors que le document fait initialement une trentaine de page.