K
KL
Hi there,
Background: I have a *.ppt presentation which contains a
few text-boxes with hyperlinks to other *.ppt as well as
*.doc, *.xls and *.pdf files. The documents called by the
hyperlinks are located in different subfolders of the same
root directory as the main presentation and are 15 in
total.
The Task: I need to distribute this presentation via CD.
Ideally, I would like to maintain the directory structure.
The Problem: When I move the directory anywhere else, not
only to a CD, the hyperlinks stop working (can't find the
files).
I know you can select relative path links and put all
files including the presentation in the same folder, but
this is the last thing I would like to do. I can also
create activeX buttons and assign macros like:
-----code start-------
Const myDocument = "\subfolder\document.doc"
Sub OpenFile()
Dim Path As String
Path = ActivePresentation.Path
Set doc = CreateObject("Word.Application")
doc.Visible = True
doc.Documents.Open (Path & myDocument)
End Sub
-----code finish-------
but this does not seem to be an elegant solution to me,
given that there is a number of different applications,
subfolders and files. Also you will need to ask the user
to enable macros and so on.
Can anybody point at a nicer solution please.
Thanks,
KL
Are ther a
Background: I have a *.ppt presentation which contains a
few text-boxes with hyperlinks to other *.ppt as well as
*.doc, *.xls and *.pdf files. The documents called by the
hyperlinks are located in different subfolders of the same
root directory as the main presentation and are 15 in
total.
The Task: I need to distribute this presentation via CD.
Ideally, I would like to maintain the directory structure.
The Problem: When I move the directory anywhere else, not
only to a CD, the hyperlinks stop working (can't find the
files).
I know you can select relative path links and put all
files including the presentation in the same folder, but
this is the last thing I would like to do. I can also
create activeX buttons and assign macros like:
-----code start-------
Const myDocument = "\subfolder\document.doc"
Sub OpenFile()
Dim Path As String
Path = ActivePresentation.Path
Set doc = CreateObject("Word.Application")
doc.Visible = True
doc.Documents.Open (Path & myDocument)
End Sub
-----code finish-------
but this does not seem to be an elegant solution to me,
given that there is a number of different applications,
subfolders and files. Also you will need to ask the user
to enable macros and so on.
Can anybody point at a nicer solution please.
Thanks,
KL
Are ther a