09 2017 档案

摘要://导出Wordprocedure TFrm_Computing.ExportWord;varwordApp, WordDoc, WrdSelection, wrdtable, wrdtable1, cell: variant;strAdd: string;wdPar,wdRange:OleVari 阅读全文
posted @ 2017-09-20 14:55 洗碗心得 阅读(547) 评论(0) 推荐(0) 编辑
摘要:unit ControlWordS;interfaceuses Classes, Sysutils, Word97;type TControlWord = class(TComponent) private { Private declarations } FWordApp : TWordAppli 阅读全文
posted @ 2017-09-20 14:53 洗碗心得 阅读(1132) 评论(0) 推荐(0) 编辑
摘要://设置表格样式wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineStyle = Word.WdLineStyle.wdLineStyleSingle;wordDoc.Tables.Item(1).Bord 阅读全文
posted @ 2017-09-20 14:20 洗碗心得 阅读(559) 评论(0) 推荐(0) 编辑
摘要:uses comobj, word2000procedure TForm1.Button2Click(Sender: TObject);varWordApp, WordDoc,table: OleVariant;fileName : string;beginWordApp := CreateOleO 阅读全文
posted @ 2017-09-20 14:19 洗碗心得 阅读(721) 评论(0) 推荐(0) 编辑
摘要:procedure TFrmWeekAnalysisQry.BtnExportToExcelClick(Sender: TObject);var wordApp,WordDoc,WrdSelection:variant;strAdd:string;i,j,iRangeEnd,iStart,iEnd 阅读全文
posted @ 2017-09-20 14:19 洗碗心得 阅读(699) 评论(0) 推荐(0) 编辑
摘要:我的电脑:SaveDialog1.InitialDir := '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';// My Computer {20D04FE0-3AEA-1069-A2D8-08002B30309D}// Network Neighborhood 阅读全文
posted @ 2017-09-20 14:17 洗碗心得 阅读(455) 评论(0) 推荐(0) 编辑
摘要:unit U_WordConst; interface {*******Word窗体状态************} const wdWindowStateNormal = $00000000; {普通状态} {*******域的位置状态************} const wdCollapseSt 阅读全文
posted @ 2017-09-20 14:16 洗碗心得 阅读(1207) 评论(0) 推荐(0) 编辑
摘要:利用VBA 编程,可以使许多日常的任务自动完成,使用户的工作更有效率。 1、在启动时显示打开对话框 一般情况下启动Word,Word 会认为是创建一个新文档。如果只是想打开一个旧文档进行编辑,在Word 启动时显示【打开】对话框可以节省许多时间。为此,可以创建生成一个宏。 Public Sub op 阅读全文
posted @ 2017-09-20 14:14 洗碗心得 阅读(1532) 评论(0) 推荐(0) 编辑
摘要:急待解决的问题就是如何用delphi实现word中的统计字数 另外想多了解一些关于操作word的相关内容 比如用ole动态创建的和TWordApplication的偏重点在哪里,有什么不同等等…… 用OLE的方法控制Word几乎和VBA一样,可以控制Word的所有功能,缺点是没有代码提示,要参照Wo 阅读全文
posted @ 2017-09-20 13:55 洗碗心得 阅读(378) 评论(0) 推荐(0) 编辑
摘要:一、Delphi程序启动Word 采用CreateOleObjects的方法来启动Word,调用VBA代码,具体实现过程为: 首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序,如果存在,则直接连接,如果没有Word程序,则使用Cr 阅读全文
posted @ 2017-09-20 13:50 洗碗心得 阅读(1038) 评论(0) 推荐(0) 编辑