Home |
Search |
Today's Posts |
#1
|
|||
|
|||
get error 5361 in mailmerge automation
automating Word 2003 from vb6 program to mailmerge into a letter the
following is my code: pstrRS1 = "select lname, ssn, address1, city, state, zip, phone from person where personid = '" & breederid & "'" Debug.Print pstrRS1 pcon.Open gConnectString rsPayee.Open pstrRS1, pcon, adOpenForwardOnly, adLockReadOnly, adCmdText If rsPayee.EOF = True Then pcon.Close Set pcon = Nothing MsgBox "There is no Person record for this Breeder", vbCritical, "Missing Person record for Breeder" Exit Sub Else 'create an instance of word and make it visible Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = False 'What document do I want to open SetMMPath Set wrdDoc = wrdApp.Documents.Open(gstrPayeeReg) wrdDoc.Select Set wrdSelection = wrdApp.Selection Set wrdMailMerge = wrdDoc.MailMerge End If iRow = 2 wrdDoc.MailMerge.CreateDataSource Name:="C:\windows\temp\NewPayeeDataDoc.doc", _ headerrecord:="LName, SSN, LName1, Address1, City, State, Zip, Phone" Set wrdDataDoc = wrdApp.Documents.Open("C:\windows\temp\NewPayeeDat aDoc.doc") lname = rsPayee!lname SSN = IIf(Not IsNull(rsPayee!SSN), rsPayee!SSN, "") Address1 = IIf(Not IsNull(rsPayee!Address1), rsPayee!Address1, "") city = IIf(Not IsNull(rsPayee!city), rsPayee!city, "") State = IIf(Not IsNull(rsPayee!State), rsPayee!State, "") zip = IIf(Not IsNull(rsPayee!zip), rsPayee!zip, "") If Len(rsPayee!Phone) = 7 Then Phone = Format(rsPayee!Phone, "###-####") ElseIf Len(rsPayee!Phone) = 10 Then Phone = Format(rsPayee!Phone, "(###)###-####") Else Phone = "" End If FillpayeeReg wrdDataDoc, iRow, lname, SSN, lname, Address1, city, State, zip, Phone wrdMailMerge.Destination = wdSendToNewDocument wrdMailMerge.Execute False *********Error occurs here wrdApp.Options.PrintBackground = False wrdApp.ActiveDocument.PrintOut wrdApp.ActiveDocument.Close True wrdDataDoc.Saved = True wrdDataDoc.Close True wrdDoc.ActiveWindow.Close True wrdApp.Quit Set wrdSelection = Nothing Set wrdMailMerge = Nothing Set wrdMergeFields = Nothing Set wrdDataDoc = Nothing Set wrdDoc = Nothing Set wrdApp = Nothing 'mrstViolations.Close rsPayee.Close pcon.Close Set pcon = Nothing I had previously used this code in Word2000 without issues what is happening now? I based this off the kb 220607 article. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Mailmerge | Mailmerge | |||
Trying to suppress Select Table box in Excel-Word mailmerge | Mailmerge | |||
Protect mailmerge document | Mailmerge | |||
Textboxes in Mailmerge? | Mailmerge | |||
Included Property in Word 2003 MailMerge | Mailmerge |