有哪一位朋友能帮一下呀我在调word文档来进行文档打印时第一次能正常调用但是再次打印时就会出错这是什么原因呀请那位高手指导一下呀?????
这一一段代码:
begin
MSWord := CreateOLEObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:=sMainPath+'\数据库\report.doc', ReadOnly:=false); //打开外部Word文档
MSWord.Visible:= 1;
MSWord.documents.close; WordDocument1.Activate; //第二次调用时就在这儿出错!`1
//worddocument1.Range.InsertParagraph;
worddocument1.Range.Insertafter(' (一)建筑市政工程设计'+#13);
WordDocument1.Range.Paragraphs.Alignment := wdAlignParagraphleft;
worddocument1.Range.Insertafter(#13);
.................
..................
...............
except
begin
MessageDlg('您没有安装Word!', mtError, [mbOk], 0);
Abort;
end;
end;
急需!~!
请指教!
这一一段代码:
begin
MSWord := CreateOLEObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:=sMainPath+'\数据库\report.doc', ReadOnly:=false); //打开外部Word文档
MSWord.Visible:= 1;
MSWord.documents.close; WordDocument1.Activate; //第二次调用时就在这儿出错!`1
//worddocument1.Range.InsertParagraph;
worddocument1.Range.Insertafter(' (一)建筑市政工程设计'+#13);
WordDocument1.Range.Paragraphs.Alignment := wdAlignParagraphleft;
worddocument1.Range.Insertafter(#13);
.................
..................
...............
except
begin
MessageDlg('您没有安装Word!', mtError, [mbOk], 0);
Abort;
end;
end;
急需!~!
请指教!
MSWORD.quit;
MSWORD:=Unassigned; //释放VARIANT变量
except