摘要：http://blog.csdn.net/csm2432/article/details/7692443
阅读全文
posted @ 2016-04-13 10:29
随笔分类 - Delphi 操作Word
摘要：//导出Wordprocedure TFrm_Computing.ExportWord(aFileName: string; aFileType: string);var wordApp, WordDoc, WrdSelection, wrdtable, wrdtable1, cell: varia
阅读全文
posted @ 2016-04-13 10:16
摘要：//导出Wordprocedure TFrm_Computing.ExportWord;var wordApp, WordDoc, WrdSelection, wrdtable, wrdtable1, cell: variant; strAdd: string; wdPar,wdRange:OleV
阅读全文
posted @ 2016-03-07 13:40
摘要：其他（28） //启动Word try wordapplication1.connect; except messagedlg('word may not be installed', mterror, [mbok], 0); abort; end; //打开文档 procedure TForm1.
阅读全文
posted @ 2016-03-07 13:26
摘要：Delphi读取Word现在关于往Word中写入数据的方法比较多，现在专门开个贴子，希望大家把自己读取Word内容的心得体会说一下，包括读取word文档中，有几个段落，如何读取第几个段落，读取有拼音的汉字，读取图片，读取表格等，希望大家不吝赐教！[解决办法]//启动Wordtrywordapplic
阅读全文
posted @ 2016-03-07 11:16
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) bt
阅读全文
posted @ 2016-03-07 11:10
摘要：uses ComObj,word2000 procedure TForm1.ExportWord(); var FWord :Variant; FDoc :Variant; i,Row:Integer; nodeString:Tstringlist; nodeList:TList; Tables,T
阅读全文
posted @ 2016-03-07 11:09
摘要：unit ControlWordS;interfaceuses Classes, Sysutils, Word97;type TControlWord = class(TComponent) private { Private declarations } FWordApp : TWordAppli
阅读全文
posted @ 2016-03-07 10:17
摘要：C#控制定位Word光标移动到任意行或者最后一行，取得光标位置等操作 http://blog.csdn.net/jglie/article/details/7394256 十一、上下左右移动光标位 private void moveLeft() { object moveUnit = Microso
阅读全文
posted @ 2016-03-07 10:13
摘要：源代码如下： //Word打印（声明部分） wDoc,wApp:Variant; function PrnWordBegin(tempDoc,docName:String):boolean; function PrnWordReplace(docText,newText:String;bSimple
阅读全文
posted @ 2016-03-07 10:10
摘要：private void but_Table_Click(object sender, EventArgs e) { object Nothing = System.Reflection.Missing.Value; object missing = System.Reflection.Missin
阅读全文
posted @ 2016-03-07 09:45
摘要：var wordApp, WordDoc, WrdSelection, wrdtable: variant; strAdd: string; wdPar,wdRange:OleVariant; iCol, iRow, I, J: Integer; begin try wordApp := Creat
阅读全文
posted @ 2016-03-07 09:40
摘要：http://www.webshu.net/jiaocheng/programme/ASPNET/200804/6499.html <% if request("infoid")<>"" then set rs=conn.execute("select * from nproduct where i
阅读全文
posted @ 2016-03-07 09:37
摘要：//设置表格样式 wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineStyle = Word.WdLineStyle.wdLineStyleSingle; wordDoc.Tables.Item(1).Bo
阅读全文
posted @ 2016-03-07 09:26
摘要：uses comobj, word2000procedure TForm1.Button2Click(Sender: TObject);var WordApp, WordDoc,table: OleVariant; fileName : string;begin WordApp := CreateO
阅读全文
posted @ 2016-03-07 09:12
摘要：[转载]在Delphi中使用CreateOleObject方法 (2011-08-24 14:20:47) 转载▼ 标签： 转载 原文地址：在Delphi中使用CreateOleObject方法作者：皮皮 对WORD文件进行操作 使用CreateOleObject方法对WORD文档操作具有先天所具备
阅读全文
posted @ 2016-03-04 15:51
摘要：procedure TFrmWeekAnalysisQry.BtnExportToExcelClick(Sender: TObject);var wordApp,WordDoc,WrdSelection:variant; strAdd:string; i,j,iRangeEnd,iStart,iEn
阅读全文
posted @ 2016-03-04 15:36
摘要：我的电脑：SaveDialog1.InitialDir := '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';// My Computer {20D04FE0-3AEA-1069-A2D8-08002B30309D}// Network Neighborhood {208D2C60-3AEA-1069-A2D7-08002B30309D}// Recycled {645FF040-5081-101B-9F08-00AA002F954E}另外可使用SHGetSpecialFolder获取其它Windows虚拟文件夹，相关函数和常数定义于Shl
阅读全文
posted @ 2013-08-12 11:24
摘要：把鼠标放在上部点右键/点自定义/工具栏/把菜单栏前的勾去掉/关闭，就OK了。若想再显示出菜单栏，用同样方法，把菜单栏前的勾打上，就可以了。
阅读全文
posted @ 2011-10-13 16:24
摘要：unit U_WordConst; interface {*******Word窗体状态************} const wdWindowStateNormal = $00000000; {普通状态} {*******域的位置状态************} const wdCollapseStart = $00000001; wdCollapseEnd = $00000000; {*******方向单元操作************} const wdCharacter = $00000001; wdWord = $00000002; wdSentence = $0000000...
阅读全文
posted @ 2011-08-29 09:55
浙公网安备 33010602011771号