保存激活的嵌入Word文档的Bug！！！请指点

lookering

我在程序中提取RTF域中的嵌入word文档，归档时运行如下
Set itemBody=doc.GetFirstItem("插入控件的RTF文本域")
If (Not itemBody Is Nothing) Then
         If ( itembody.Type = RICHTEXT ) Then
        Forall o In itembody.EmbeddedObjects
        Set handle = o.Activate(false)       
        Call handle.Revisions.AcceptAll()
        Call doc.save(True,False)
        handle.Saveas ("C:\成文.doc")                               
                Dim archivebody As NotesRichTextItem
        Set archivebody = New NotesRichTextItem( doc, "doc_Archive")
Set object = archivebody.EmbedObjec(EMBED_ATTACHMENT, "", "c:\成文.doc")                               
        Call o.remove
        Kill "c:\成文.doc"
                 End Forall                               
      End If
End If
若是嵌入的word文档中没有嵌入对象时，上述代码运行正常。
而当word文档中嵌入了对象（如Excel表格，日历控件，media play）时，在进行保存时（handle.Saveas ("C:\成文.doc")），出现错误：
               automation  object error
请问高手这是什么原因？？如何解决？？