Changing reference to hyperlink using code

[ZABU]

I need to search a server for all files containing hyperlinks associated
with one server name and replace it with another server name, but the path
remaining portion of the path will remain the same. My corporation is
changing the naming convention of our primary server, with no thought to
this issue. EX: "Servername1\this location" change to "Servername2\this
location". Any Ideas on how to do this, example code would be helpful. I
may need to perform this operation on multiple links within the same
document and save each document.

Regards,

ZABU

 

[Doug Robbins - Word MVP]

HI Zabu,

Maybe this will help. It could be run on a batch of files in a folder by
use of the Dir statement.

' 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


--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP