delphi能不能读取word的内容?(30分)

W

wei0916

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-07

• #1

有一个word文档,里面有多行文本,现在想把其内容全部读出来,有没有办法呢.这是一个问题,还有一个问题就是能否将这些文本的字体信息也读出来呢.

 

大

大唐电信

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-07

• #2

delphi下有个关于word读写的demo，你自己看看吧

 

W

WilliamGui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-07

• #3

Delphi上不是有个标准的Word控件吗?

 

L

lovezyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-17

• #4

就是阿！有专门的控件阿

 

N

nakata_wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-17

• #5

哎，这个问题还真不好回答，用DELPHI 上面自带的控件功能不够强大，
我个人认为还是使用另外一个方法吧，我开头写下啊，下面的你自己处理就可以了，。不清楚的可以联系我的E—MAIL nakata_wang@sina.com

var
v:varriant;
Begin
v:=CreateOleObject('word');
V.read...........;
………………
End;

 

D

doll_paul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-18

• #6

简单的，直接用OLE控件：
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, False);
OleContainer1.Visible := True;
OleContainer1.DoVerb(ovShow);
好点的办法，如楼上的～～

MyWord := CreateOleObject('Word.Application');
MyWord.Visible := True;
MyWord.WordBasic.FileNew;
MyWord.WordBasic.Insert('test');
MyWord.ActiveDocument.SaveAs('ff.html',$00000008);