VBA/Excel/Access/Word/Outlook/MailMerge
Connecting Word with Access and MailMerge
<source lang="vb">
Sub MailmergeLetter()
Dim myLetter As Document Documents.Open FileName:="C:\Letter.doc" Set myLetter = Documents("Letter.doc") myLetter.MailMerge.OpenDataSource Name:="C:\store.mdb", Connection:="TABLE Employees"
End Sub
</source>
Merge to a new document and use only records 1 to 3
<source lang="vb">
Sub MailmergeLetter()
Dim myLetter As Document Documents.Open FileName:="C:\Letter.doc" Set myLetter = Documents("Letter.doc") myLetter.MailMerge.OpenDataSource Name:="C:\mydb.mdb", Connection:="TABLE Employees" With myLetter.MailMerge .Destination = wdSendToNewDocument With .DataSource .FirstRecord = 1 .LastRecord = 3 End With .Execute End With
End Sub
</source>