Can anyone help me with renaming of specific hyperlinks macro

Guessed · #1 07-30-2020, 03:55 AM

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

in7el · #2 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro: How to get this macro to save to a specific location	LOUF	Word VBA	1	12-07-2015 06:47 PM
Can anyone here tweek this macro for renaming Excel files based on a cell's contents?	chrisd2000	Excel Programming	6	07-01-2014 01:53 PM
Macro Needed to bold specific lines and Macro to turn into CSV	anewteacher	Word VBA	1	05-28-2014 03:59 PM
Image Renaming Macro?	jammer	PowerPoint	5	07-15-2013 09:21 AM
Create Hyperlinks from Word to specific location in PDF	sukanyae	Word	0	02-25-2010 04:08 PM