After the Mail Merge not show dialog box

[tariqaleed2]

This is merge Mail code FROM MS ACCESS IT Works fine, but in the end show dialog box SAVE AS . Is it possible to help FOR not show dialog box , but save AS the file directly IN "C:\Users\LABTOP2\Desktop\end_of_ the_merger.docx"


not use the sendkeys




Greetings to all
Attachment work files

Private Sub COMM1_Click() 
    Dim objWord As Word.Application 
    Dim Doc As Word.Document 
    Dim sDBPath As String 
    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 
    End With 
    Doc.Saved = True 
    objWord.Quit 
    Set Doc = Nothing 
    Set objWord = Nothing 
End Sub

[macropod]

There are code examples of how to do that near the bottom of this thread: https://www.msofficeforums.com/mail-...ps-tricks.html

[tariqaleed2]

Thank you very much macropod YOU help me a lot


The best way I found , is forcing the user to closing ALL WORD Documents before making action .
If there is another way, TO NOT be THE user forcing the closing ALL WORD Documents TO BE better else the problem was solved .




I repeat my thanks to you and TO the members
Greetings to all

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

[macropod]

Originally Posted by tariqaleed2

The best way I found , is forcing the user to closing ALL WORD Documents before making action .
If there is another way, TO NOT be THE user forcing the closing ALL WORD Documents TO BE better else the problem was solved .

You need to learn how to automate Word correctly, so that you can create a new Word session or, perhaps, automate an existing Word session. If you do the former, you don't have to worry about whether Word is already running or whether the user has any documents open. If you do the latter, you need to ensure your code is properly written so that existing documents don't need to be closed.

For an example of the former, see:
https://www.msofficeforums.com/word-...variables.html
For an example of the latter, see:
https://www.msofficeforums.com/word-...e-ms-word.html