[AJ]

I have a document set up as a template for mail merge using data from a table
in access. Everything is working, except when the document opens up for the
user to view, so does the template, so you have 2 different word documents
opening up. Is there a way to avoid this. I am just wanting the user to see
the merged document, not the template. I have included my code
below. I appreciate any time and advise on this...

Dim objWord As Word.Document
Set objWord = GetObject("G:\Users\AJ\Testing.doc", "Word.Document")

objWord.MailMerge.OpenDataSource _
Name:="G:\Users\AJ\welders\weldxp.mdb", _
LinkToSource:=True, _
Connection:="TABLE tblTestLabFacility", _
SQLStatement:="SELECT * FROM [tblTestLabFacility]"
' Execute the mail merge.
objWord.MailMerge.Execute
' Make Word visible.
objWord.Application.Visible = True

Thank You

[Doug Robbins - Word MVP]

As objWord is the "document" that you refer to as a template, after the

objWord.Application.Visible = True

insert

objWord.Close wdDoNotSaveChanges
Set objWord = Nothing

and that should close that document, leaving the result of the mailmerge
open.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"AJ" wrote in message
...
I have a document set up as a template for mail merge using data from a
table
in access. Everything is working, except when the document opens up for
the
user to view, so does the template, so you have 2 different word documents
opening up. Is there a way to avoid this. I am just wanting the user to
see
the merged document, not the template. I have included my code
below. I appreciate any time and advise on this...

Dim objWord As Word.Document
Set objWord = GetObject("G:\Users\AJ\Testing.doc", "Word.Document")

objWord.MailMerge.OpenDataSource _
Name:="G:\Users\AJ\welders\weldxp.mdb", _
LinkToSource:=True, _
Connection:="TABLE tblTestLabFacility", _
SQLStatement:="SELECT * FROM [tblTestLabFacility]"
' Execute the mail merge.
objWord.MailMerge.Execute
' Make Word visible.
objWord.Application.Visible = True

Thank You

[AJ]

Doug,
Thank you so much. That was right on....It is working perfect now. Thank you
so much for your time I appreciate it very much.
Have a great day,,,I know I will...
Thanks
AJ

"Doug Robbins - Word MVP" wrote:

As objWord is the "document" that you refer to as a template, after the

objWord.Application.Visible = True

insert

objWord.Close wdDoNotSaveChanges
Set objWord = Nothing

and that should close that document, leaving the result of the mailmerge
open.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"AJ" wrote in message
...
I have a document set up as a template for mail merge using data from a
table
in access. Everything is working, except when the document opens up for
the
user to view, so does the template, so you have 2 different word documents
opening up. Is there a way to avoid this. I am just wanting the user to
see
the merged document, not the template. I have included my code
below. I appreciate any time and advise on this...

Dim objWord As Word.Document
Set objWord = GetObject("G:\Users\AJ\Testing.doc", "Word.Document")

objWord.MailMerge.OpenDataSource _
Name:="G:\Users\AJ\welders\weldxp.mdb", _
LinkToSource:=True, _
Connection:="TABLE tblTestLabFacility", _
SQLStatement:="SELECT * FROM [tblTestLabFacility]"
' Execute the mail merge.
objWord.MailMerge.Execute
' Make Word visible.
objWord.Application.Visible = True

Thank You