Doppelt durchstreichen "automatisch" möglich?

[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

[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