![]() |
|
#9
|
|||
|
|||
|
Yes, we copied the code and changed the drives, attached this in case we have done something wrong (more than likely):
Private Sub Document_New() ' Demo code for a vba-driven mailmerge. Dim wdApp As New Word.Application Dim wdDoc As Word.Document wdApp.DisplayAlerts = wdAlertsNone Dim StrSrc As String, StrDoc As String StrDoc = "J:\QLLetters\ASBL001.doc" StrSrc = "H:\QL\ASBL001.csv" Set wdDoc = wdApp.Documents.Open(StrDoc) With wdDoc With .MailMerge .MainDocumentType = wdFormLetters .OpenDataSource _ Name:=StrSrc, ReadOnly:=True, AddToRecentFiles:=False, LinkToSource:=False, _ Connection:="", SQLStatement:="", SQLStatement1:="", SubType:=wdMergeSubTypeOther .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False .MainDocumentType = wdNotAMergeDocument End With .Close False End With wdApp.DisplayAlerts = wdAlertsAll End Sub |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Footer Issue
|
WorldBuilder | Word | 6 | 04-04-2014 03:18 PM |
| have no title for my issue | krayot | Excel | 4 | 01-06-2014 05:56 AM |
| Email Set Up Issue | MothAudio | Outlook | 0 | 04-01-2012 07:40 AM |
| New Issue | jantoine | Outlook | 1 | 09-28-2010 06:08 PM |
| Possible Security Issue? | GarP | Excel | 0 | 04-08-2010 07:47 AM |