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

原创 2004年09月08日 16: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提取doc内容和图片可转html

  • 2016年12月28日 17:20
  • 1.47MB
  • 下载

在Delphi中很精确地控制生成的WORD文档的格式

var    WordApplication1: TWordApplication; 通过以下的方式就可以在DELPHI中很精确地控制生成的WORD文档的格式。     //-----------...
  • han99yi
  • han99yi
  • 2014年08月05日 09:30
  • 1561

Delphi操作Word的方法

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

Delphi的几种类型转换

Delphi的几种类型转换 unit Support; interface type dword=longword; function WordToStr(Value: word): string; ...
  • yangb0803
  • yangb0803
  • 2016年05月13日 21:39
  • 2209

从Word文档中提取嵌入对象

从Word文档中提取嵌入对象 有时候我们可能需要提取嵌入到一个word文档的对象。这篇文章将讲述如何使用C#及一个免费Word组件- FreeSpire.Doc 从一个word文档中提取嵌入的对象。...
  • Eiceblue
  • Eiceblue
  • 2016年09月08日 16:49
  • 2897

用Python读取Word文档并写入Excel(一)

工作中经常要处理大量的word文档,大部分内容都很简单,比如说做一个汇总表,从发来的word文档里提取名字、联系方式、地址等信息,提取完之后还需要用Excel做汇总,对于十几份的文档尚好,但对于成百份...
  • qq_34475777
  • qq_34475777
  • 2017年03月14日 20:54
  • 6546

c++读取word文件

c++读取word文件1.在vs中新建一控制台程序,选支持MFC 2.右击项目->选择类向导->选择添加类型库中的MFC类3.选择从文件中添加->选择你的word的类型库(就是添加MSWOR.OLB,...
  • articultur
  • articultur
  • 2015年03月15日 17:38
  • 2281

C#读取Word文件

第1步: 对项目添加引用 Microsoft Word 11.0 Object Library 第2步: 在程序中添加 using Word = Microsoft.Office.Inter...
  • wuyingzhiyi
  • wuyingzhiyi
  • 2016年09月26日 11:28
  • 2986

c#提取word文档中的图片

最近搞了下从word中提取图片,之前都没接触过c#,开始还是有点小担心,怕不会弄,任务在身,不得不搞,发现c#还是很好用的。^_^ 接下来说说word提取图片的事。c#提供了Microsoft.Off...
  • DEV_linux
  • DEV_linux
  • 2015年10月20日 14:18
  • 1318

Delphi 打印实例

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, ...
  • lailai186
  • lailai186
  • 2013年05月16日 14:20
  • 2696
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi与Word(三) 取得Word文件的数据
举报原因:
原因补充:

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