Mail Merge newbie

[jgelpi16]

I have the below code in my attempt to run a mail merge. I keep getting the run-time error:
"Automation error
"Unspecified error"



on the highlighted line of code. Help/direction is much appreciated!

Function funMergeIt()
    Dim strPathFile As String, strTable As String
    Dim objDesktop As Object
    Dim ObjWord As Word.Document
    
    Set objDesktop = CreateObject("WScript.Shell")
    strPathFile = objDesktop.SpecialFolders("Desktop") & "\ContactListEnvelop.docx"
    
    Set ObjWord = GetObject(strPathFile, "Word.Document")
    
    ObjWord.Application.Visible = True
    ObjWord.MailMerge.OpenDataSource _
    Name:="C:\Data\DMPhoneList_Fe_NEW.accdb", _
    LinkToSource:=True, Connection:="QUERY qryDMMailMerge", _
    SQLStatement:="SELECT * FROM [qryDMMailMerge]"
    ObjWord.MailMerge.Execute
End Function

[ajetrumpet]

bud,

are you aware that 2010 macros have a mail merge function in it?

as far as the error, are you sure you can use GETOBJECT() with an actual word document? I'm not sure. I just have never seen it used before. Whenever I see it used, it's being used to fetch an actual application object.

[jgelpi16]

I was unaware of the macros. I appreciate the information. I'll resort to the macro. No need for unnecessary code! Thanks again.