delphi - リッチ エディット コントロールで 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;