用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自动化

回答

相关问题