1) It won't let me comment out the range for first and last doc. I tried to comment out the 4 lines (including the with)
2) Doc 2 (the merged document is still left open if i choose mergetonewdoc. should i leave it open?
VB Code:
With oDoc.MailMerge.DataSource ' .FirstRecord = 1 ' .LastRecord = 3 ' End With ' With oDoc.MailMerge .Destination = wdSendToPrinter 'wdSendToNewDocument;wdSendToPrinter; wdSendToFax; wdSendToEmail ' .Destination = wdSendToNewDocument 'wdSendToNewDocument;wdSendToPrinter; wdSendToFax; wdSendToEmail .Execute True End With ' oDoc.Close False Set oDoc = Nothing moApp.Quit Set moApp = Nothing




Reply With Quote