在德尔福自动化中粘贴

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

尝试省略代码的最后一行