Mailinglist Archive: opensuse-de (4880 mails)

< Previous Next >
Re: OpenOffice automatisch Schattieren
  • From: Joachim Tüns <meinelisten@xxxxxx>
  • Date: Tue, 18 Nov 2003 06:36:17 +0100
  • Message-id: <200311180636.18875.meinelisten@xxxxxx>
Hi David,

Am Montag November 17 2003 23:26 schrieb David Haller:
> Am Mon, 17 Nov 2003, Joachim Tüns schrieb:
> >Am Montag November 17 2003 18:11 schrieb David Haller:
> >> Am Mon, 17 Nov 2003, Stefan Heinrichsen schrieb:
> >> >Oh ich glaube ich habe mein Problem nicht genua genug
> >> > beschrieben. Ich beziehe mich auf scalc die
> >>
> >> Das waere ein einfaches Makro. Ab OOo 1.1 (?) gibt's ja auch
> >> endlich nen Makrorecorder, [...]
> >> (und OOo) seit Jahren aber praktisch nicht mehr verwende,
> >> weiss ich jetzt nicht mehr direkt wie das geht.
> >
> >der Makrorecorder fällt aus, er zeichnet die Zeilenauswahl nicht
> >auf, leider.
> Macht nix, man will ja sowieso ueber alle Zeilen iterieren. Zeig
> doch bitte mal her, was der Rekorder aufgezeichnet hat. Mein OOo
> kann das halt noch nicht... Ich kann dann aber in meinen alten
> Makros und der Doku von StarBasic / StarOne kruschteln und das
> Makro

wie gewünscht...

Gued gohn
Achim

REM ***** BASIC *****


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
----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Template"
args1(0).Value = "grau"
args1(1).Name = "Family"
args1(1).Value = 2

dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0,
args1())

rem
----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Template"
args2(0).Value = "grau"
args2(1).Name = "Family"
args2(1).Value = 2

dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0,
args2())

rem
----------------------------------------------------------------------
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Template"
args3(0).Value = "grau"
args3(1).Name = "Family"
args3(1).Value = 2

dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0,
args3())


end sub

< Previous Next >