Rocko hat geschrieben:Mit Ok-Button kann ich mir nur was mit einem Makro vorstellen.
Hallo,
wenn ich ein nur wenig mehr wüsste... Wenn ein (Text-)Rahmen markiert ist, kann man den schon mit einem eingebauten "PushButton" (ist in den Formularwerkzeugen enthalten) relativ einfach verschwinden lassen (löschen). Die autogenerierte Syntax dazu lautete:
Code: Alles auswählen
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Delete", "", 0, Array())
end sub
Leider funktionierte das nicht, wenn der Rahmen nicht markiert war. Das wäre schon die eleganteste Lösung. Wie
Rocko schrieb, frage doch mal bei den Makro-Leuten nach, ich denke, die Lösung ist nicht zu schwierig...
Ciao
