Messages after Merge

Topic

New Reply

I am using the code below to merge and print renewals.

Function MergeIt()

Dim objWord As Word.Document
‘path of renewal document
Set objWord = GetObject(“c:MLSRenewal.doc”, “Word.Document”)
objWord.Application.Visible = True
‘path of database
objWord.MailMerge.OpenDataSource Name:=”C:MLSmls.mdb”, _
LinkToSource:=True, Connection:=”QUERY qryXngPermitLetter”, _
SQLStatement:=”SELECT * FROM [qryXngPermitLetter]”
objWord.MailMerge.Destination = wdSendToNewDocument
objWord.MailMerge.Execute
objWord.Application.Options.PrintBackground = False
objWord.Application.ActiveDocument.PrintOut
objWord.Application.Quit

Problem is, 1) At the end I get messages asking if I want to save FormLetter 1……. and a message asking if I want to save changes to the renewal.doc.. Is there some changes I can make to eliminate these messages? Obvious novice.
And 2) Word does not close, and this has to be done manually. Access97 and Word97

Reply | Quote

Replies

Dear Alpi,

There are some good examples on Helen Feddema’s site:

http://www.helenfeddema.com/CodeSamples.htm

I’m not sue they are applicable but its a start.

Reply | Quote

From the six there, I don’t see any with merging… or am I missing others?

Reply | Quote

You need to specifically close the documents with a wdDoNotSaveChanges argument to avoid the prompt. That may also allow your Word application to quit, since it will no longer have open document objects to keep it open.

If you haven’t already found them, there are automation samples for Access 97 and 2000 available on the Microsoft site.

Reply | Quote

Thanks! You’re simply awesome!

Reply | Quote

Thanks.

Reply | Quote