Merge Word problem

[Focus]

The folowing module opens 2 documents: the main merge document
(C:\MyMerge.doc) and the merged document
Thow i want to close only the C:\MyMerge.doc so user can not ruin it,
without the saving messege, while keeping open the merged document
have any idea?

Function MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("C:\MyMerge.doc", "Word.Document")
' Make Word visible.
objWord.Application.Visible = True
' Set the mail merge data source as the Northwind database.
objWord.MailMerge.OpenDataSource _
Name:="C:\Program Files\Microsoft " & _
"Office\Office\Samples\Northwind.mdb", _
LinkToSource:=True, _
Connection:="TABLE Customers", _
SQLStatement:="SELECT * FROM [Customers]"
' Execute the mail merge.
objWord.MailMerge.Execute
End Function

 

[Albert D. Kallal]

I have a working sample that creates, and makes templates for you.

My code can word enable any existing application, or form you have with
great ease.

(the code also does close the original .doc template).

Give the ready to go working sample on my site a try (it even has some
data).

http://www.attcanada.net/~kallal.msn/msaccess/msaccess.html