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

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
Merci d'avance pour votre aide .