ACC: How to Create a Word 97 Merge Document Using Automation

MORE INFORMATION

   Argument      Value
   --------      ------------------------------------------------------
   UseDDE        True if you want to use DDE
                 False if you want to use ODBC

   PrintDoc      True if you want to print the result of the merge
                 False if you only want to view the result of the merge
				

1. Open the sample database Northwind.mdb.
2. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit
   					

3. On the Tools menu, click References.
4. In the References box, make sure the Microsoft Word 8.0 Object Library check box is selected, and then click OK.
   
   NOTE: If the Microsoft Word 8.0 Object Library does not appear in the Available References box, browse your hard disk for the file MsWord8.olb. If you cannot locate this file, you must run the Microsoft Word 97 Setup program to install it before you can proceed with this example.
5. Type the following procedure:

         Sub CreateMergeDoc(UseDDE As Boolean, PrintDoc As Boolean)
            Dim WordApp As Word.Application
            Dim WordDoc As Word.Document
            Dim strLetter As String
            Dim strConnect As String
   
            ' Create an instance of Microsoft Word 97.
            Set WordApp = CreateObject("Word.Application")
   
            ' Create a new, empty document.
            Set WordDoc = WordApp.Documents.Add
            With WordDoc.MailMerge
               If UseDDE Then
                  strConnect = "TABLE Customers"
               Else
                  ' Note that on your computer the path
                  ' to Northwind.mdb may be different.
                  ' You can set DSN=MS Access 97
                  ' in Microsoft Access 7.0.
                  strConnect = "DSN=MS Access 97 " _
                  & "Database;DBQ=C:\Program Files\Microsoft Office\" _
                  & "Office\Samples\Northwind.mdb;" _
                  & "FIL=MS Access;"
               End If
               ' Note that on your computer the path
               ' to Northwind.mdb may be different.
               .OpenDataSource _
                   Name:="C:\Program Files\Microsoft Office\Office\" _
                   & "\Samples\Northwind.mdb", _
                   ReadOnly:=True, LinkToSource:=True, _
                   Connection:=strConnect, _
                   SQLStatement:="SELECT * FROM [Customers]"
   
               ' Define the Merge fields in the document.
               With .Fields
                  .Add Range:=WordApp.Selection.Range, Name:="CompanyName"
                  WordApp.Selection.TypeParagraph
                  .Add Range:=WordApp.Selection.Range, Name:="Address"
                  WordApp.Selection.TypeParagraph
                  .Add Range:=WordApp.Selection.Range, Name:="City"
                  WordApp.Selection.TypeText Text:=", "
                  .Add Range:=WordApp.Selection.Range, Name:="Region"
                  WordApp.Selection.TypeText Text:="  "
                  .Add Range:=WordApp.Selection.Range, Name:="PostalCode"
                  WordApp.Selection.TypeParagraph
                  .Add Range:=WordApp.Selection.Range, Name:="Country"
               End With
            End With
   
            ' Define the body of the letter in the merge document.
            strLetter = "Thank you for your business during the past year."
            With WordApp.Selection
               .TypeParagraph
               .TypeParagraph
               .TypeText Text:=strLetter
               .TypeParagraph
               .TypeParagraph
               .TypeText Text:="Sincerely,"
               .TypeParagraph
               .TypeParagraph
               .TypeText Text:="Northwind Traders"
            End With
            With WordDoc.MailMerge
               ' Only merge records 1-10 from the table.
               .DataSource.FirstRecord = 1
               .DataSource.LastRecord = 10
   
               ' Merge the data to a new document.
               .Destination = wdSendToNewDocument
   
               ' Execute the mail merge.
               .Execute
   
               ' If user specified to print the document, disable
               ' background printing, and then print the merged document.
               If PrintDoc Then
                  .Application.Options.PrintBackground = False
                  .Application.ActiveDocument.PrintOut
               End If
            End With
   
            ' Show the instance of Microsoft Word.
            WordApp.Visible = True
         End Sub
   					

6. To test this procedure, type the following line in the Debug window, and then press ENTER:

   CreateMergeDoc UseDDE:=False, PrintDoc:=False

   Note that Microsoft Word opens with a new mail merge document.