Thema: ClipBord

Einzelnen Beitrag anzeigen

ghubi01

Registriert seit: 18. Nov 2017
128 Beiträge
 
Delphi 12 Athens
 
#12

AW: ClipBord

  Alt 27. Nov 2018, 22:49
Hallo,

ich gehe mal davon aus, dass MS-Word zur Textverarbeitung verwendet wird.
In diesem Fall könnte man das so realisieren:
Delphi-Quellcode:
procedure CpClipToWord;
var
  WordApp, WordDoc: OleVariant;
begin
  try
     WordApp := GetActiveOleObject('Word.Application'); // Aktives geöffnetes Word
   except
     Exit;
   end;
   WordDoc:=WordApp.ActiveDocument; // Aktives Worddokument
   WordApp.Selection.Paste; // Inhalt vom Clipboard an der aktuellen Cursorposition im Worddokument schreiben
   WordApp.Selection.TypeText(#13#10); // ggf. den Cursor in die nächste Zeile setzen
end;
Wie das mit anderen Textverarbeitungs-Tools geht, kann ich Dir nicht sagen.
  Mit Zitat antworten Zitat