delphi - 在ole自动化中用delphi粘贴

Question

我想将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;

Answer 1

尝试省略代码的最后一行