用RichEdit来读取word文件内容,不能直接用吗?

Question

读出是一堆乱麻,但RichEdit支持RTF格式的,是不是要另外加控件?
//RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName)

Answer 1

那是因为你的WORD文件里有图片信息。而不单纯只是文字信息所以会出现这种情况。

Answer 2

不知道word文档的格式，怎么可能读出来！使用OLE试一下看！

Answer 3

function TMyClass.OpenWordDocument(const AFileName: String;   //uses ComObj
  AControl: TCustomMemo): Boolean;
var
  NewDoc: Variant;
  V: OleVariant;
begin
  try
    try
      V := CreateOleObject('Word.Application');//建立自动化对象
      NewDoc :=V.Documents.Open(AFileName); //打开指定文件
      NewDoc.Content.Copy; //拷贝到剪贴板
      AControl.Lines.Clear;
      AControl.PasteFromClipboard; //粘贴
      NewDoc.Close; //关闭Word文件
    finally
      V.Quit; //释放自动化对象
    end;
    Result := True;
  except
    Result := False;
  end;
end;

Answer 4

可以在RichEdit中建立表格、图片吗？如果可以的话，如何实现？请高手指点！

Answer 5

用System中的OleContainer1可以显示