Bonjour,
je débute dans la creation de macros sous word et,
je souhaite creer une macro qui me permette de rechercher les liens hypertexte dans tout le fichier afin de vérifier s'ils sont valides ou non !
pour débuter je voudrais les lister (les liens) ainsi que leur cible , et savoir à quelle page ils sont !
voici le code , mais je n'arriver pas à faire résulter le numéro de page courant ou se trouve chaque lien![]()
Merci d'avance pour votre aide .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Sub recherche_hyperlinks() Set myRange = ActiveDocument _ .Range(start:=ActiveDocument.Content.End - 1) Count = 0 For Each aHyperlink In ActiveDocument.Hyperlinks Count = Count + 1 With myRange .InsertAfter "Link #" & Count & ":" & vbTab .InsertAfter aHyperlink.TextToDisplay .InsertAfter aHyperlink.Target & vbTab & " - " .InsertAfter aHyperlink.Range & " -> " .InsertAfter aHyperlink.Address .InsertParagraphAfter End With Next aHyperlink End Sub
Partager