Runtime error 5852

M

Mo

Hello All,

Using Access 2003 and Word 2003 on a WinXp Workstation with all SPs and
updates.

The code that I'm using is MS standard (see below) and has never previously
given me any problems, albeit using Access 2000 and Word 2000.

I've searched the MS knowledge base and googled the error but nothing I find
seems to relevant to this situation.

It falls over on the '.Destination = wdSendToNewDocument' line.


Can someone help?

TIA,

Mo

--------Code----------


DoCmd.Hourglass True

If CreateWordObj() Then
With gobjWord
..Visible = True
..Documents.Open "d:\screening\template.doc"
DoEvents
With gobjWord.ActiveDocument.MailMerge
..Destination = wdSendToNewDocument
..SuppressBlankLines = True
..Execute
End With
'.ActiveDocument.PrintPreview
..Visible = True
End With
End If

DoCmd.Hourglass False
 
Top