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;

 

MPEG-7标准概述     作者:张继东

MPEG-7标准概述     作者:张继东    发布时间:2001/06/06  文章摘要:  摘要:针对现有的国际标准中还没有能够解决多媒体信息定位问题的工具,活动图象专家组决定发展一个新的国际标...
  • CandyCat
  • CandyCat
  • 2001-06-07 02:00:00
  • 2162

使用Delphi获取Word文件中的数据

//delphi7、Office2003下编译通过    //参考http://dev.csdn.net/article/18/18811.shtm,并做了修改  //取得Word文件的数据 需要us...
  • wjw806
  • wjw806
  • 2008-06-11 00:00:00
  • 1373

delphi读取word

  • 2013年04月12日 09:35
  • 306KB
  • 下载

delphi 循环读取word每页的内容显示在OleContainer1内

最近要做一个word浏览内容的工具,网上找了找例子基本都差不都,下回来试了试有点问题。 OleContainer1载入word后默认都是显示第一页的,在csdn上发帖求助,终于解决了显示问题。 感...
  • yct0605
  • yct0605
  • 2011-12-28 15:27:43
  • 3392

读取word中的内容

import java.io.File; import java.io.FileInputStream; import java.io.IOException; import org.apa...
  • g329741609
  • g329741609
  • 2012-11-14 16:11:56
  • 255

<em>delphi</em> <em>读取Word</em>

<em>delphi读取word文档</em> 立即下载 上传者: dgxlaen 时间: 2010-04-26 综合评分: 4 积分/C币:3 <em>delphi</em>向word写入数据 立即下载 上传者: sdlzfa 时间: 2014-...
  • 2018年04月15日 00:00

用<em>Delphi</em>实现<em>Word</em>文件的预览

您不必从文件中<em>读取</em>所有的图像 ? 您可以创建自己的图像。要创建自己的图像,最...使用<em>Delphi</em> 7控制<em>Word</em> 2000生成<em>文档</em>的方法 使用<em>Delphi</em>获取<em>Word</em>文件中的数据 Delphi...
  • 2018年04月14日 00:00

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

//取得Word文件的数据procedure getWordStr;var WordApp: TWordApplication;    WordDoc: TWordDocument;    DocIn...
  • TianGuanLeiOK
  • TianGuanLeiOK
  • 2004-09-08 16:16:00
  • 1098

DELPHI 打开WORD文档

应用程序可以把Word中的文本提取出来作为模糊查询的依据或其他操作。本例是单击“打开文档”按钮,从选中的Word文档中提取文本内容,如图7.27所示。     通过createoleobject方法...
  • Trassion
  • Trassion
  • 2012-02-22 13:37:25
  • 1991

Delphi操作Word的方法

Delphi操作Word的方法 一、VBA代码含义 Microsoft Word是一个集成化环境,是美国微软公司的字处理系统,但是它决不仅仅是一个字处理系统,它集成了Microsoft Vis...
  • xieyunc
  • xieyunc
  • 2015-11-27 17:43:47
  • 3038
收藏助手
不良信息举报
您举报文章:Delphi与Word(三) 取得Word文件的数据
举报原因:
原因补充:

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