Based on this and your other post at
Help to create a Word macro to change re-named Hyperlinks back to their full web addr the following should work. If not, do as Iasked and send a sample document.
Code:
Sub Macro1()
Dim oLink As Hyperlink
For Each oLink In ActiveDocument.Hyperlinks
If UCase(oLink.TextToDisplay) Like "*URL*" Then
oLink.TextToDisplay = oLink.Address
End If
Next oLink
End Sub