How to Find and Replace the Hyperlink Property of Text in Word 200

[Ky Chapple]

I am trying to replace the Hyperlink address that has been added to text.
So, the URL is not directly viewable in the document; it is the Hyperlink
property on some text. I'm trying to change the URL address of all
occurrences in the document from one URL to another. Similar to finding and
replacing text in a document...this text just happens to be the Hyperlink
property added to a text string.

 

[Doug Robbins - Word MVP]

Use a macro something like this (you would need to change if for
Hyperlinks):

' Macro created 26/10/01 by Doug Robbins to update links in a document
'
Dim alink As Field, linktype As Range, linkfile As Range
Dim linklocation As Range, i As Integer, j As Integer, linkcode As Range
Dim Message, Title, Default, Newfile
Dim counter As Integer

counter = 0
For Each alink In ActiveDocument.Fields
If alink.Type = wdFieldLink Then
Set linkcode = alink.Code
i = InStr(linkcode, Chr(34))
Set linktype = alink.Code
linktype.End = linktype.Start + i
j = InStr(Mid(linkcode, i + 1), Chr(34))
Set linklocation = alink.Code
linklocation.Start = linklocation.Start + i + j - 1
If counter = 0 Then
Set linkfile = alink.Code
linkfile.End = linkfile.Start + i + j - 1
linkfile.Start = linkfile.Start + i
Message = "Enter the modified path and filename following this
Format " & linkfile
Title = "Update Link"
Default = linkfile
Newfile = InputBox(Message, Title, Default)
End If
linkcode.Text = linktype & Newfile & linklocation
counter = counter + 1
End If
Next alink


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

 

[Doug Robbins - Word MVP]

Maybe a better way is to use Alt+F9 to display all of the field codes in the
document and then you can use Edit>Replace

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

 

[Ky Chapple]

Hi Doug,

This worked and much easier than going down the potential path of having to
write a macro (which was probably doable, just was hoping it would not have
been needed - which looks like it was not).

So, thank you for your tip/help...much appreciated.

Ky.