Hallo
Auch ich hab einen Basic-Befehl zum Leeren der Zwischenablage gesucht und bin darum hier gelandet.
Unter dem Link von Kalinka habe ich nicht direkt was gefunden, aber es hat mich nach
http://www.oooforum.org/forum/viewtopic.phtml?t=40190 weitergeführt. @Kalinka: Danke.
Aus dem Code des letzten Posts des Threads habe ich Folgendes abgetippt - und bei mir funktioniert's jetzt bestens (auch wenn ich das Ganze nur der Spur nach erklären kann
). Vielleicht hilf's ja mal wem, der auch hier landet.
Code: Alles auswählen
dim oClip as object
dim None as object
oClip = createUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")
oClip.setContents(None,none)
Gruss
Phoebo
Edit: Hab gerade noch folgende Schwäche entdeckt: Wurde
vor der Ausführung des obigen Codes Text durch Auschneiden oder Kopieren in die Zwischenablage abgelegt,
ohne dass danach auch Einfügen gewählt wurde, dann bleibt dieser Eintrag auch nach Ausführen des Codes in der Zwischenablage.
Um die Zwischenablage in diesem Fall vollständig zu lösen, muss der Code
zwei Mal hintereinander ausgeführt werden. Dann klappt's. Unschön zwar, aber immerhin.
