如何在富编辑控件中显示Word文档？

Question

我正在构建一个Delphi应用程序，我想阅读一个Word文档并将其显示在一个丰富的编辑中。我怎么能这样做？

Answer 1

如果您正在考虑可以实现此目的的第三方控件，RichView允许您导入word文档。

http://www.trichview.com/

我相信它会使用word本身来进行导入，因此您的目标计算机必须安装它才能导入。

Answer 2

function OpenWordFile(const FName: string): string;
var wordText: string;
begin
  openWord := CreateOleObject('Word.Application');
  openWord.Visible := False;
  openWord.Documents.Open(FName);
  openWord.ActiveDocument.Select;
  wordText:= openWord.Selection.Text;
  openWord.ActiveDocument.Close;
  openWord.Quit;
  openWord := unassigned;
  /////
  Result:= wordText;
end;