OpenOffice.info

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

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