Need to change the path in over 100 hyperlinks in a word doc.

Anyway to use Find and Replace?

Thanks
Jim

Press Alt+F9 to display field codes, and then use Find and
Replace to replace the path.

Jim in Spokane wrote:

Need to change the path in over 100 hyperlinks in a word doc.

Anyway to use Find and Replace?

Thanks
Jim

Thanks!
the link is long:
http://region1.dshs.wa.gov/Headquart...FOCUS%20012403
Alt+F9 displays:
HYPERLINK "GAU Focus 2002 2003\\GAU Weekly FOCUS 021403.doc"

The path I need to edit is Headquartersdoc.

Find and Replace works only on the visible part of the hyperlink.

Any suggestions?



"garfield-n-odie" wrote:

Press Alt+F9 to display field codes, and then use Find and
Replace to replace the path.

Jim in Spokane wrote:

Need to change the path in over 100 hyperlinks in a word doc.

Anyway to use Find and Replace?

Thanks
Jim

File--Properties. Change the Hyperlink Base.
*******************
~Anne Troy

www.OfficeArticles.com
www.MyExpertsOnline.com


"Jim in Spokane" wrote in message
...
Thanks!
the link is long:

http://region1.dshs.wa.gov/Headquart...FOCUS%20012403
Alt+F9 displays:
HYPERLINK "GAU Focus 2002 2003\\GAU Weekly FOCUS 021403.doc"

The path I need to edit is Headquartersdoc.

Find and Replace works only on the visible part of the hyperlink.

Any suggestions?



"garfield-n-odie" wrote:

Press Alt+F9 to display field codes, and then use Find and
Replace to replace the path.

Jim in Spokane wrote:

Need to change the path in over 100 hyperlinks in a word doc.

Anyway to use Find and Replace?

Thanks
Jim

' 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
"Jim in Spokane" wrote in message
...
Need to change the path in over 100 hyperlinks in a word doc.

Anyway to use Find and Replace?

Thanks
Jim