张志峰的博客

水滴石川,积少成多。

导航

随笔分类 -  Delphi 操作Word

摘要:[CSDN-Word教程]自动完成Word 日常任务 利用VBA 编程,可以使许多日常的任务自动完成,使用户的工作更有效率。11.7.1 在启动时显示打开对话框 一般情况下启动Word,Word 会认为是创建一个新文档。如果只是想打开一个旧文档进行编辑,在Word 启动时显示【打开】对话框可以节省许多时间。为此,可以创建生成一个宏。Public Sub openfile()'建立一个宏,使在Word 启动时运行该宏Dialogs(wdDialogFileOpen).ShowEnd Sub 将此代码加入模板中。为了使Word 每次启动时自动执行该宏,用鼠标右键单击桌面上Word 阅读全文

posted @ 2011-08-29 09:36 ╰★张志峰★╮ 阅读(1133) 评论(0) 推荐(0)

摘要: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 ╰★张志峰★╮ 阅读(4487) 评论(0) 推荐(0)

摘要:急待解决的问题就是如何用delphi实现word中的统计字数 另外想多了解一些关于操作word的相关内容 比如用ole动态创建的和TWordApplication的偏重点在哪里,有什么不同等等……用OLE的方法控制Word几乎和VBA一样,可以控制Word的所有功能,缺点是没有代码提示,要参照Word的帮助和VBA。用TWordApplication组件的方式有代码提示,但有很多功能用不了,而且在调用Word的一些方法时,不能省略默认的参数,写参数写到手软。Word里面的字数统计是特殊的内置对话框,用宏是录制不下来的。var WordApp,WordDoc:OleVariant;begin W 阅读全文

posted @ 2011-08-16 15:29 ╰★张志峰★╮ 阅读(1801) 评论(0) 推荐(0)

摘要:一、Delphi程序启动Word 采用CreateOleObjects的方法来启动Word,调用VBA代码,具体实现过程为: 首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序,如果存在,则直接连接,如果没有Word程序,则使用CreateOleObject('Word.Application')启动Word 二、Delphi程序新建Word文稿 格式:WordDocuments.Add(Template,NewTemplate,DocumentType,Visible) Template: 使 阅读全文

posted @ 2011-08-16 14:58 ╰★张志峰★╮ 阅读(1880) 评论(0) 推荐(0)