Private Sub COMM1_Click() 
    Dim objWord As Word.Application 
    Dim doc, Target As Word.Document 
    Dim sDBPath As String 
    On Error Resume Next 
    Set objWord = GetObject(, "Word.Application") 
    On Error Goto 0 
    If Not objWord Is Nothing Then 
        MsgBox "one or more Word file is open ... Please closing the all Word documents before executing this action" 
        Exit Sub 
    End If 
    Set objWord = CreateObject("Word.Application") 
    objWord.Visible = False 'True
    Set doc = objWord.Documents.Open(Application.CurrentProject. Path & "\WORD" & ".DOCX") 
    With doc.MailMerge 
        .MainDocumentType = wdFormLetters 
        sDBPath = Application.CurrentProject.Path & "\DATA1" & ".XLS" 
        .OpenDataSource Name:=sDBPath, _ 
        SQLStatement:="SELECT * FROM `wordqur1$`" 
    End With 
    With doc 
        .MailMerge.Destination = wdSendToNewDocument 
        .MailMerge.Execute Pause:=False 
        With objWord.ActiveDocument 
            .SaveAs FileName:="C:\Users\TARIQ-LABTOP2\Desktop\rrrrrrrrrrrr.docx", FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False 
             ' and/or:
            .Close SaveChanges:=False 
        End With 
    End With 
    doc.Saved = True 
    objWord.Quit 
    Set doc = Nothing 
    Set objWord = Nothing 
    MsgBox "Successfully complete a mail merge" 
End Sub