如何在富編輯控件中顯示Word文檔？

Question

我正在構建一個Delphi應用程序，我想閱讀一個Word文檔並在豐富的編輯中顯示它。我怎樣才能做到這一點？

Answer 1

如果您正在考慮可以實現此功能的第三方控件，RichView允許您導入Word文檔。

http://www.trichview.com/

我相信它使用單詞本身做進口，所以你的目標計算機就必須把它安裝到能夠導入。

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;