cxrichedit导入WORD

word := CreateOLEObject('Word.Application');
word.Documents.Open(l_path,false);
word.visible := false;
word.ActiveDocument.Range(0, 0);
Clipboard.Clear;
RxRichEdit1.Clear;
word.ActiveDocument.Select;
word.selection.copy;
RxRichEdit1.PasteFromClipboard;
RxRichEdit1.SelStart := -1;
word.quit;