Hi - I was wondering if someone could help me? I'll start at the begining: I need a user to open a word document (from Access) which has some static text(mail merge) and I need to append data from a form to it. This isn't a problem I've used the basic code shown in the automation chapter 15 OF ACCESS 2003 VBA with some slight modifications - API call to CMDLG32.dll assigning the file name to a string and passing the string to the getobject function as a parameter. Now the problem starts I get 2 word documents opened, the merge template document and another "Form document" both with the same info? Is it possible only to open the new document with all the staic and dynamically assigned text?

Code snippit below. (Be kind to me I'm new to this game ;o))

Private Sub CmdGetCmnDlg_Click()
On Error GoTo Err_CmdGetCmnDlg_Click

Dim strPath As String
Dim WordDoc As Word.Document

strPath = GetFile // Function call to API common dialog returning selected document path.

If (strPath = "") Then
  Exit Sub
Else

Set WordDoc = GetObject(strPath)
WordDoc.Application.Visible = True

WordDoc.MailMerge.OpenDataSource *****...................etc
WordDoc.MailMerge.Execute
Cheers Wullie


William

__________________
William

Hi William,

If you work with a reference to a word application object instead of a document object, you can close the template file with:

objWord.Documents("Document1").Close wdDoNotSaveChanges

objWord is you application object varialbe. Replace "Document1" with the name of the merge template document that opens for you if its different.

For example:

Public Sub WordMailMerge()

    Dim objWord As Word.Application

    Set objWord = New Word.Application

    ' Get path to template file.
    strPath = GetFile

    objWord.Documents.Add (strPath)

    objWord.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    objWord.ActiveDocument.MailMerge.OpenDataSource ......etc

    With objWord.ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .Execute
    End With

    ' Close the template file
    objWord.Documents("Document1").Close wdDoNotSaveChanges

    objWord.Visible = True
    Set objWord = Nothing

 End Sub

HTH,

Bob

Thanks Bob I'll give it a go tonight as the project I'm working on is on my home machine. The solution looks so simple now.

Cheers Wm :o)

William