如何把一个Word文件中的内容拷贝到Memo中去？(100分)

L

lshwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #1

如何把一个Word文件中的内容拷贝到Memo中去？

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #2

MyMemo1.Lines.LoadFromFile('.....');

 

L

lshwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #3

To 卷起千堆雪tyn：
我试过，好象不行。显示一堆乱码。

 

L

longdiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #4

用RICHEDIT

 

L

lshwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #5

RichEdit好象也不行！

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #6

用WORD打开，另存为TXT，或拷贝粘贴，OLE和DDE通信控制也可以 ：-)

 

L

lshwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #7

To Huzzz:可否介绍得详细一些呢？

 

F

flysand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #8

用IP3000中的twwdbricheditword

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #9

我是开玩笑的，OLE和DDE本质也是用WORD打开（也就是说，必须要装有WORD），然后程序发送
指令给WORD（或调用它提代供的服务接口）。详细的信息，要找找资料。

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #10

sunys 已答。

 

J

jollier

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #11

你可以用VBA提供的COM功能，也就是三楼的兄弟那样的

呵呵，Office提供的Com接口，在Delphi中的ComObj.pas单元中。

 

S

sunys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #12

uses comobj

procedure Tform1.button1click(Sender: TObject);
var
; ;NewDoc:variant;
; ;V: OleVariant;
; ;FileNameTemp:String;
begin
; ; if fileexists('c:/a.doc) then
; ;begin
; ; try
; ; ;FileNameTemp :='c:/a.doc' ;
; ; ;V := CreateOleObject('Word.Application');
; ; ;NewDoc :=V.Documents.Open(FileNameTemp);
; ; ;NewDoc.SaveAs(FileName :='C:/TEMP.rtf',FileFormat:=3);
; ; ;NewDoc.Close;
; ; ;V.Quit;
; ; ;Memo1.Lines.Clear;
; ; ;Memo1.Lines.LoadFromFile('C:/TEMP.rtf');
; ; deletefile('C:/TEMP.rtf');
; ; except
; ; showmessage('c:/a.doc 可能已打开');
; ; end;
; ;end;
end;

 

L

lshwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #13

sunys的回答不错，不过其本质也是用Word打开。如果没有安装OFFICE则照样打不开。

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #14

还是利用 DELPHI 的 SERVERS 页的控件来解决吧。

 

Q

Qingzhong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #15

例如，WPS2000在没有WORD的时候，不一样可以读入WORD文件，并且存为TXT。
MEMO应该只能处理纯文本。
所以，关键是读入WORD文件并转存为TXT文件，或文件流，应该能做到。

 

L

lshwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #16

多人接受答案了。