全部
Ada助手

２００分求Delphi读取Word

喝口水 2008-11-06 03:47:31

加精

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

...全文

给本帖投票

4119 136 打赏收藏转发到动态举报

写回复

用AI写文章

136 条回复

切换为时间正序

请发表友善的回复…

发表回复

THQWS 2012-07-18

打赏
举报

Mark下，以后可能用得着。。。。

jialiguo 2012-06-28

打赏
举报

好帖子

BigBear 2012-03-22

打赏
举报

不错啊！！持续关注中！

wh20876623 2012-02-23

打赏
举报

多几人发代码出来啊·
上面我都试过了·

「已注销」 2012-01-29

打赏
举报

留名学习一下路过

mayyang610 2012-01-11

打赏
举报

上面好多复杂的应用啊，来个简单的问题：程序窗体中浏览word内容，并实现word里文档结构图的功能。要求只显示word的内容，不要word的菜单、按钮等等。不知道有没有人有解决方法？

小鹏 2011-12-23

打赏
举报

VBA

redsea305 2011-12-10

打赏
举报

这么牛的一篇帖子，不顶不行啊！

不省人事 2011-11-02

打赏
举报

mark一下.前几天刚遇到excel操作的问题.这个得做记号.

lilicaiok 2011-10-20

打赏
举报

经典的帖子，学习了！

山东蓝鸟贵薪 2011-10-09

打赏
举报

[Quote=引用 100 楼 ninevch 的回复:]
多几人发代码出来啊·
上面我都试过了·
[/Quote]
试了好用吗，我的问题已解决了

牧童子 2011-08-17

打赏
举报

好帖子···不容错过···学习了··

sdzz7 2011-08-04

打赏
举报

探讨中断了？

nebula845026 2011-04-11

打赏
举报

学习了

lynn_gu 2011-03-24

打赏
举报

好东西~~学习

明空皓月 2011-03-21

打赏
举报

坚持学习这种好帖子

hongsheng11 2010-12-03

打赏
举报

每天回帖即可获得10分可用分！

LAZIJIDING 2010-10-29

打赏
举报

学习了。

fengyuananan 2010-08-18

打赏
举报

用过笨的办法，就是并接 Word，导出数据，读取数据没做过

slmax1 2010-08-18

打赏
举报

贴一段我操作WORD的代码吧，希望从中能你明白点东西



procedure TFrmPost.btnOpenFileClick(Sender: TObject);

var

  {把tmp.doc与WordApplication关联起来}

  FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, 

  PasswordDocument, PasswordTemplate, Revert,

  WritePasswordDocument, WritePasswordTemplate, Format,

  Encoding, Visible, OpenAndRepair,

  DocumentDirection, NoEncodingDialog: OleVariant;

  {把WordDocument与WordApplication关联起来}

  ItemIndex: OleVariant;

  FormatHTML:OleVariant;

begin

  try

    DeleteFile(ExtractFileDir(Application.Exename) + '\htmp.html');

    DeleteFile(ExtractFileDir(Application.Exename) + '\tmp.doc');

    DeleteFile(ExtractFileDir(Application.Exename) + '\htmp.files');

  except

  end;

  

  {保存DOC在硬盘}

  OleContent.InsertObjectDialog;

  OleContent.SaveAsDocument(ExtractFileDir(Application.Exename) +

                             '\tmp.doc');



  {把tmp.doc与WordApplication关联起来}

  try

    WordApplication1.connect;

  except

    messagedlg('word may not be installed', mterror, [mbok], 0);

    abort;

  end;

  filename := ExtractFileDir(Application.Exename) + '\tmp.doc';

  ConfirmConversions := False;

  ReadOnly := False;

  AddToRecentFiles := False;

  PasswordDocument := '';

  PasswordTemplate := ''; 

  Revert := True;

  WritePasswordDocument := '';

  WritePasswordTemplate := ''; 

  Format := wdOpenFormatDocument;



  WordApplication1.Documents.Open(FileName, ConfirmConversions,

                                  ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,

                                  Revert, WritePasswordDocument, WritePasswordTemplate, Format,

                                  Encoding, Visible, OpenAndRepair,

                                  DocumentDirection, NoEncodingDialog);   {打开硬盘中的文档进行操作}



  {把文档保存为html格式}

  SaveName:=ExtractFileDir(Application.Exename) + '\htmp.html';

  FormatHTML:=wdFormatHTML;  {设置保存格式}

  {把WordDocument与WordApplication关联起来}

  itemindex:=1;

  WordDocument1.connectto(WordApplication1.documents.item(itemindex));

  WordDocument1.SaveAs(SaveName,FormatHTML);

  WordDocument1.Close;

  WordApplication1.Disconnect;

end;