Seite 1 von 1
Doppelt durchstreichen "automatisch" möglich?
Verfasst: Fr, 24.06.2005 12:59
von RS
Hallo,
wir hätten gerne für das doppelte Durchstreichen von Worten einen Automatismus. Habt Ihr dazu Tipps? Shortcut? Makro?...
Danke im Voraus,
schönes Wochenende,
Gruß,
Rebecca
Verfasst: Mo, 27.06.2005 11:37
von RS
Hi Lenu,
wie immer Danke für Deine Bemühungen (hast DU schon ein 3. *???....).
Ich wollte mir keinesfalls die Arbeit ersparen... Habe nun selbst mit der Beta V1.9.109 den Makrorekorder bemüht, der Code lautet bei mir wie folgt (hier "für die Nachwelt"..., funktioniert einwandfrei):
sub Macro1
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 ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Strikeout.Kind"
args1(0).Value = 2
dispatcher.executeDispatch(document, ".uno:Strikeout", "", 0, args1())
end sub
Dir einen schönen Tag,
bis zur nächsten Frage...
Gruß,
Rebecca