OpenOffice.info

sub Einfuegen()

dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())


end sub

Hallo Christian,

folgender Code fügt dir den Inhalt der Zwischenablage in die aktuelle Zelle ein.
:wink: Habs einfach mit dem Makrorekorder aufgenommen.
[code]
sub Einfuegen()

dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())


end sub
[/code]

Gruß

Hawk

Hallo,

Hier wieder ein Problem von mir:

Ich möchte, dass wenn ich ein Kontrollfeld anklicke, ein bestimmter Zellbereich in Calc gelöscht wird und dann die Daten, die in der Zwischenablage bereitliegen in den eben gelöschten Bereich eingefügt werden.
Das löschen konnte ich schon erfolgreich programmieren, nur weiß ich leider nicht, wie ich auf die Zwischenablage zugreifen kann. Gibt es da eine Möglichkeit?

Christian