Я хочу вставить в Delphi из приложения Richedit в Word, я использовал следующий код, но Дважды вставить данные в слово (дубликат)
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;