Référence à un signet [Résolu]

[Eric93]

Bonjour,

Je crée un signet de la forme [valeur]
Je crée une référence sur ce signet (CTRL + F9) de la forme { REF test }

J'ai le code suivant qui me permet de remplacer la valeur du signet (ce qui le supprime) puis de la récreer :

Code :

1
2
3
4
5
6
7
8
signet = "test"
valeur = "nouvelle valeur"
ActiveDocument.Bookmarks(signet).Select
ActiveDocument.Bookmarks(signet).Range.Text = valeur
deb = Selection.Start
fin = deb + Len(valeur)
ActiveDocument.Range(deb, fin).Select
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=signet

J'ai 2 questions :

1/ A la fin de mon programme le signet est remplacé mais pas la référence, je suis obligé de faire "apercu avant impression" puis de refermer pour la mettre à jour, j'ai trouvé que ca, est-il possible d'actualiser la référence par programme ?

2/ Une fois actualisé, on ne vois plus que la valeur di signet, les accolades ont disparu, on ne voit plus que c'est une référence, est-il possible de les voir comme les signets (option affichage signet) ?

Merci d'avance

[Sepia]

Salut,

Malheureusement Word ne permet pas de mettre à jour des références (comme Excel, par exemple). Mais le code pour faire la mise à jour est simple, il consiste à faire "Sélectionner tout" et "Mettre à jour les champs"

Code :

1
2
3
4
5
 
    ' "Sélectionner Tout"
    Selection.WholeStory
    ' "Mettre à jour les champs"
    Selection.Fields.Update

Attention, après ton document est toujours entièrement sélectionné, donc si tu dois insérer du code, tu risques d'écraser sauf si tu changes ta sélection.

Pour le 2ième point, il s'agit d'une option d'affichage. Utilise la commande "Outils-Options"-onglet "Affichage" et clique sur la case à cocher "Codes de champ" dans la zone "Affichage". Ils seront toujours affichés avec leurs codes et pas avec leurs valeurs.

A+

[Eric93]

La mise à jour globale me conviens parfaitement.

Pour l'affichage, tant pis, je voulais afficher avec les valeur mais que l'on vois que c'est une reference, comme les crochet pour les signets.

Merci

[Heureux-oli]

Si tu veux afficher que c'est une référence, tu peux toujours modifier la coleur de fond en gris clair.

[Eric93]

On peux modifier la couleur pour toute les référence ou je dois les modifier une par une ?

[Heureux-oli]

Avec une boucle, on peut le faire pour toutes en une fois.

Code :

1
2
3
4
5
Dim fld As Field
For Each fld In AcitveDocument.Fields
    fld.Select
    Selection.Shading.BackgroundPatternColor = wdColorGray05
Next fld

Essaie comme ça.

[Eric93]

Merci et si je veux faire la même chose pour les signets ?

[Eric93]

Bizarre j'ai mis ton code à la fin de ma macro, il m'as bien mis tout les champ en gris clair.

Mais quand je rééxécute ma macro ca ne marche plus, ils restent en blanc.