![]() |
#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 |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
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 |