I am trying to open my mail merge document straight from my data source in excel with a button. I have tried to type a code with help from several forums but I am not having any luck. I recieve a Run Time error424 when I run the macro. I am using Excel and Word 2007. The line that the debug points to is this one Connection:="", SQLStatement:="", SQLStatement1:="" Here is what I am currently working with:
Sub Print_Tags()
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Set appWd = CreateObject("Word.Application")
appWd.Visible = True
appWd.Documents.Open Filename:="C:\Users\J.Templet\Desktop\LOTO Print Tags\PRINTING TAGS1.docx"
docWD.MailMerge.OpenDataSource Name:="'C:\Users\J.Templet\Desktop\LOTO Print Tags\Isolation LOTO Template.xlsx\'Tag_List'" _
, ConfirmConversions:=False, _
ReadOnly:=False, LinkToSource:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
Connection:="", SQLStatement:="", SQLStatement1:=""
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
'
End Sub
Sub Print_Tags()
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Set appWd = CreateObject("Word.Application")
appWd.Visible = True
appWd.Documents.Open Filename:="C:\Users\J.Templet\Desktop\LOTO Print Tags\PRINTING TAGS1.docx"
docWD.MailMerge.OpenDataSource Name:="'C:\Users\J.Templet\Desktop\LOTO Print Tags\Isolation LOTO Template.xlsx\'Tag_List'" _
, ConfirmConversions:=False, _
ReadOnly:=False, LinkToSource:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
Connection:="", SQLStatement:="", SQLStatement1:=""
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
'
End Sub