如何读取word文件内容到richedit中 (50分)

F

form1.

Unregistered / Unconfirmed
GUEST, unregistred user!
如何读取word文件到richedit中,最好提供些源码调试成功立马给分,谢了
 
我是这样做的
调用WordApplication 把 Word文档 SaveAs 成 RTF, 然后 RichEdit就可以读取了

好像DELPHI自带了一个例子C:/Program File/Borland/Delphi5/Demos/RichEdit ,研究一下


 
我知道用ole可以实现但是不知道具体怎样实现希望各位大侠不吝赐教
 
to:一少
例子C:/Program File/Borland/Delphi5/Demos/RichEdit 这个例子我试过了不能打开。doc文件
谢了
 
to:一少
调用WordApplication 把 Word文档 SaveAs 成 RTF, 然后 RichEdit就可以读取了
能不能介绍详细点
多谢了
 
Delphi的RichEdit控间即使读取了rtf文件
也只能显示其中的文字,对于表格,行距,图片,页眉之类的
就完全忽略,建议换一个richedit控件。
我用过一个,可以显示插入的excel表格(带颜色)
从台湾一个网站down的,还有源码
也可以问我要lotostree@163.com
 
to:lotostree
谢谢您
我的信箱是:xieshao@183.net
可以给我发过来么
 
请各位大哥,大姐们关注一下
 
这是我开出的第二贴了
 
分不够我可以在家呀
还请请高手多多指教
 
to:一少
调用WordApplication 把 Word文档 SaveAs 成 RTF, 然后 RichEdit就可以读取了
不能读取图片,和表格
 
没有人知道么
 
我提供一些思路把
用ole打开word文件
然后复制到剪切板
粘贴到richedit中
 
来个好心人
帮帮我把
 
看来高手不复存在了
 
用标准的是不可能的,ms的Ocx只支持到word6,写字版就是用richedit做的。要支持word的
完全的格式,只能自己写了。
 
读每一段(行):
以下不会显示 word 窗口的。
procedure TForm1.Button2Click(Sender: TObject);
var
wordapp,doc:eek:levariant;
i:integer;
begin
wordapp:=createoleobject('Word.application');
try
doc:=wordapp.Documents.Open(FileName:='c:/my documents/网络通信.doc');
Memo1.clear;
for i:=1 to doc.Paragraphs.count do
memo1.lines.add(doc.Paragraphs.item(i).range.text);
memo1.Lines.SaveToFile('d:/d.txt');
finally
wordapp.quit;
end;
 
多人接受答案了。
 
顶部