i want paste in delphi from richedit to word application i used Following code but Twice paste data in word (duplicate)
WordApp := GetActiveOleObject('Word.Application');
WordApp.Visible := True;
Wordapp.documents.open('C:\Doc1.docx');
Richedit.Text := 'test text';
Richedit.SelectAll;
Richedit.CopyToClipboard;
WordApp.ActiveDocument.ActiveWindow.Selection.Paste;
WordApp.selection.paste;