在德尔福自动化中粘贴

Question

我想从richedit粘贴delphi到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

尝试省略代码的最后一行

Answer 2