Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Long Documents / December 2003

Tip: Looking for answers? Try searching our database.

Hperlinks not working on other machines

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Vipul Vashisht - 22 Dec 2003 07:26 GMT
I have created a word doc where there are several
hyperlinks to different doc files. I have put all files
including parent doc file and hyperlinked word docs in a
single folder and zipped it and mail to some friends but
hyperlinks are not working on any of my friends machines.
What to do?
Vipul
Doug Robbins - Word MVP - DELETE UPPERCASE CHARACTERS FROM EMAIL ADDRESS - 22 Dec 2003 09:06 GMT
Hi Vipul,

The surest thing would be to insert the other documents rather than to try
and rely on hyperlinks.

The problem is that the links are probably not pointing to the location in
which the files are located on your friends machines.

It's probably asking a bit too much of your friends, but you could give them
the following macro which would enable them to update the hyperlinks to the
location in which they have the files:

' 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
> I have created a word doc where there are several
> hyperlinks to different doc files. I have put all files
[quoted text clipped - 3 lines]
> What to do?
> Vipul
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.