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

Question

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

Answer 1

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;

Answer 2

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

http://www.trichview.com/

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