coller avec delphi dans l'automatisation ole

Question

je veux coller dans delphi de richedit à l'application de mot i utilisé après le code, mais coller deux fois les données dans le mot (en double)

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; 

Answer 1

Essayez de laisser la dernière ligne de votre code

Answer 2

Essaies-tu de finir avec ça?

test text 
test text 

Mais seulement cela?

test text 

Si oui, alors peut-être la « sélection » est à l'origine à coller les mêmes données dans la même sélection, ainsi la 2ème pâte efface le premier.