MailMerge

[eaglestuo]

I have created a macro in word to run a mailmegre in VB
here is the code but i get errors as noted
any help would be great

PrivateSub print_rep_list_report()
Dim wdDoc AsNew Word.Document
Dim wdApp AsNew Word.Application
Dim wdOpenFormatAuto As ConnectionState
'Dim wdFieldMergeField As MergeFailedEventArg
With wdDoc.MailMerge
wdApp.MailMerge.MainDocumentType = wdCatalog 'Error here
wdDoc.MailMerge.OpenDataSource(Name:= _
"C:\Documents and Settings\bbohannon\My Documents\My Data Sources\ccs-svr1 CCS Rep_List.odc" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=CCS;Data Source=ccs-svr1;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=CCS-BOHANNON;Use Encryption for Data=False;Tag with column col" _
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_Number""") ' Error at Type:=wdFieldMergeField
wdApp.Selection.TypeText(Text:=vbTab)
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_Company_Name""")
wdApp.Selection.TypeParagraph()
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_First_Name""")
wdApp.Selection.TypeText(Text:=" ")
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_Last_Name""")
wdApp.Selection.TypeParagraph()
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_Address1""")
wdApp.Selection.TypeParagraph()
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_address2""")
wdApp.Selection.TypeParagraph()
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_City""")
wdApp.Selection.TypeText(Text:=", ")
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_ST""")
wdApp.Selection.TypeText(Text:=" ")
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_ZIP""")
wdApp.Selection.TypeText(Text:=" ")
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_Country""")
wdApp.Selection.TypeParagraph()
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_Phone""")
wdApp.Selection.TypeParagraph()
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_Fax""")
wdApp.Selection.TypeParagraph()
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Rep_EMail""")
wdApp.Selection.TypeParagraph()
wdDoc.Fields.Add(Range:=wdApp.Selection.Range, Type:=wdFieldMergeField, Text:="""Internal_Rep""")
wdApp.Selection.TypeParagraph()
With wdDoc.MailMerge
'.Destination = wdSendToNewDocument
'.SuppressBlankLines = True
' With wdDoc.MailMerge
' .Destination = wdSendToNewDocument
' .SuppressBlankLines = True
'With .DataSource
'.FirstRecord = wdAppFirstRecord
'.LastRecord = wdAppLastRecord
'End With
.Execute(Pause:=False)
EndWith
EndWith
' End With
EndSub