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

in7el · 07-30-2020, 06:33 AM

Quote:

Originally Posted by Guessed

Try this code which toggles from one to the other

Code:

Sub ToggleURLs()
  Dim aHL As Hyperlink
  For Each aHL In ActiveDocument.Hyperlinks
    If aHL.TextToDisplay = "url" Then
      aHL.TextToDisplay = aHL.Address
    Else
      aHL.TextToDisplay = "url"
    End If
  Next aHL
End Sub

Legend thanks a lot