在ole自動化中用delphi粘貼

Question

我想將delphi從richedit粘貼到word應用程序中，我使用了以下代碼，但兩次將數據粘貼到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

您要結束嗎？

test text
test text

但是只有這個嗎？

test text

如果是這樣，則可能是“選擇”導致其將相同的數據粘貼到相同的選擇中，因此第二次粘貼將擦除第一個。