[VBA Word] Recherche des liens hypertexte

[sirkim]

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 :

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 .

[zazaraignée]

En espérant que ça t'aidera

Code :

1
2
3
4
5
6
7
8
9
10
Sub ListeLiens()
    Dim message As String
    Dim hlien As Hyperlink
    For Each hlien In ActiveDocument.Hyperlinks
        With hlien
            message = message & .TextToDisplay & ", " & .Address & vbCrLf
        End With
    Next
    MsgBox message
End Sub

Pour les numéros de pages... Ça, j'avoue que je n'ai jamais réussi.