Relative Hyperlinks

[Quin]

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.

 

[macropod]

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

 

[Quin]

Seems to be the right track, but didn't work.

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]

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.

 

[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]

Seems to be the right track, but didn't work.

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]

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.

 

[Quin]

Yes, used code, moved files to another machine, links still pointed to
original path.

Changed AutoOpen to MyAutoOpen, called it from Document.Open, moved files,
no change.

Thanks for the help. Word could be an easy tool for web pages, you'd think.

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]

Seems to be the right track, but didn't work.

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]


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.

 

[macropod]

Did you make sure the code was still installed in the target document after
you'd moved it? Did Word give a macro warning when you opened the document?

--
macropod
[MVP - Microsoft Word]

Yes, used code, moved files to another machine, links still pointed to
original path.

Changed AutoOpen to MyAutoOpen, called it from Document.Open, moved files,
no change.

Thanks for the help. Word could be an easy tool for web pages, you'd think.

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]

Seems to be the right track, but didn't work.


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]


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.

 

[Quin]

I checked, it's there.

When I double-click the .mht, they open in IE (which is what I want). IE
did give a warning about AX content, which I allowed.

Did you make sure the code was still installed in the target document
after
you'd moved it? Did Word give a macro warning when you opened the
document?

--
macropod
[MVP - Microsoft Word]

Yes, used code, moved files to another machine, links still pointed to
original path.

Changed AutoOpen to MyAutoOpen, called it from Document.Open, moved
files,
no change.

Thanks for the help. Word could be an easy tool for web pages, you'd think.

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]


Seems to be the right track, but didn't work.


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]


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.

 

[macropod]

The macro is for use in a Word document - not an mht file - this is a Word
forum, after all.

--
macropod
[MVP - Microsoft Word]

I checked, it's there.

When I double-click the .mht, they open in IE (which is what I want). IE
did give a warning about AX content, which I allowed.

Did you make sure the code was still installed in the target document
after
you'd moved it? Did Word give a macro warning when you opened the
document?

--
macropod
[MVP - Microsoft Word]

Yes, used code, moved files to another machine, links still pointed to
original path.

Changed AutoOpen to MyAutoOpen, called it from Document.Open, moved
files,
no change.

Thanks for the help. Word could be an easy tool for web pages, you'd think.


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]


Seems to be the right track, but didn't work.


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]


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.

 

[Quin]

Sorry, is there an MHT forum? Word created and editted these .MHT
documents. It doesn't quite handle .HTM documents.

The macro is for use in a Word document - not an mht file - this is a Word
forum, after all.

--
macropod
[MVP - Microsoft Word]

I checked, it's there.

When I double-click the .mht, they open in IE (which is what I want). IE
did give a warning about AX content, which I allowed.

Did you make sure the code was still installed in the target document
after
you'd moved it? Did Word give a macro warning when you opened the
document?

--
macropod
[MVP - Microsoft Word]


Yes, used code, moved files to another machine, links still pointed to
original path.

Changed AutoOpen to MyAutoOpen, called it from Document.Open, moved
files,
no change.

Thanks for the help. Word could be an easy tool for web pages, you'd
think.


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]


Seems to be the right track, but didn't work.


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]


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.

 

[macropod]

Hi Quin,

Perhaps if you ask in one of the Internet Explorer forums.

Cheers

--
macropod
[MVP - Microsoft Word]

Sorry, is there an MHT forum? Word created and editted these .MHT
documents. It doesn't quite handle .HTM documents.

The macro is for use in a Word document - not an mht file - this is a Word
forum, after all.

--
macropod
[MVP - Microsoft Word]

I checked, it's there.

When I double-click the .mht, they open in IE (which is what I want). IE
did give a warning about AX content, which I allowed.

Did you make sure the code was still installed in the target document
after
you'd moved it? Did Word give a macro warning when you opened the
document?

--
macropod
[MVP - Microsoft Word]


Yes, used code, moved files to another machine, links still pointed to
original path.

Changed AutoOpen to MyAutoOpen, called it from Document.Open, moved
files,
no change.

Thanks for the help. Word could be an easy tool for web pages, you'd
think.


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]


Seems to be the right track, but didn't work.


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]


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.

 

[Quin]

You mean a Word question in an Internet Explorer forum?

The question is how to get Word to leave hyperlinks alone.

Hi Quin,

Perhaps if you ask in one of the Internet Explorer forums.

Cheers

--
macropod
[MVP - Microsoft Word]

Sorry, is there an MHT forum? Word created and editted these .MHT
documents. It doesn't quite handle .HTM documents.

The macro is for use in a Word document - not an mht file - this is a Word
forum, after all.

--
macropod
[MVP - Microsoft Word]


I checked, it's there.

When I double-click the .mht, they open in IE (which is what I want). IE
did give a warning about AX content, which I allowed.

Did you make sure the code was still installed in the target
document
after
you'd moved it? Did Word give a macro warning when you opened the
document?

--
macropod
[MVP - Microsoft Word]


Yes, used code, moved files to another machine, links still pointed to
original path.

Changed AutoOpen to MyAutoOpen, called it from Document.Open, moved
files,
no change.

Thanks for the help. Word could be an easy tool for web pages, you'd
think.


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]


Seems to be the right track, but didn't work.


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]


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.

 

[macropod]

hi Quin,

The question is how to get Word to leave hyperlinks alone.

According to your original post, you wanted Word to update document
hyperlinks when you moved the files to a different folder. "These are just
links to other documents in the same folder". The macro I supplied does that
automatically. Put it in the target document (i.e. the one with the
hyperlink fields) and the fields will be updated next time the document is
opened.

Then you said "When I double-click the .mht, they open in IE". Files with a
".mht" are not Word files - Word document files end in ".doc".

Perhaps if you state clearly what the issue is you're dealing with, it would
help. Are you working with hyperlink fields, or just text that represents a
hyperlink path? There is a significant difference. If you press Alt-F9 in a
Word document, any true hyperlinks will display as { HYPERLINK "hyperlink
path\\hyperlink source" }.

Cheers

--
macropod
[MVP - Microsoft Word]

You mean a Word question in an Internet Explorer forum?

The question is how to get Word to leave hyperlinks alone.

Hi Quin,

Perhaps if you ask in one of the Internet Explorer forums.

Cheers

--
macropod
[MVP - Microsoft Word]

Sorry, is there an MHT forum? Word created and editted these .MHT
documents. It doesn't quite handle .HTM documents.

The macro is for use in a Word document - not an mht file - this is a Word
forum, after all.

--
macropod
[MVP - Microsoft Word]


I checked, it's there.

When I double-click the .mht, they open in IE (which is what I

want).
IE

did give a warning about AX content, which I allowed.

Did you make sure the code was still installed in the target
document
after
you'd moved it? Did Word give a macro warning when you opened the
document?

--
macropod
[MVP - Microsoft Word]


Yes, used code, moved files to another machine, links still

pointed
to

original path.

Changed AutoOpen to MyAutoOpen, called it from Document.Open, moved
files,
no change.

Thanks for the help. Word could be an easy tool for web pages, you'd
think.


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]


Seems to be the right track, but didn't work.


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]


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.

 

[Quin]

Funny, Word created the .MHT file.

In my original post, I didn't want Word to update links, I wanted it to
leave them alone, as relative hyperlinks.

A relative hyperlink, like ../Another.Doc, would work fine. This seems to
me to be just another case of Word "fixing" something that wasn't broken.

hi Quin,

The question is how to get Word to leave hyperlinks alone.

According to your original post, you wanted Word to update document
hyperlinks when you moved the files to a different folder. "These are just
links to other documents in the same folder". The macro I supplied does
that
automatically. Put it in the target document (i.e. the one with the
hyperlink fields) and the fields will be updated next time the document is
opened.

Then you said "When I double-click the .mht, they open in IE". Files with
a
".mht" are not Word files - Word document files end in ".doc".

Perhaps if you state clearly what the issue is you're dealing with, it
would
help. Are you working with hyperlink fields, or just text that represents
a
hyperlink path? There is a significant difference. If you press Alt-F9 in
a
Word document, any true hyperlinks will display as { HYPERLINK "hyperlink
path\\hyperlink source" }.

Cheers

--
macropod
[MVP - Microsoft Word]

You mean a Word question in an Internet Explorer forum?

The question is how to get Word to leave hyperlinks alone.

Hi Quin,

Perhaps if you ask in one of the Internet Explorer forums.

Cheers

--
macropod
[MVP - Microsoft Word]


Sorry, is there an MHT forum? Word created and editted these .MHT
documents. It doesn't quite handle .HTM documents.

The macro is for use in a Word document - not an mht file - this is
a
Word
forum, after all.

--
macropod
[MVP - Microsoft Word]


I checked, it's there.

When I double-click the .mht, they open in IE (which is what I want).
IE
did give a warning about AX content, which I allowed.

Did you make sure the code was still installed in the target
document
after
you'd moved it? Did Word give a macro warning when you opened the
document?

--
macropod
[MVP - Microsoft Word]


Yes, used code, moved files to another machine, links still pointed
to
original path.

Changed AutoOpen to MyAutoOpen, called it from Document.Open, moved
files,
no change.

Thanks for the help. Word could be an easy tool for web pages,
you'd
think.


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]


Seems to be the right track, but didn't work.


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]


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.

 

[macropod]

Funny, Word created the .MHT file.

Not of it's own accord - presumably you converted a document to an html
file, via File|Save As.

In my original post, I didn't want Word to update links, I wanted it to
leave them alone, as relative hyperlinks.

The hyperlinks never were relative. Word only works with absolute links.
Even if you omit the path, Word saves it.

A relative hyperlink, like ../Another.Doc, would work fine. This seems to
me to be just another case of Word "fixing" something that wasn't broken.

More like someone not being willing to accept that Word works in a
particular way.

Cheers

 

[Bob Buckland ?:-\)]

Hi Quin,

Word can open MHT files it opens, as they're encoded to let IE and Word know what app they were created in, by default (Check to see
if there's an IE or Word/IE icon on the .mht files in Windows Explorer.

In some scenarios you're correct, Word will adjust the entries but, be sure you've tried both settings for update links in
Tools=>Options=>General=>[Web Options]
to try to preserve the relative links. In some cases its use will seem a bit backwards.
http://support.microsoft.com/kb/903163/en-us?FR=1

The relative values in the hyperlinks can also be affected by where you open the document in relation to the
settings in Tools=>Options=>File Locations


The basic usage target of Word web documents was in a corporate environment/intranet where the issue is often one where people move
documents around and with relative links when someone opens a moved document none of the linked content is found. Relative links
are also unsupported in some scenarios where the free Microsoft Word viewer app is involved to view the files.

For public facing web pages MS Word's sister app (MS Office Front Page, well at least through 2003 <g>) is the app targeted to that
functionallity.

=========
Funny, Word created the .MHT file.

In my original post, I didn't want Word to update links, I wanted it to leave them alone, as relative hyperlinks.

A relative hyperlink, like ../Another.Doc, would work fine. This seems to me to be just another case of Word "fixing" something
that wasn't broken. >>
--
I hope this helped you,

Bob Buckland ?
MS Office system products MVP

LINKS to the 2007 Office System

1. Read about it, try it, or watch the movie
the 2007 Microsoft Office system info,
online Test Drive, or downloadable beta is at
http://microsoft.com/office/preview

2. Already have 2007 Office System Beta 2?
Send Microsoft your feedback (with pictures)
http://sas.office.microsoft.com/

3. Use the 2007 OfficeOnline website without Office2007

a. Install the ActiveX access control
http://office.microsoft.com/search/redir.aspx?AssetID=XT101650581033
b. then visit http://officebeta.iponet.net