Absatz- und Zeichenvorlagen auf die Tastatur legen

In StarOffice ist die Möglichkeit Absatz- und Zeichenvorlagen auf ein Tastaturkürzel zu legen nicht berücksichtigt. Über ein Makro ist mal wieder auch diese Möglichkeit gegeben, sogar mit erweiterbarer Funktionalität. So ein Absatzformatier-Makro kann man bequem aufzeichnen lassen (Extras|Makro) und dann entsprechend auf eine Tastenkombination legen (Extras|Anpassen). Näheres dazu unter dem Tipp „Format|Standard auf Tastatur legen“.

Ein Makro für das Zuweisen der Absatzvorlage Textkörper an den aktuellen Absatz sieht wie folgt aus:

Sub FormatAbsatzTextkoerper
Selection.StyleApply( "Textkörper", 2 )
End Sub

Ein Makro für die Zeichenvorlage „Stark betont“ besteht eigentlich nur aus der Zeile
Selection.StyleApply( "Stark betont", 1 )
mit der vorangestellten Abfrage wird die Zeichenvorlage jedoch nur zugewiesen, auch wenn kein Text selektiert ist.

Sub FormatZeichen
   'Wenn kein Text Selektiert ist --> Beepe mit dem PC-Lautsprecher
   IF Selection.Value = "" THEN
       Beep
       EXIT SUB
   ENDIF
   Selection.StyleApply( "Stark betont", 1 )
End Sub

Autor: Werner Roth Original liegt auf http://www.wernerroth.de/staroffice/tips