Change path in hyperlinks

[Angie M.]

Hi,

I have about 100 hyperlinks in a document, they all link to pdf files in the
following location: \\IRFILE\Company\Apps

For example. one hyperlink is:

"\\IRFILE\Company\Apps\PDF\My Client\CLOSING BINDER\TAB 002.pdf"

I want to replace it with:

"F:\Apps\PDF\My Client\CLOSING BINDER\TAB 002.pdf"

the same for all 100 hyperlinks, I just want to replace the first part of
the string with my new location (we moved everything to our new server).

So far I have:

For Each hLink In Documents(1).Hyperlinks
If InStr(hLink.Address, "\\IRFILE\Company\Apps") <> 0 Then
hlink.address, "F:\Apps"
Exit For
End If
Next hLink

I found this code but I'm not sure how to replace just part of the string of
each hyperlink.

Can anybody help?

Thanks!

 

[Greg Maxey]

Try:

Sub Scratchmacro()
Dim hlink As Hyperlink
For Each hlink In Documents(1).Hyperlinks
hlink.Address = Replace(hlink.Address, "\\IRFILE\Company", "F")
Next hlink
End Sub

 

[Angie M.]

THANKS GREG!

Try:

Sub Scratchmacro()
Dim hlink As Hyperlink
For Each hlink In Documents(1).Hyperlinks
hlink.Address = Replace(hlink.Address, "\\IRFILE\Company", "F")
Next hlink
End Sub