Microsoft Office Forums - View Single Post - Can anyone help me with renaming of specific hyperlinks macro

in7el · 07-30-2020, 03:16 AM

Quote:

Originally Posted by gmayor

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

I have attached a sample doc and ss of the two macros. Regards.