[ucmlamb]

I am using Access 2003 to open a Mail Merge document using the following VB code. The document uses a text file as the datasource. This worked in Access 2000, but the document will not open in Access 2003, word opens and the status bar displays "docname.doc: 1,222 characters..." then the document never opens. If I remove the "WordDoc.Close (False)" line the document will display, but not with the updated merge data from the datasource, instead it opens with the saved data from the "template" or original merge document. As I said this code works perfectly in earlier versions of Access.

Function MergeWord(strDocName As String)
Dim WordApp As Object ' running instance of word
Dim WordDoc As Object ' one instance of a word doc
Dim strActiveDoc As String ' doc name (no path)
Dim lngWordDest As Long ' const for dest, 0 = new doc, 1 = printer

On Error GoTo CreateWordApp
Set WordApp = GetObject(, "Word.Application")
On Error Resume Next

Set WordDoc = WordApp.Documents.Open(strDocName)

strActiveDoc = WordApp.ActiveDocument.Name

With WordDoc.MailMerge
.Destination = 0 ' 0 = new doc
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = 1
End With
.Execute Pause:=True
End With
WordDoc.Close (False)

WordApp.Visible = True
WordApp.Windows(WordApp.Windows.Count).Activate

AppActivate "Microsoft Word"
WordApp.WindowState = 0 'wdWindowStateRestore

Set WordApp = Nothing
Set WordDoc = Nothing

DoEvents
Exit Function

CreateWordApp:
...
End Function


Any help would be appreciated.
Thanks
ucmlamb