如何读Word，用什么方法都可以！不够可以加分(200分)

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #1

装了word，
word 文档中主要是一个表格，怎么将他一阁一阁的读出来

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #2

http://www.delphibbs.com/delphibbs/dispq.asp?lid=427655

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #3

http://www.delphibbs.com/delphibbs/dispq.asp?lid=684328

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #4

上面的提问的那句话已经可以了。

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #5

侠客门能不能发个例子给我呀yj5637899@21cn.com
用Delphi5的

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #6

worddoc.Tables.item(cellno).cell(i,j).range.text;

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #7

用word组建啊！

 

L

lp414

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-20

• #8

下载HUBDOG，用关键词“EXCEL”进行查找。。。。看查到的第二个例子。。。

虽然例子是对EXCEL进行读写，，，但可以推广到WORD，有具体的例子。。。我测试过，可以的

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-20

• #9

hubdog葵花宝典,
还有更具体操作可以用office录制宏然后察看VB代码.

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-20

• #10

没有公开的格式，只能自己慢慢搞，效率比较低！！！

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-20

• #11

我没做过这个阿！帮不了你。:|

 

T

tomore

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-20

• #12

Delphi与Ms Word的接口
http://www.playicq.com/dispdoc.asp?id=197
请看一下.

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #13

我可以帮你搞定！我做过。
MyTable：Table；
Mydoc：Mydoc:TWordDocument
MyString：string;
Mytable:=Mydoc.range.Tables.Item(TableNum);//TableNum是表的编号
MyString:=Trim(MyTable.cell(m,n).Range.Text);//m是表的行，n是表的列。
Ok了，试试吧。

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #14

在word里写完后，要关闭的时候，word总回谈出“是否保存”的对话框。
我怎么才能叫他关掉就关掉？即在程序中控制保存与否

 

A

alextsui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #15

你設SaveAs=true就可以了

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #16

哦，如果你设置了Saved=True，那么点击Word的关闭退出时，你的程序不会有任何反应的机会，直接
退出了，你的东西都完蛋了。。。。[][][]

 

晓

晓风月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-25

• #17

给你一段代码参考一下吧，主要用到 Stream 操作，如下：
读 word 文档：
procedure TfmBlob.btnReadDocClick(Sender: TObject);
var
BStream: TBlobStream;
FStream: TFileStream;
begin
BStream := TBlobStream.Create(Table1Doc,bmRead);
FStream := TFileStream.Create('C:/' + Edit1.Text,fmCreate); //用edit 指定文件名
FStream.CopyFrom(BStream,BStream.Size);
BStream.Free;
FStream.Free;
OleContainer1.CreateObjectFromFile('C:/' + Edit1.Text,false)
end;
写 word 文件到 字段里：
procedure TfmBlob.btnSaveClick(Sender: TObject);
var
FStream: TFileStream;
BStream: TBlobStream;
begin
if not OpenDialog1.Execute then exit;
FStream := TFileStream.Create(OpenDialog1.FileName,fmOpenRead); //文件流
Table1.Edit;
BStream := TBlobStream.Create(Table1Doc,bmReadwrite);
with BStream do begin
Seek(0,soFromBeginning); //截断原来的流
Truncate;
CopyFrom(FStream,FStream.Size)
end;
Table1.Post;
BStream.Free;
FStream.Free;
end;

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #18

多人接受答案了。