K
KR
I added a "file" to my word document as follows:
Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8",
FileName:= _
"C:\Documents and Settings\ThisUser\Desktop\Errors.xls", LinkToFile
_
:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\WINNT\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\xlicons.exe", _
IconIndex:=1, IconLabel:= "C:\Documents and
Settings\ThisUser\Desktop\Errors.xls"
Is there any way (using VBA) to take that file and convert it back to a copy
of the original file?
Specifically, I'm looking to distribute one MSWord document with several
embedded files, and then use macros to pull these files back out into a
target directory for the end user. I'd like to avoid actually opening the
other files and save them, because they won't all be MS Office- it will also
include a .pdf and some text files.
I appreciate any help or suggestions,
Keith
Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8",
FileName:= _
"C:\Documents and Settings\ThisUser\Desktop\Errors.xls", LinkToFile
_
:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\WINNT\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\xlicons.exe", _
IconIndex:=1, IconLabel:= "C:\Documents and
Settings\ThisUser\Desktop\Errors.xls"
Is there any way (using VBA) to take that file and convert it back to a copy
of the original file?
Specifically, I'm looking to distribute one MSWord document with several
embedded files, and then use macros to pull these files back out into a
target directory for the end user. I'd like to avoid actually opening the
other files and save them, because they won't all be MS Office- it will also
include a .pdf and some text files.
I appreciate any help or suggestions,
Keith