This article was previously published under Q154456
Retired KB Content Disclaimer
This article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.
Advanced: Requires expert coding, interoperability, and multiuser skills.
This Article demonstrates how to use OLE Automation to Open and CloseMicrosoft Word for Windows 95 documents.
This article assumes that you are familiar with Visual Basic forApplications and with creating Microsoft Access applications using theprogramming tools provided with Microsoft Access. For more informationabout Visual Basic for Applications, please refer to the "BuildingApplications with Microsoft Access for Windows 95" manual.
NOTE: Visual Basic for Applications (used in Microsoft Access forWindows 95 version 7.0) is called Access Basic in version 2.0. Formore information about Access Basic, please refer to the "BuildingApplications" manual.
For more information about using OLE Automation between Microsoft Accessand Microsoft Word, search on the phrase Create a Word Document using OLEAutomation, and then CreateObject function using the Microsoft Accessfor Windows 95 Answer Wizard. For more information about the MicrosoftAccess Verb and Action properties, search on the phrases Verb propertyand Action property, using the Microsoft Access Help Index.
The following two examples demonstrate how to manipulate Microsoft Word 7.0documents:
The following example assumes there is a document named Test.doc in theC:\Winword folder (directory). This example demonstrates how to open aMicrosoft Word Document, reformat the text, and then close the document:
Open Microsoft Access and open the sample database Northwind.mdb. (NWIND.MDB in Microsoft Access version 2.0)
Create a new module and add the following function:
Function CloseDoc () Dim wordobj As Object Set wordobj = CreateObject("Word.Basic") wordobj.FileOpen "C:\Winword\Test.doc" ' View the invoked instance of Word. wordobj.AppShow ' Selects the entire document and makes it Bold. wordobj.EditSelectAll wordobj.Bold 1 ' Closes the document and saves changes. wordobj.filesave wordobj.FileClose (1) wordobj.appclose Set wordobj = Nothing End Function
Type the following into the Debug window (or Immediate window in Microsoft Access version 2.0), and then press ENTER:
Note that the object is opened, formatted, saved, and then closed.
The following example demonstrates how to close a Microsoft Word documentwhich is embedded on a form:
Open the sample database Northwind.mdb (or NWIND.MDB in version 2.0) and create a new form.
In Design view, create an unbound object frame named OLEObj on the form. Change the Enabled property for the object frame control to Yes and the Locked property to No. When prompted with the Insert Object dialog box, click "Create New" and in the list of Object Types click "Microsoft Word Document." Click OK. In the blank Word document that appears, enter some text, and then on the File menu, click "Close and Return to Formx: Form."
Add a command button to the form and for the OnClick property add the following code:
Dim WordObj as Object Me![OLEObj].Verb = -2 ' Tells Microsoft Access to open the ' application. Me![OLEObj].Action = 7 ' Activates the application. Set WordObj = Me![OLEObj].Object.Application.WordBasic WordObj.EditSelectAll WordObj.Bold 1 Wordobj.FileSave WordObj.FileClose(1) Wordobj.Appclose Set WordObj = Nothing
Open the form and click the command button. Note that OLE Object is opened, formatted, and then closed.