Hi Cor,
* Cor Nouws <[EMAIL PROTECTED]> wrote:
> Hi Fabian,
>
> Fabian Braennstroem wrote:
>
>> me again :-)
> :-)
>
>> I am looking for settings keyboard shortcuts to write
>> section headings, or better to set the style to e.g.
>> heading1. I think in version 2 you can do it with
>> tools->configure->keyboard->category->styles, but I am not
>> able to find it in the old version :-(
>> Do you have an idea, where I should look?
>
> In the 1.x series, I used a macro, assigned to a key combination [1]
>
> In 2.x it's Ctrl-1, -2, and -3 by default.
>
> Best wishes,
> Cor
>
> [1]
> sub AplKop1
> DoAplThisKop("Kop 1")
> end sub
>
> Sub DoAplThisKop (sName$)
> dim document as object
> dim dispatcher as object
>
> rem get access to the document
> document = ThisComponent.CurrentController.Frame
> dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
>
> dim args1(1) as new com.sun.star.beans.PropertyValue
> args1(0).Name = "Template"
> args1(0).Value = sName
> args1(1).Name = "Family"
> args1(1).Value = 2
>
> dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args1())
>
> End Sub
Thanks, I thought it could be done withouth macros, but
that's fine!
Greetings!
Fabian
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
