Delphi TRichEdit加载word内容

procedure TForm1.btn6Click(Sender: TObject);

var

WordApp: Variant; //声明一个word对象

begin

WordApp := CreateOleObject('Word.Application'); //创建word对象

WordApp.Documents.open('E:\SVN_712\trunk\Code\Bin\tablet\20160308110555.doc'); //打开一个word文档

//wordapp.visible:=true; //是否让打开的word文档显示出来

wordapp.activedocument.select; //选取打开的word文档中全部内容

wordapp.selection.copy; //拷贝选取的内容

RzRichEdit1.PasteFromClipboard; //把拷贝的内容粘贴到richedit中

redt1.PasteFromClipboard; //把拷贝的内容粘贴到richedit中

WordApp.Quit; //关闭对象

end;