rem Zwei Makros für OpenOffice.org 1.1.0:
rem CapitalizeFirstLetter und FontSizeInputBox

rem MAKROS INSTALLIEREN
rem   - Extras -- Makros -- Makro... -- Standard -- Neu
rem   - Den Text "Sub Macro1  End Sub" mit dem Text der Makros überschreiben
rem   - Fenster schließen

rem ZUWEISUNG VON TASTENKÜRZELN
rem   - Extras -- Anpassen -- Tastaur
rem   - In Bereich-Fenster aufklappen: OpenOffice.org BASIC-Makros
rem                                  - Standard
rem                                  - gewünschtes Makro im jeweiligen Modul
rem   - Gewünschtes Tastenkürzel auswählen
rem   - Ändern wählen und mit OK bestätigen


rem ======================================================================
sub CapitalizeFirstLetter
rem ======================================================================
rem   Dieses Makro wandelt den ersten Buchstaben des aktuellen Worts (oder
rem   letzten Wort im markierten Text) in Großbuchstaben um und geht 
rem   dann ans Wortende
rem
rem   Vorgeschlagenes Tastenkürzel: Umschalt+F3
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:GoToPrevWord", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Count"
args2(0).Value = 1
args2(1).Name = "Select"
args2(1).Value = true
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ChangeCaseToUpper", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:GoToNextWord", "", 0, Array())
end sub
rem ======================================================================


rem ======================================================================
sub FontSizeInputBox
rem ======================================================================
rem   Dieses Makro öffnet ein Eingabefeld und ändert die Schriftgröße
rem   im aktuellen Wort oder markierten Text auf die eingegebene Punktzahl
rem
rem   Vorgeschlagenes Tastenkürzel: Strg+P
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")
dim groesse as integer
groesse = InputBox ("Größe in pt:","Neue Schriftgröße eingeben") 
rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FontHeight.Height"
args1(0).Value = groesse
args1(1).Name = "FontHeight.Prop"
args1(1).Value = 100
args1(2).Name = "FontHeight.Diff"
args1(2).Value = 0
dispatcher.executeDispatch(document, ".uno:FontHeight", "", 0, args1())
end sub
rem ======================================================================