Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub cmdMergeIT_Click() DoCmd.SetWarnings False DoCmd.OpenQuery "Art Docket Recommendations Word", acViewNormal DoCmd.SetWarnings True 'For use as TEMPLATE Dim objApp As Word.Application 'For use as TEMPLATE Dim objWord As Word.Document ' Dim ObjWord2 As Word.Document ' 'For use as TEMPLATE Set objApp = New Word.Application 'For use as TEMPLATE on GRD Server - added from EE Set objWord = objApp.Documents.Add("K:\DUG\Templates\docketcharttemplate_newlayout_portrait.dot") ' Make Word visible. objWord.Application.Visible = True ' Set the mail merge data source as the DUG Access Database objWord.MailMerge.OpenDataSource _ Name:="C:\Users\HT\My Documents\Gifts\DUG.mde", _ LinkToSource:=True, _ Connection:="TABLE tblDocketRecommendations", _ SQLStatement:="SELECT * FROM [tblDocketRecommendations]" 'Execute the mail merge. objWord.MailMerge.Execute '========================================================= ' code to close mail merge doc based on template For Each ObjWord2 In objApp.Documents If ObjWord2.Name = "Document1" Then ObjWord2.Close False End If Next End Sub