[AccessD] Word templates from Access

Mark

...this works for my needs ...HTH :)

Function ShowBadges()
    Dim objWord As Word.Document
    Set objWord = GetObject("F:\Document Masters\Exhibitor
Documents\ExhibitorBadges.doc", "Word.Document")
    ' Make Word visible.
    objWord.Application.Visible = True
    ' Set the mail merge data source as the EMSReports database.
    objWord.MailMerge.OpenDataSource _
            Name:="C:\Program Files\EMSReports\emsreports.mdb", _
            LinkToSource:=True, _
            Connection:="QUERY qryEMSBadgeFlag", _
            SQLStatement:="Select * from [qryEMSBadgeFlag]"
         ' Execute the mail merge.
         objWord.MailMerge.Execute
End Function

William Hindman
Government is not reason, government is not persuasion,
government is force. It is a dangerous servant." G. Washington
----- Original Message ----- 
From: "Porter, Mark" <MPorter at acsalaska.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Monday, December 01, 2003 1:22 PM
Subject: RE: [AccessD] Word templates from Access


>
> Does anyone have any code snippets that shows how to send an Access
querydef
> to a Word mail merge template?
>
> I have a client with quite a few form letters they would like to send data
> too.
>
> Mark
>
>
>
>
>
>
****************************************************************************
*******
> 1/12/2003
> This transmittal may contain confidential information intended solely for
> the addressee. If you are not the intended recipient, you are hereby
> notified that you have received this transmittal in error; any review,
> dissemination, distribution or copying of this transmittal is strictly
> prohibited. If you have received this communication in error, please
notify
> us immediately by reply or by telephone (collect at 907-564-1000) and ask
to
> speak with the message sender. In addition, please immediately delete this
> message and all attachments. Thank you. ACS
>
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>