Mail Merge
I recently developed this code for a client contacts db I am working on. Hope it helps!
DoCmd.TransferText acExportMerge, , "NameOfYourQuery", CurrentProject.Path & "\MailMerge\MailMerge.txt"
Dim objWord As Object
Set objWord = GetObject(CurrentProject.Path &...