摘要：
Delphi读取Word现在关于往Word中写入数据的方法比较多，现在专门开个贴子，希望大家把自己读取Word内容的心得体会说一下，包括读取word文档中，有几个段落，如何读取第几个段落，读取有拼音的汉字，读取图片，读取表格等，希望大家不吝赐教！[解决办法]//启动Wordtrywordapplic 阅读全文
posted @ 2016-03-07 11:16 ╰★张志峰★╮ 阅读(6183) 评论(0) 推荐(0)
摘要：
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 ╰★张志峰★╮ 阅读(631) 评论(0) 推荐(0)
摘要：
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 ╰★张志峰★╮ 阅读(2313) 评论(0) 推荐(0)
摘要：
unit ControlWordS;interfaceuses Classes, Sysutils, Word97;type TControlWord = class(TComponent) private { Private declarations } FWordApp : TWordAppli 阅读全文
posted @ 2016-03-07 10:17 ╰★张志峰★╮ 阅读(792) 评论(0) 推荐(0)
摘要：
C#控制定位Word光标移动到任意行或者最后一行，取得光标位置等操作 http://blog.csdn.net/jglie/article/details/7394256 十一、上下左右移动光标位 private void moveLeft() { object moveUnit = Microso 阅读全文
posted @ 2016-03-07 10:13 ╰★张志峰★╮ 阅读(3065) 评论(1) 推荐(0)
摘要：
源代码如下： //Word打印（声明部分） wDoc,wApp:Variant; function PrnWordBegin(tempDoc,docName:String):boolean; function PrnWordReplace(docText,newText:String;bSimple 阅读全文
posted @ 2016-03-07 10:10 ╰★张志峰★╮ 阅读(731) 评论(0) 推荐(0)
摘要：
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 ╰★张志峰★╮ 阅读(925) 评论(0) 推荐(0)
摘要：
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 ╰★张志峰★╮ 阅读(3331) 评论(0) 推荐(1)
摘要：
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 ╰★张志峰★╮ 阅读(821) 评论(0) 推荐(0)
摘要：
//设置表格样式 wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineStyle = Word.WdLineStyle.wdLineStyleSingle; wordDoc.Tables.Item(1).Bo 阅读全文
posted @ 2016-03-07 09:26 ╰★张志峰★╮ 阅读(512) 评论(0) 推荐(0)
浙公网安备 33010602011771号