"Jim" <go****@whatifcomputers.com> wrote in message
news:zf*******************@newssvr25.news.prodigy. com...
I'm trying to use Word to generate mailings for an Access project.
I want to automate from the access side.
I'm trying to open and print a file called mydocs
I'm having trouble opening the document....let alone printing.
here's what I have so far:
Dim MyDoc As Object
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set MyDoc = GetObject("MyDoc.doc", "Word.Document")
MyDoc.Visible = True
I've tried putting in the full path with the same result.
Any Ideas?
Thanks in advance
This is some code I used for PowerPoint - the same approach should work for
Word. I'm not sure what you are doing wrong, I basically found something
like this in the archives and customized it for my app. But whether the
syntax for your code above contains an error, I do not know.
Dim oPPT As PowerPoint.Application
On Error Resume Next 'Grab PowerPoint if it's already running
Set oPPT = Nothing 'Releases the object if it had been already
assigned
Set oPPT = GetObject(, "PowerPoint.Application")
Err.Clear
On Error GoTo Err_Command_Run_Get_Fund_Sheet_Info_Click
If oPPT Is Nothing Then 'not already running
Set oPPT = CreateObject("PowerPoint.Application")
oPPT.Visible = msoTrue
oPPT.WindowState = ppWindowMinimized
End If