I need help from VB/VBS experts: exporting Access OLE object (Word document) to a file

[Otis Hunter]

I have been fighting with this for days and your expert help is
needed! Below is the code I am executing which results with "Object
doesn't support this property or method". The error is occuring on
the "With Me.OLEObject" line. I am trying to extract a Word
document(OLE object) from an Access database, for each record in the
table, and save it as a Word Document. The 4th field of each record
is a OLE object type.

I may be getting my terms mixed up (i.e. VB, VBScript and VBA). I
just want to execute a program from the windows shell or from within
Access which will loop through all the records of the said table and
create 1 Word Document file per database record using the OLE object
field as the source.

This is a continuation of my recent post "Exporting/Extracting an
Access OLE object (Word document) to a Word document file" in several
newsgroups. Example code will be greatly appreciated - please
indicate if it is VB, VBS or VBA code.

Thank you for your help!

My Code:

dim conn
set conn = CreateObject("A DODB.Connection ")
conn.Open "provider=micro soft.jet.oledb. 4.0;data
source=C:\work\ srvScripts.mdb"

dim rs
dim NewDoc
set rs = CreateObject("A DODB.Recordset" )
'rs.Open "select * from tblTemp", conn
rs.Open "tblTemp", conn

'rs.BOF and rs.EOF = True means that there is no records

rs.MoveFirst
while not rs.EOF
set srv = rs.Fields(1)
set ttl = rs.Fields(2)
NewDoc = "c:\tst\" & srv & "." & date() & "." & ttl & ".doc"
' WScript.Echo NewDoc
oObj = rs.Fields(3) ' rs.Fields(3) is a OLE object field
oObj.Class = "Word.Docum ent"
oObj.Verb = acOLEVerbOpen
oObj.Action = acOLEActivate
oObj.Object.App lication.Docume nts.Item(1).Sav eAs NewDoc
oObj.Object.App lication.Quit
oObj.Action = acOLEClose
End With

rs.MoveNext
wend