Can anyone help me with renaming of specific hyperlinks macro

gmayor · #1 07-30-2020, 01:41 AM

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

in7el · #2 07-30-2020, 02:34 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

Really appreciate the help, unfortunately that didn't work. I will make up a dummy document and provide it shortly. Bare with.

in7el · #3 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.

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