用RichEdit如何导入(导出)WORD(EXCEL)文档?
除了RichEdit还有控件比较好.

解决方案 »

  1.   

    我记得RichEdit直接就可以存储为xxx.rtf文件格式,需要导入导出吗?
      

  2.   

    导入,Uses ComObj, OleServer, Word2000
    var
      NewDoc: Variant;
      V: OleVariant;
      FileNameTemp :String;
    begin
      if OpenDialog1.Execute then                //uses ComObj, OleServer, Word2000;
      begin
        FileNameTemp := OpenDialog1.FileName;
        try
          V := CreateOleObject('Word.Application');//建立自动化对象
          NewDoc :=V.Documents.Open(OpenDialog1.FileName); //打开指定文件
          NewDoc.Content.Copy; //拷贝到剪贴板
          RichEdit1.Lines.Clear;
          RichEdit1.PasteFromClipboard; //粘贴
          NewDoc.Close; //关闭Word文件
          
        finally
          V.Quit; //释放自动化对象
        end;
      end;
    end;
    导出类似
      

  3.   

    To:ljmanage(过客)
    要出现这个错误:Mothed "Docments not supported by Automation object"