Excel 2007 VBA to Merge Selected Data into Word Merge Form

[cvincent]

I am attempting to utilize data from my Excel file to merge into a Word form. Users can use search buttons to filter selected data, which is then copied to a tab entitled "Selected Contacts". I can then run a macro that opens my Word 2007 merge document, but I am unable to create the code to run the actual merge with the "Selected Contacts" and then close the original merge document. Also, when it opens the Word merge document, it asks if it should be opened as read only, and I would like that done automatically without being asked. Any assistance would be appreciated. My code is:

Sub OpenWordDoc()

Dim wordApp As Object
Dim wordDoc As Object
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("G:\EMERGENCY CONTACT MERGE DOC (6-2013).docm")
End Sub

 

[cvincent]

New VBA Code still does not work. Getting Application-defined or Object-Defined Error message 7121 at line " Set wordMailMerge = wordDoc.MailMerge". Learning VBA...need some assistance please.

Sub RunMailMerge()
'
' RunMailMerge Macro

Application.ScreenUpdating = True
Application.DisplayAlerts = False
Dim wd As Object
Dim wordDoc As Object
Dim wordocSource As Object
Dim wordApp As Object
Dim strWorkbookName As String

wordPath = ThisWorkbook.Path & "\EMERGENCY CONTACT MERGE DOC (6-2013).doc"
Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Open(wordPath)
Set wordMailMerge = wordDoc.MailMerge


wordMailMerge.OpenDataSource Name:=excelPath, SQLStatement:="SELECT * FROM `'Selected Contacts$'`"
wordMailMerge.Execute
wordDoc.Close
wordApp.Visible = True

Worksheets("Selected Contacts").Visible = True

Set wordMailMergeFields = Nothing
Set wordMailMerge = Nothing
Set wordDoc = Nothing
Set wordApp = Nothing
Sheets(CurrentWorksheet).Select

End Sub