Keyboard-Shortcuts for Paragraph and Text Styles

The designers of StarOffice didn't thought about assigning Keyboard-Shortcuts for Paragraph and Text Styles as this is usual in MS Word. Maybe this was not considered because StarWriter offers this powerful tool called Stylist to assign every type of style. Like many functions you can solve this problem using a macro. This offers the opportunity to add more functionality to this macro. You don't even have to program this macro. Simply use the macro recorder as explained in the tip Assign Format|Default to Keyboard.

The recorded macro for assigning the Paragraph Style “Text Body” is as follows:

Sub FormatParagraphStyleTextBody
Selection.StyleApply( "Text Body", 2 )
End Sub

The macro for assigning the Text Style „Strong Emphasis“ could be simply one line
Selection.StyleApply( "Strong Emphasis", 1 )
but with the following addition will assign the Text Style just in case a portion of text is highlighted.

Sub FormatTextStyleStrongEmphasis
   'If no text is seleced --> Beep using the PC-speaker
   IF Selection.Value = "" THEN
       Beep
       EXIT SUB
   ENDIF
   Selection.StyleApply( "Strong Emphasis", 1 )
End Sub

Author: Werner Roth Original page http://www.wernerroth.de/en/staroffice/tips