用delphi粘貼OLE自動化

我想從RichEdit中在delphi粘貼到Word應用程序我用下面的代碼，但在字兩次粘貼數據（一式兩份）用delphi粘貼OLE自動化

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;

來源

2010-07-10 kamyar kimiyabeigi

試着離開了你的代碼

的最後一行

來源

2010-07-10 08:26:30 David

調用'粘貼'兩次應該給你一個什麼發生的暗示.. – Vegar 2010-07-10 11:10:07

你想要結束這個嗎？

test text 
test text

但只得到這個？

test text

如果是這樣，那麼也許「選擇」是導致其相同的數據粘貼到相同的選擇，因此，第二糊抹了第一個。

來源

2010-07-12 07:03:29

用delphi粘貼OLE自動化

回答

相關問題