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