microsoft.public.word.vba.general

useing the following code I get message 5852 requested object not available?
Stumped as I print all the time I am running this macro from excel all code
is in same sub .destination = wdSendToPrinter------error 5852 is marked in
code also
Thanks
Dim word As New word.Application
Dim wordDoc As word.Document
word.Visible = True
ChangeFileOpenDirectory "\Parade"
Documents.Open Filename:="\ThankMailE.doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
With ActiveDocument.MailMerge
.destination = wdSendToPrinter------error 5852
' Application = ActivePrinter
'ActiveSheet.PrintOut
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""