how to open a MS Word document stored in Access 2000 as an ole object

beruken · Mar 22, 2004

I am interested in knowing how to open a MS Word document stored in Access 2000 as an ole object. I get "type mismatch" error with the following code..

Dim oRst, sQuery
Set oRst = CreateObject("ADODB.Recordset")
sQuery = "Select * FROM tblPOW WHERE tblPOW.[Current] = true"
oRst.Open sQuery, oConn

Dim WordApp
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = TRUE
WordApp.Documents.Open(oRst("news"))

If .Open method doesn't work what method will work?

FancyPrairie · Mar 22, 2004

Try using the ActiveX control Microsoft Web Browser. Insert it into your form and then in the OnOpen event (or whatever) of the form, set the navigation property. For example, suppose you name the ActiveX contrl axWebBrowser. In the OnOpen event do something like this:

axWebBrowser.Navigate = "\\path\yourWordDocument.doc"

Off hand, I'm not sure if the = sign is neccessary.

PHV · Mar 23, 2004

How about this ?
oRst("news").Action = acOLEActivate '7
Set objWord = GetObject(, "Word.Application")
or perhaps:
Set objWord = oRst("news").Application

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

cwarner · Apr 26, 2004

What do your references have to include?
I set OLE object and MS Word Object Library
and many others but they don't seem to "work".

I have the following code, but the Word.Application
is not capitalized and is not recognized yet,
so my wd. object doesn't have any linked properties.

Dim db As database
Dim rs As Recordset
Dim wd As Object

Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_doc")
Set wd = CreateObject("word.application")

Rick39 · Apr 27, 2004

I've done it by referring to a hidden bound object frame on a form:

Forms!YourForm!YourObject.Verb = acOLEVerbOpen
Forms!YourForm!YourObject.Action = acOLEActivate

lollyjar · May 28, 2004

I used Rick39's suggestion above, but as my document contained a mail merge, the acOLEActivate failed.

Instead, I was able to get it to work by using the following code (replacing the acOLEActivate with acOLEVerbShow):

Code:

    With Forms!frmMailMerge!OLEUnbound0
        .Verb = acOLEVerbShow
        .SaveAs "C:\Temp\SaveLocation.doc"
    End With

Can anyone explain why this works?

Cheers

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

how to open a MS Word document stored in Access 2000 as an ole object

beruken

Programmer

FancyPrairie

Programmer

PHV

MIS

cwarner

Programmer

Rick39

Programmer

lollyjar

Programmer

Similar threads

Part and Inventory Search

Sponsor