Word: impression de la source de liens

Bonjour,

J'ai bien une idée pour les docs Word... S'il s'agit d'autres types de document qui ne sont pas des docs Office, je ne sais pas s'il y a possibilité d'utiliser l'automation...

Macro à mettre dans le doc en question qui contient les liens :

Sub liens()
If ThisDocument.Hyperlinks.Count >= 1 Then
For Each lien In ActiveDocument.Hyperlinks
lien.Follow
If ActiveDocument <> ThisDocument Then
ActiveDocument.PrintOut
ActiveDocument.Close
End If
Next lien
End If
End Sub

m@rina

hello!

merci pour la macro, je vais tester.

MAIS question complémentaire, comment faire pour la "déclencher" au moment de l'impression?

bon finalement on peut laisser tomber ma dernière question:
-> j'ai rajouté un " ActiveDocument.PrintOut " avant le parcours des liens du fichier pour imprimer d'un seul clic le doc courant ET les liens

ok, maintenant, dernière chose: je voudrais (si c'est possible??) affecter un bouton à cette macro MAIS un bouton qui ne s'afficherait qu'au chargement de CE fichier là!
-> pas un bouton permanent (& inutile dans 95% des cas) dans la barre d'outil

possible ou pas?

2010

m@arina, y aurait-il moyen d'avoir la macro, format word 2003?

pour des raisons techniques compliquées à expliquer, il faudrait que je repasse à un format 97/2003!

et visiblement VBA a du évoluer depuis car l'exec' plante sur la ligne lien.Follow

Bonsoir,

Le code est le même. Il y a très peu de différences entre le VBA 2003 et celui de 2007. Et ce code fonctionne quelque soit la version (testé).

Quelle est l'erreur ?

m@rina

message sans précision particulière il me semble, mais je vérifierai lundi au bureau, prtscr au besoin...

bon WE.

=> erreur d'exécution 4148: la commande a échoué

prtscr: http://www.hostingpics.net/viewer.php?id=193256bug.jpg
-> ligne fluotée "lien.Follow"

est ce que ça aurait qq chose à voir avec ça?
(pas super clair cela dit...)

https://support.microsoft.com/en-us/help/228701/

faudrait que je t'envoie mon .doc par mail en fait, je pense, pour que tu vois par toi même

pas d'idée?

Bonjour,

Je ne connais pas ce bug, mais il est envisageable. Tu dois bien savoir si tes liens sont du texte ou sur des dessins...

m@rina

j'ai fini par trouver... et c'est tout con!
-> super le libellé 4198...........

je bosse en TSE (choix de la boite!) et j'ai des temps de réponse de folie... parfois 2 ou 3 secondes!

bref, je ne sais pas comment, mais pendant un de ces lags, quand je bossais sur les liens, la cible du 1er a changé... et donc il ne trouvait simplement plus la cible vers laquelle pointait le lien!

alors:
-> le libellé 4198
ET
-> le kb228701..............

***** je te jure, MS hein!!!???!!!

merci en tout cas ;-)

comme tu dis oui............ mais même sur le net, l'erreur 4198 c'est vraiment LA fourre-tout, t'en trouves à tous les coins de rues, pour tout et n'importe quoi!

;-)