Sub HlinkChanger()
Dim oRange As Word.Range
Dim oField As Field
Dim link As Variant
With ActiveDocument
.Range.AutoFormat
For Each oRange In .StoryRanges
For Each oFld In oRange.Fields
If oFld.Type = wdFieldHyperlink Then
For Each link In oFld.Result.Hyperlinks
oFld.Select
Selection.MoveRight Unit:=wdCharacter, Count:=1
With Selection
With .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
End With
.Footnotes.Add Range:=Selection.Range, Reference:=”"
End With
Selection.TypeText Text:=link.Address
ActiveWindow.View.SeekView = wdSeekMainDocument
Next link
End If
Next oFld
Set oRange = oRange.NextStoryRange
Next oRange
End With
End Sub

I merged the script from Yves with one found on http://bit.ly/151sJ8, and the result seems to work for me (see below). Caveat: this was just an hack, I’m not a VBA programmer, and I struggle to remember how to open the VB editor from MS Word. All I can say is: this seems to work for me.

Sub HlinkChanger()
Dim oRange As Word.Range
Dim oField As Field
Dim link As Variant
With ActiveDocument
.Range.AutoFormat
For Each oRange In .StoryRanges
For Each oFld In oRange.Fields
If oFld.Type = wdFieldHyperlink Then
For Each link In oFld.Result.Hyperlinks
oFld.Select
Selection.InsertAfter (” (” + link.Address + “)”)
Next link
End If
Next oFld
Set oRange = oRange.NextStoryRange
Next oRange
End With
End Sub

I found a script on Microsoft’s Technet pages which promises to do exactly that:
http://technet.microsoft.com/en-us/library/ee692879.aspx

I have not yet tested it, but crossing my fingers that this what is needed…

The script is as follows:

Set objWord = CreateObject(“Word.Application”)
objWord.Visible = True

Set objDoc = objWord.Documents.Open(“c:\scripts\test.doc”)

Set colHyperlinks = objDoc.Hyperlinks

For Each objHyperlink in colHyperlinks
Wscript.Echo objHyperlink.Address
Wscript.Echo objHyperlink.TextToDisplay
Next

Variants are also given in the article for exporting the hyperlinks to ‘My favourites’ or to an HTML document.

I hope this helps a bit.

Thanks!