вставить с помощью delphi в оле автоматизацию

Я хочу вставить 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;

automation delphi ms-word ole
person kamyar kimiyabeigi    schedule 10.07.2010    source источник

Ответы (2)


arrow_upward
7
arrow_downward

Попробуйте опустить последнюю строку вашего кода

person David    schedule 10.07.2010

arrow_upward
0
arrow_downward

Вы пытаетесь закончить с этим?

test text
test text

Но только получить это?

test text

Если это так, то, возможно, «выделение» заставляет его вставить те же данные в одно и то же выделение, таким образом, вторая вставка стирает первую.

person Chris Thornton    schedule 12.07.2010