ACC: How to Save a Copy of an Embedded MS Word Document

MORE INFORMATION

1. Create a form based on the table containing the MyOle field.
2. Add a Bound Object Frame control to the form and set the control's properties as follows:

   Name: MyOle
   ControlSource: MyOle

3. Add a command button named CopyDocument and set the control's OnClick property to the following event procedure:

         Sub CopyDocument_Click ()
             Dim NewObject As Object
             Dim NewDoc As String
             Dim DocPath As String
   
             ' Name of the new document to create.
             NewDoc = "TEST.DOC"
   
             ' Where to store the new document.
             ' DefaultDir$(9) returns the Word directory path.
             ' See DefaultDir$() in Word's on-line help for more options.
             ' Note: The "$" is not used when calling DefaultDir via
             ' OLE Automation.
             DocPath = Me!MyOle.Object.Application.WordBasic.DefaultDir(9)
   
             ' Copies the embedded object to Clipboard.
             Me!MyOle.Verb = 0
             Me!MyOle.Action = 7
             Me!MyOle.Object.Application.WordBasic.EditSelectAll
             Me!MyOle.Object.Application.WordBasic.EditCopy
             Me!MyOle.Action = 9
             DoEvents
   
             ' Creates a new document and pastes Clipboard contents.
             ' Saves the document in the Word directory and closes the
             ' document.
             Set NewObject = CreateObject("Word.Basic")
             NewObject.FileNew
             NewObject.EditPaste
             NewObject.FileSaveAs DocPath & "\" & NewDoc
             NewObject.FileClose
   
             ' Frees the memory used by the objects.
             Set NewObject = Nothing
             MsgBox DocPath & "\" & NewDoc & " was created successfully."
         End Sub
   						

4. Type the following line in the Declarations section of the form's module if it's not already there, and then close the module:

         Option Explicit

5. View the form in Form view.
6. Click the CopyDocument button. Note that the embedded document is saved as Test.doc in your Microsoft Word folder.