Dim objWord As Word.Document
Set objWord = GetObject("C:\JRT\Docs\Submittal Letter.doc", "Word.Document")
objWord.Application.Visible = True
objWord.MailMerge.OpenDataSource _
Name:=GetCurrentDBNamePath_TSB(), _
LinkToSource:=True, _
SQLStatement:="SELECT * FROM [tblJobsCandsMMrgDSrc]"
objWord.MailMerge.Execute
'objWord.ActiveDocument.SaveAs FileName:=strLtrName
objWord.ActiveDocument.SaveAs FileName:="C:\testsave.doc"
objWord.Close
|