[macropod]

Hi Quin,

What didn't work? Works for me and I've posted this code quite a few times
before. This is the first time anyone's suggested it doesn't work. Did you
add the code to the target, save it, copy the source and target files to a
new folder, then re-open the target?

Cheers

--
macropod
[MVP - Microsoft Word]


"Quin" wrote in message
...
Seems to be the right track, but didn't work.


"macropod" wrote in message
...
Hi Quin,

Links to external files in Word are always absolute. Since you're
keeping
the source and target files in the same folder, you can use the
following
macro to automate the update process.

Option Explicit
Dim TrkStatus As Boolean ' Track Changes flag

Private Sub AutoOpen()
' This routine runs whenever the document is opened.
' It calls on the others to do the real work.
' Prepare the environment.
Call MacroEntry
' Most of the work is done by this routine.
Call UpdateFields
' Set the saved status of the document to true, so that changes via
' this code are ignored. Since the same changes will be made the
' next time the document is opened, saving them doesn't matter.
ActiveDocument.Saved = True
' Go to the start of the document
Selection.HomeKey Unit:=wdStory
' Clean up and exit.
Call MacroExit
End Sub

Private Sub MacroEntry()
' Store current Track Changes status, then switch off temporarily.
With ActiveDocument
TrkStatus = .TrackRevisions
.TrackRevisions = False
End With
' Turn Off Screen Updating temporarily.
Application.ScreenUpdating = False
End Sub

Private Sub MacroExit()
' Restore original Track Changes status
ActiveDocument.TrackRevisions = TrkStatus
' Restore Screen Updating
Application.ScreenUpdating = True
End Sub

Private Sub UpdateFields()
' This routine sets the new path for external links.
Dim oRange As Word.Range
Dim oField As Word.Field
Dim OldPath As String
Dim NewPath As String
' Set the new path
NewPath = Replace$(ActiveDocument.Path, "\", "\\")
' Go through all story ranges in the document, including shapes,
' headers & footers.
For Each oRange In ActiveDocument.StoryRanges
' Go through the fields in the story range.
For Each oField In oRange.Fields
With oField
' Skip over fields that don't have links to external files
If Not .LinkFormat Is Nothing Then
' Get the old path
OldPath = Replace(.LinkFormat.SourcePath, "\", "\\")
' Replace the link to the external file
.Code.Text = Replace(.Code.Text, OldPath, NewPath)
End If
End With
Next oField
Next oRange
End Sub

Regards

--
macropod
[MVP - Microsoft Word]


"Quin" wrote in message
...
I can't seem to make Hyperlinks relative.

These are just links to other documents in the same folder. If I clear
the "Update Links on Save", the links get converted to something like
"C:\585C5E52\Default.htm". Without this cleared, it stores full path
information, which prevents being able to move the documents to another
path.