Simple Mail Merge

[bobmunkhouse]

Hey everyone

I need a macro to start the "Merge It with MS Word" wizard using my table "tblTeam"

Can this be done?

Thanks in advance

 

[PaulBricker]

I don't know any macro that will do it but you can put this function in a module changing the appropriate paths and connections and then call it from a macro.

Public Function MergeIt()
Dim oDoc As Word.Document
Set oDoc = GetObject("C:\My Stuff\Wildcat Camper Letter 2001.doc", "Word.Document&quot
'oDoc.Application.Visible = True
oDoc.MailMerge.OpenDataSource _
Name:="c:\My Documents\summerprograms2000.mdb", _
linktosource:=True, _
Connection:="QUERY qryMailMergeInformation", _
SQLStatement:="Select * From [qryMailMergeInformation]"
oDoc.MailMerge.Execute
'oDoc.Application.Options.PrintBackground = False
oDoc.Application.ActiveDocument.PrintOut
End Function

Paul