Inserer des renvoi dans un doc word via une macro VB excel

Inserer des renvoi dans un doc word via une macro VB excel - VB/VBA/VBS - Programmation

Marsh Posté le 21-05-2011 à 17:51:17    

bonjour à tous ,
 
J'ouvre un doc word à partir d'une macro Excel et ensuite ma macro va créer un signet par page et je voudrais ensuite qu'elle puisse insérer tous les renvois de ces signets sur la première page de mon doc automatiquement  pour pouvoir ensuite cliquer dessus et me rendre directement à la bonne page.
je ne trouve pas cette commande d'insertion de renvois.
 
Merci de me dépanner si des fois cela existe

Reply

Marsh Posté le 21-05-2011 à 17:51:17   

Reply

Marsh Posté le 23-05-2011 à 16:56:18    

Dans 2007 elle est  dans l'onglet insertion, renvoi.
Dans <2007, elle est dans Insertion, Référence, Renvoi
 
Tu peux aussi passer par les codes de champ ou par des liens hypertext.
Exemple :
 
Page1 :
Blablablabla sommaire :
 * Saut de page
 
Page2 :
I Les oiseaux migrateurs se gratent ils que d'un coté ?
 * Saut de page
 
Page3 :
II La palourde est elle le coquillage le plus léger ?
 * Saut de page
 
 
Donc tu sélectionnes le texte "I Les oiseaux migrateurs se gratent ils que d'un coté ?" tu inseres un signet que tu nommes T1
Idem avec "II La palourde est elle le coquillage le plus léger ?", tu nommes le signet T2
 
Methode RENVOI :
 - Tu te mets sur la page1, Onglet Insertion, Renvoi
 - Dans "catégorie" tu pioches "Signet", et dans "Inserer un renvoi à" tu pioches également "Signet"
 - Tu sélectionnes un à un tes signets et tu les inseres.
Tu as donc tes liens vers tes signets, avec le nom du texte où ils pointent.
 
Méthode code de champ :
 - Faire Ctrl+F9 pour inserer un champ {}
 - Saisir { REF T1 \h }
 - "h" c'est pour inserer un lien hypertext
Tu as donc tes liens vers tes signets, avec le nom du texte où ils pointent.
(penser à mettre à jour les codes de champ)
 
Méthode lien hypertext :
 -Insertion, Lien Hypertext
 - A droite cliquez sur le bouton "Signet"
 - Selectionner ton signet
 - Avantage : tu peux mettre du texte personnalisé
Tu as donc tes liens hypertext vers tes signets, avec du texte personnalisé, pas forcément celui du signet.
 
 
Code pour Code de champ :

Citation :

Selection.InsertCrossReference ReferenceType:=wdRefTypeBookmark, ReferenceKind:= wdContentText, ReferenceItem:="T2", InsertAsHyperlink:=True


 
Code pour lien hypertext :

Citation :

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, SubAddress:="T2", ScreenTip:="InfoBulle", TextToDisplay:="Le texte du lien hypertext"


Message édité par SuppotDeSaTante le 23-05-2011 à 16:58:13

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 24-05-2011 à 21:24:39    

Ok j'essaye ça merci, je vous tiens au courant

Reply

Marsh Posté le 26-05-2011 à 16:07:46    

C'est nikel ca marche en revanche maintenant je veux inserer mes renvois dans une autre police et une autre taille que celle du signet.
Est-ce possible ?
 
Merci

Reply

Marsh Posté le 26-05-2011 à 16:23:20    

Euh j'ai aucun souci pour changer la police des renvois...
Une fois les renvois fait, tu sélectionnes le texte, et tu changes la police...
 
:??:


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 26-05-2011 à 19:54:29    

D'accord selectionner les renvois après les avoir insérés et pas pendant l'insertion , ok j'essaye

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed