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;