cxrichedit导入WORD

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;