张志峰的博客

水滴石川，积少成多。

导航

2016年3月7日

Delphi 712操作word

摘要： //导出Wordprocedure TFrm_Computing.ExportWord;var wordApp, WordDoc, WrdSelection, wrdtable, wrdtable1, cell: variant; strAdd: string; wdPar,wdRange:OleV 阅读全文

posted @ 2016-03-07 13:40 ╰★张志峰★╮ 阅读(750) 评论(0) 推荐(0)

Delphi中编辑word

摘要： 其他（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 ╰★张志峰★╮ 阅读(2076) 评论(0) 推荐(0)

Delphi读取Word

摘要： Delphi读取Word现在关于往Word中写入数据的方法比较多，现在专门开个贴子，希望大家把自己读取Word内容的心得体会说一下，包括读取word文档中，有几个段落，如何读取第几个段落，读取有拼音的汉字，读取图片，读取表格等，希望大家不吝赐教！[解决办法]//启动Wordtrywordapplic 阅读全文

posted @ 2016-03-07 11:16 ╰★张志峰★╮ 阅读(6205) 评论(0) 推荐(0)

Delphi word 颜色

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

delphi 操作 word

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

Delphi 操作Word怎么控制光标的位置

摘要： unit ControlWordS;interfaceuses Classes, Sysutils, Word97;type TControlWord = class(TComponent) private { Private declarations } FWordApp : TWordAppli 阅读全文

posted @ 2016-03-07 10:17 ╰★张志峰★╮ 阅读(802) 评论(0) 推荐(0)

C#控制定位Word光标移动到任意行或者最后一行，取得光标位置等操作

摘要： C#控制定位Word光标移动到任意行或者最后一行，取得光标位置等操作 http://blog.csdn.net/jglie/article/details/7394256 十一、上下左右移动光标位 private void moveLeft() { object moveUnit = Microso 阅读全文

posted @ 2016-03-07 10:13 ╰★张志峰★╮ 阅读(3067) 评论(1) 推荐(0)

delphi ole word

摘要： 源代码如下： //Word打印（声明部分） wDoc,wApp:Variant; function PrnWordBegin(tempDoc,docName:String):boolean; function PrnWordReplace(docText,newText:String;bSimple 阅读全文

posted @ 2016-03-07 10:10 ╰★张志峰★╮ 阅读(735) 评论(0) 推荐(0)

Delphi word编辑

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

Delphi 操作word 表格

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

c#操作word表格

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

delphi 设置表格样式。

摘要： //设置表格样式 wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineStyle = Word.WdLineStyle.wdLineStyleSingle; wordDoc.Tables.Item(1).Bo 阅读全文

posted @ 2016-03-07 09:26 ╰★张志峰★╮ 阅读(515) 评论(0) 推荐(0)

delphi通过OLE对word进行单元格合并操作

摘要： uses comobj, word2000procedure TForm1.Button2Click(Sender: TObject);var WordApp, WordDoc,table: OleVariant; fileName : string;begin WordApp := CreateO 阅读全文

posted @ 2016-03-07 09:12 ╰★张志峰★╮ 阅读(1054) 评论(0) 推荐(0)