remplacer et changer la couleur [Résolu]

[tomy7]

configuration office 2003 et xp pro
bonjour,
je developpe un outil depuis excel et celui-ci ouvre une page word qui est un modele avec des etiquettes pre-faites. j ai place dans ces etiquettes des leurres afin qu excel remplace mes leurres par une information qui est entrer ds un textbox sous excel.Ma question est que pour etre ecologique et esthetique je ne veux pas que mes leurres soit imprimer donc je les ai mis en blanc et lorsque je lance ma routine:

Code :

1
2
3
4
5
6
7
8
9
If CheckBox1 And CheckBox3 Then
        With appword.Selection.Find
            .Text = "Department1"
            .Font.Color = wdColorBlack
            .Replacement.Text = "Sales + Engineering"
            .ClearFormatting
            .Forward = True
            .Execute Replace:=wdReplaceAll
        End With

elle remplace bien le leurre mais elle ne repasse pas en noir car je ne sais pas comment utiliser: selection.font.color =wdcolorautomatic et tou le placer...

merci de votre future aide

[Heureux-oli]

Tu ne dois pas utiliser les leurres.

Le plus simple est d'utiliser des Signets.

Tu places un signet à l'endroit voulu de ton document, de préférence un modèle.

On utilise les signets comme suit :

Code :

1
2
 
ActiveDocument.Bookmarks("MonSignet").Range.Text = "Ce que je veux mettre"

Si tu es certains de l'ordre des signets, on peut les atteindre par leur index

Code :

ActiveDocument.Bookmarks(1).Range.Text

[tomy7]

merci de ton aide "Heureux-oli" (sympa le pseudo)

je vais tester ta methode je pense qu elle me mangera moins de ligne de code. et apres je vais essaye le passage du blanc au noir enfin reste ds le coin pour la suite STP.

[tomy7]

ok ta methode pour les bookmarks fonctionnent bien.
Maintenant, j ai coche dans "Inset\bookmarks>hidden bookmarks" pensant que cela aurait caches les bookmarks mais rien ne c'est passe.

aurais tu une idee a ce sujet?

mon objectif maintenant serait de cacher tous les bookmarks mais que quand mon programme en remplace certain, j' aimerai que ceux -ci apparraissent et que les autres restent caches.

aurais tu une autre idee a ce sujet?

merci pour ta future aide j'espere ou pour celle de quelqu' un d'autre.

[Heureux-oli]

Pourquoi les cacher, puisque lorsqu'ils sont vides, on ne les voit pas.

[tomy7]

la je pige pas ce que t'entend par vide.
moi ils apparaissent!

Alors comment fais tu pour qu'ils soientt vide !
Moi j'ai utilise ActiveDocument.Bookmarks("Department").Range.Text="Sales" par exemple

Mais pour declarer "Department" en tant que signet j'ai selectionne Department>Copy ensuite insert\bookmarks
la j ai fais paste puis Add et j ai coche Hidden bookmarks.

mais ils apparaissent toujours.
Alors peux tu m'eclairer, stp?

[Heureux-oli]

Tu positionnes le curseur à l'endroit voulu, tu ajoutes un signet sans sélectionner de texte.
Et on ne voit rien.

[tomy7]

ok je teste ta technique de suite... encore merci
je te tiens au courant de toute maniere!!!

[tomy7]

ok la technique fonctionne tres bien.
merci beaucoup pour ton aide Heureux-oli et pour ta patience...
a la prochaine.