如何把一个WORD文档的内容读到一个Memo框或者是richText或一个变量里？在坐各位有没有什么例子？

Question

如题

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  filename:olevariant;
  s:string;
  ws:widestring;
begin
  filename:='c:\1.doc';
  wa1.Connect ;                    // 打開word
  wa1.Visible :=true;             //可見
  wa1.Caption:='試試我的word';    //標題
  //wd1.ConnectTo(wa1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam));  //新建文檔
    wd1.ConnectTo(wa1.Documents.Open(filename,EmptyParam,EmptyParam,
    EmptyParam,password,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam));
    //打開舊文件
  //wd1.Range.InsertAfter('i love you '); //在後面添加文字
  //wd1.Range.InsertBefore('delphi');    // 在前面添加文字  s:=wd1.range.Text ;   //取得word文檔內容
  //showmessage(s);
  
  wd1.Saved:=true;  //不保存
  wd1.Close ; //關閉文檔
  wa1.Quit ;     // 退出word
  wa1.Disconnect ; //退出連接
end;

Answer 2

忘了這個,放入一個TWordDocument,一個 TWordApplication 控件
    wd1: TWordDocument;
    wa1: TWordApplication;

Answer 3

谢谢merkey兄，有空请你吃饭，哈哈哈~~~