Access 2000 VBA mail merge problem Error 5852

Hi Bruintje,

Let me give this a try.  As you say, it's either the txt file or the doc that is not available.  As far as the error handler, I do have that in the code ,so I was able to trap err.number and err.desription and display in a message box.  I just didn't include that bit of code in my posting.

Brunitje, making progress, but  I'm still having a couple of problems.  

Unless I manually start Word first, the line of code:
Set WordApp = GetObject(, "Word.Application")
gives me error 429 "Active X Component Can't Create Object"

I assume I can use an access command to fire up word first, correct?
Or do I need to include a path parameter in the above code?

So, if I manually start Word and step through code it seems to work fine.
I end up with three documents open:
Document 1.doc, which opens when app opens
Document x.doc, with x =2 the first time it's run..incremented each time I try it without closing Word.
Lastly, my document that is the result of the merge,  that is saved via code, for example 052903MailMerge.doc

Now, I want to clean up and close the documents, except for the saved document.  I guess I can loop through the documents collection and look for the string "Document " in the name and close.
Is there an easier way?
Also, what is the best way to release the objects once I'm done with merge?

Thanks!
Vince

 

Thanks bruintje,
Your suggestions corrected my problem.  I did have another problem with error 462 if I ran the function more than once without closing the application.  I located a Microsoft KB article that addressed this:
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q189618&
I modifed my code in several places to include a reference to the word object  and it works now.
Here is the final version:

Function MergeIt() As Boolean

         Dim objWordDoc As Word.Document
         Dim WordApp As Word.Application
         Dim strTempName As String
         Dim strFileSaveName As String
         Dim strPathName As String
         Dim strTemplateName As String
                         
         On Error GoTo ERROR_HANDLER
         
        'assign template name
         strTemplateName = "\\rmyshare\myfolder\LetterForMailMerge.dot"
        'Test to see if there is a copy of Microsoft Word already running.
       
        On Error Resume Next   ' Defer error trapping.
        'Getobject function called without the first argument returns a
        'reference to an instance of the application.
        'If the application is not running, an error occurs, and an instance of Word
        'must be created
        Set WordApp = GetObject(, "Word.Application")
         If Err.Number <> 0 Then Set WordApp = CreateObject("Word.Application")
         Err.Clear ' Clear Err object in case error occurred.
         WordApp.Visible = True
         Set objWordDoc = WordApp.Documents.Add(strTemplateName)
         
          On Error GoTo ERROR_HANDLER
         'Open the text file data source and process the mail merge
       
        WordApp.ActiveDocument.MailMerge.OpenDataSource Name:= _
        "\\myshare\myfolder\export\pin_mailmerge.txt" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _
        :=""
        With WordApp.ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = True
         With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=True
    End With
   

   With ActiveDocument
      strTempName = .Name
      strPathName = "\\myshare\myfolder\MailMerges\"
      'make sure active document is output of merge, not merge template
      If InStr(strTempName, "Form Letters") <> 0 Then
           'build file name"
            strFileSaveName = GetDate & "_PINS.doc"
           'save Document
           .SaveAs FileName:=strPathName & strFileSaveName, FileFormat:=wdFormatDocument, _
            LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", _
            ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, _
            SaveFormsData:=False, SaveAsAOCELetter:=False
     End If
   End With

   'Loop through the documents collection, and close Document1.doc if it was opened.
   For Each aDoc In Word.Documents
    If InStr(aDoc.Name, "Document1") <> 0 Then
        aDoc.Close savechanges:=wdDoNotSaveChanges
    ElseIf InStr(aDoc.Name, strFileSaveName) <> 0 Then
      'Activate the merged document and give the user the opportunity to print
       aDoc.Activate
       Result = MsgBox("Do you want to print " & strFileSaveName & " now?", vbYesNo, "Print Document")
       If Result = vbYes Then
           aDoc.PrintOut
        End If
   End If
   Next aDoc
    'release objects
    WordApp.ActiveDocument.Close
    Set objWordDoc = Nothing
    WordApp.Quit
    Set WordApp = Nothing
     
   'success
  MergeIt = True
  Exit Function
 
ERROR_HANDLER:
     Result = MsgBox("The mail merge failed.", vbOKOnly, "PROCESSING ERROR")
     MsgBox Err.Description
     MsgBox Err.Number


End Function