Delphi与Word(三)取得Word文件的数据

原创 2003年06月04日 17:16:00

//取得Word文件的数据
procedure getWordStr;
var WordApp: TWordApplication;
??? WordDoc: TWordDocument;
??? DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
??? PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat: OleVariant;
??? i,iRow,iCol:integer;
??? myCell:Cell;
??? myRow:Row;
begin
? memo1.Lines.Clear ;

??? // ===== 创建对象 =====
??? if not Assigned(WordApp) then?????????????????????????
??? begin
????? WordApp:= TWordApplication.Create(nil);
????? WordApp.Visible := false;
??? end;
??? if not Assigned(WordDoc) then
????? WordDoc:= TWordDocument.Create(nil);
? try
??? DocInx:=1;
??? oFileName := 'd:/test.doc';
??? oReadOnly:=true;
??? CfCversions := EmptyParam;
??? AddToRctFiles:= EmptyParam;
??? PswDocument:= EmptyParam;
??? PswTemplate:= EmptyParam;
??? oRevert:= EmptyParam;
??? WPswDocument:= EmptyParam;
??? WPswTemplate:= EmptyParam;
??? oFormat:= EmptyParam;????
??? // ===== 打开文件 =====????????????????????????
??? WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,
?????? PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);
??? // ===== 关联文件 =====
??? WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));


??? //方法(1): 取整个文本的字符内容,包含表格
??? s := WordDoc.Range.text;?

??? //方法(2): 取 1 -- 4 位的字符 ,包含表格
??? myRange:=WordDoc.Range;
??? myRange.Start:=0;
??? myRange.End_ :=4;

? finally
??? if Assigned(WordDoc) then????????????? // ===== 关闭文件 =====
??? begin
????? WordDoc.Close;
????? WordDoc.Disconnect;
????? WordDoc.Destroy;
????? WordDoc := nil;
??? end;
??? if Assigned(WordApp) then????????????? // ===== 关闭Word =====
??? begin
????? WordApp.Quit;
????? WordApp.Disconnect;
????? WordApp.Destroy;
????? WordApp := nil;
??? end;
? end;
end;

Delphi与Word(三) 取得Word文件的数据

//取得Word文件的数据procedure getWordStr;var WordApp: TWordApplication;    WordDoc: TWordDocument;    DocIn...
  • TianGuanLeiOK
  • TianGuanLeiOK
  • 2004年09月08日 16:16
  • 1019

将Word嵌入Delphi中

转载自: http://bigpower.blog.51cto.com/209892/90287unit Main;interfaceuses Windows, Messages, SysUtils...
  • jiangnanandi
  • jiangnanandi
  • 2009年03月05日 16:29
  • 1582

Delphi操作word的基本用法

刚把delphi捡起来,第一个要做的竟然操作word,总结一下。一. 定义word应用程序,文档对象,比如:wordApp: OleVariant;   wordDoc: OleVariant;二. ...
  • soasoa
  • soasoa
  • 2008年09月19日 12:56
  • 7831

Delphi中的数据添加到Word模板的相应位置

Delphi中的数据添加到Word模板的相应位置 就跟将数据导入Excel一样,在运行Delphi程序时,点击预览按钮后,会打开一Word模板,且将数据填入此Word模板相应的位置,此Word模板为一...
  • mrwu9902
  • mrwu9902
  • 2010年03月30日 20:40
  • 876

Delphi操作Word,Excel替换

有的时候想把数据库里的内容写在Word,Excel按某种格式
  • jing12
  • jing12
  • 2014年09月14日 14:46
  • 955

使用Delphi 7控制Word 2000生成文档的方法

最近帮同学用Delphi 7写的一个数据库应用中的一个功能是将查询的结果导出到一个Word文档中保存。虽然Delphi 7的Servers面板中提供了TWordApplication和TWordDoc...
  • neowang
  • neowang
  • 2004年10月08日 09:03
  • 9605

用delphi吧一个word文档追加到另外一个word文档中

uses ComObj; var WordApp: Variant;beginWordApp := CreateOleObject(Word.Application); WordApp.Documen...
  • iseekcode
  • iseekcode
  • 2009年10月28日 22:54
  • 1204

Delphi操作Word的方法

Delphi操作Word的方法 一、VBA代码含义 Microsoft Word是一个集成化环境,是美国微软公司的字处理系统,但是它决不仅仅是一个字处理系统,它集成了Microsoft Vis...
  • xieyunc
  • xieyunc
  • 2015年11月27日 17:43
  • 2795

Delphi操作Word中的表

Procedure GetWordCellStr; var     WordApp: TWordApplication;     WordDoc: TWordDocument;     Doc...
  • my98800
  • my98800
  • 2016年09月29日 11:32
  • 764

Delphi与Word(一)合并Word 表格中单元格

//合并Word 表格中单元格procedure mergeWordCell;var WordApp: TWordApplication;??? WordDoc: TWordDocument;??? ...
  • LuckyJan
  • LuckyJan
  • 2003年06月04日 17:13
  • 1755
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi与Word(三)取得Word文件的数据
举报原因:
原因补充:

(最多只允许输入30个字)