Dim strTemplateFile As String
Dim appWord As Object ' Word.Application
Dim objWordDoc As Object 'Word.Document
Dim strMailmergeDataFilename As String
Dim objWordDocMerged As Object ' Word.Document
Dim sPrinter As String
Const wdDoNotSaveChanges = 0
Const wdDialogFilePrintSetup = 97
Const wdDialogFilePrint = 88
Const wdSendToNewDocument = 0

strMailmergeDataFilename = GetTempPath() & Year(Date) & "_" & Month(Date) & "_" & Day(Date) & "_" & Hour(Now) & "_" & Minute(Now) & "_" & Second(Now) & Round(Rnd * 100) & ".txt"

DoCmd.TransferText acExportDelim, , gstrQUERYNAME, strMailmergeDataFilename, True

Set objWordDoc = GetObject(strTemplateFile, "Word.Document")
Set appWord = objWordDoc.Application
appWord.Visible = True

objWordDoc.MailMerge.OpenDataSource _
	Name:=strMailmergeDataFilename, ConfirmConversions:=False, _
	ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
	PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
	WritePasswordTemplate:="", Revert:=False, Format:=0, _
	Connection:="", SQLStatement:="", SQLStatement1:=""
objWordDoc.MailMerge.Destination = wdSendToNewDocument
objWordDoc.MailMerge.Execute
Set objWordDocMerged = appWord.ActiveDocument

objWordDoc.MailMerge.DataSource.Close
objWordDoc.Save
objWordDoc.Close SaveChanges:=-1 '-1 = wdSaveChanges

appWord.Activate
objWordDocMerged.Activate
If blnSelectPrinter Then
	appWord.Dialogs(wdDialogFilePrint).Show
Else
	If strPrinter <> "" Then
		With appWord.Dialogs(wdDialogFilePrintSetup)
			sPrinter = .Printer
			.Printer = strPrinter
			.DoNotSetAsSysDefault = True
			.Execute
			appWord.PrintOut FileName:=""
			.Printer = sPrinter
			.Execute
		End With
	End If
	If Not blnLeaveOpen Then
		objWordDocMerged.Close wdDoNotSaveChanges
	End If
End If