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 = ""