[ikovy]

I have the visual basic code below, but I need it to work for footnotes. Any
help, thanks.


Sub ListHyperlinks()
Dim srcDoc As Document, destDoc As Document
Dim HL As Hyperlink

Set srcDoc = ActiveDocument
Set destDoc = Documents.Add

For Each HL In srcDoc.Hyperlinks
destDoc.Range.InsertAfter _
HL.TextToDisplay & vbTab & HL.Address & vbCr
Next

destDoc.Range.ConvertToTable
End Sub