【高手请看！】可否将某一word文档中的内容在一个memo控件中显示出来呢？

Question

主要是想实现：将word文档的第一页或是主要内容在memo中能先查看一下。

Answer 1

Delphi中调用Word    
    
uses ComObj ;procedure TForm1.Button1Click(Sender: TObject);varvWord,vDoc,vRange : Variant ;sText,sReplace : string ;lReturn : Boolean ;beginsText := 'ABCDEFG' ; //原文字串sReplace := 'GFEDCBA' ; //新字串vWord := CreateOleObject('Word.Application') ;//创建Word线程try//打开要操作的文件vDoc := vWord.Documents.Open('C:Documents.Doc');vDoc.Select ; //选取中整个文档vRange := vDoc.Range ; //替换范围lReturn := True ;while lReturn dobegin //找到并替代成功则返回 True 共11个参数lReturn := vDoc.Range.Find.Execute(sText,,,,,,,,,sReplace,True) ;end ;finallyvDoc.Close(True) ; //关闭文并保存vWord.Quit(False) ; //退出Wordend ;end;

Answer 2

呵呵，我觉得上面的做法可能都欠妥。word的重要的功能不是文本的载体，还包括文字的格式和其他的元素。如果对仅仅是获取文本，我觉得，： saien(有问必答) 的回答已经可以了。不过，在做一个后台的服务时，用上述的方法的效率不是很高。以前，我刚使用excel的应用对象的时候就碰到这样的问题。呵呵。

Answer 3

在OLE Container里不就可以显示word的内容了吗？

Answer 4

 
   
var
wapp: OleVariant;
Doc: Variant;
begin
  if OpenDialog1.Execute then
  begin
    wapp:= CreateOleObject('Word.Application');//
Doc :=V.Documents.Open(OpenDialog1.FileName);
    Memo1.Text:=Doc.Content.Text;
    Doc.Close;
  end;
end;