Hi Jeff,
We need to save the embedded object to a file and then relink the object.
The saving code will like:
Dim NewDoc As String
DocPath = "c:\worddoc.doc"
With Me.OLEObject
.Class = "Word.Document"
.Verb = acOLEVerbOpen
.Action = acOLEActivate
.Object.Application.Documents.Item(1).SaveAs DocPath
.Object.Application.Quit
.Action = acOLEClose
End With
Please feel free reply to the threads if you have any questions or concerns.
Sincerely,
Alick Ye, MCSD
Product Support Services
Microsoft Corporation
Get Secure! - <
www.microsoft.com/security>
This posting is provided "AS IS" with no warranties, and confers no rights.
--------------------
| Content-Class: urn:content-classes:message
| From: "Jeff" <
[email protected]>
| Sender: "Jeff" <
[email protected]>
|
| I have a database with embedded Excel spreadsheets -
| embedded as ole objects. I need to convert them to be
| linked instead of embedded. I was planning to use the
| record ID as the name, i.e. 101.xls for record 101. How
| do I convert all the embedded spreadsheets to be linked
| instead?
|