delphi中WORD的操作（WORD的导入、创建、保存）急。。急

Question

我用RichEdit控件 ，我需要把WORD文档的内容导入到 RichEdit中，并且我可以保存此文档。另外，我还想创建WORD文档（把RichEdit中的内容保存到创建的WORD文档中）
急急，快  谢谢！

Answer 1

procedure TFrmRepPara.DABG();//档案保管合同；
var
  ExcelID,Shet,WordID,Book : Variant;
  Wrap: OLEVariant;
begin
  //创建；
  WordID := CreateOLEObject('Word.Application');
  Book:=WordID.Documents.Open(Pworker.Top_ExePath+'rpt\sf\档案管理合同书.doc',ReadOnly:=False);
  Wrap := wdFindContinue;
  //写入数据；
  Book.Text :='fddsffds';
  //在WORD中中查找并替换；
  WordID.ActiveDocument.Range.Find.Execute( 'WTDW', False, True,
      False, False,False, True,Wrap, False, Edit55.Text , True );
  //文件另存；
  Book.SaveAs(Pworker.Top_ExePath+'Doc\其他文本\'+Str1 );
end;

Answer 2

richedit 好像不可以操作*.doc 吧 http://expert.csdn.net/Expert/topic/1578/1578586.xml?temp=.8477899
http://expert.csdn.net/Expert/topic/1579/1579152.xml?temp=.1040766
这2个帖子可以解决对与*.txt *.html 对*.doc 的转换的问题