摘要:
Delphi Ole操作Word,判断是否有打开的文档,并且给关闭。Function ChkWordIsOpen(const AFullFileName: string): boolean;var WordApp: variant; CurrDoc: variant;begin Result := False; WordApp := GetActiveOleObject('word.Application'); CurrDoc := WordApp.documents.Open(AFullFileName, Revert:=true, Visible := true ); Cu 阅读全文
posted @ 2011-08-25 13:22 ╰★张志峰★╮ 阅读(4429) 评论(0) 推荐(0) 编辑