Runtime error 5852

[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 "c:\hp_letters\drugsranout.doc"
DoEvents
With gobjWord.ActiveDocument.MailMerge
..Destination = wdSendToNewDocument
..SuppressBlankLines = True
..Execute
End With
'.ActiveDocument.PrintPreview
..Visible = True
End With
End If

End If