要实现如下功能： 1、打开指定的word后，进行修改，并存档； 2、关闭word后，发送此附件； 有如下代码，打在打开word的同时，也启动了email，如在修改后存盘，则提示出在发送是不能关闭word，请转移消息。如要实现上述功能，该如何处理！谢谢！ var vWordApp,vWordDoc:Variant; pathss:string; begin pathss:=ExtractFilePath(Paramstr(0)) '业务工作.doc'; vWordApp := CreateOleObject('Word.Application'); vWordApp.Visible := True; vWordApp.DisplayAlerts := true; vWordDoc := vWordApp.Documents.Add(pathss, False); vWordDoc.Activate; vWordApp.Documents.Item(1).SaveAs(pathss); vWordApp.Options.SendMailAttach := True; vWordApp.Documents.Item(1).SendMail; vWordApp.quit;