Help With Merge to A Word Document

[HarryTheB]

Hi, I am using the following code in Access 2003 to merge data from a query to a table in a Word document:

Private Sub BtnMerge_Click()
Dim db As DAO.Database
Dim objWord As Word.Application
Dim strDocumentPath As String

Set db = CurrentDb()
Set objWord = GetObject(, "Word.Application")

If Err.Number <> 0 Then
Set objWord = CreateObject("Word.Application")
End If

objWord.Visible = True
strMyTemplatePath = "C:\Users\Bill\Documents\Databases\Documents\ACP11 7Section2.dot"

objWord.Documents.Add Template:=strDocumentPathPath, NewTemplate:=False

objWord.ActiveDocument.MailMerge.OpenDataSource _
Name:=db.Name, _
LinkToSource:=True, _
Connection:="QUERY QryACP117Sect2", _
SQLStatement:="Select * from [QryACP117Sect2]"

objWord.ActiveDocument.MailMerge.Execute
End Sub

The code works fine and merges to produce a Word document. The problem is that the completed document is produced with only one record (Table Row) per page, which I guess is 'letter' or 'label' merge format, rather than the 'directory' format I was hoping for i.e. with records following one another and spilling over pages.

If I open the document in Word and do a normal mail merge it produces the directory style document I want.

Any advice or solutions would be gratefully received.

[FishVal]

Hi, HarryTheB.

If you are able to do it manually, then just record a macro and see the generated VBA code.

Regards,
Fish

P.S. I guess in your case you should set MailMerge.MainDocumentType property.

[HarryTheB]

Hi, Fish
I can't thank you enough. I simply added the line:

objWord.ActiveDocument.MailMerge.MainDocumentType = wdDirectory

and it works a treat. Once again many thanks

HarryTheB

[FishVal]

Not a problem.
Good luck.