🚀 go-pugleaf

> Jak powinno wyglądac makro za pomocą którego mozna będzie przełączać styl
> skrótem klawiatury? tzn. przyciskam np ctrl+a i mam styl Nagłówek1, a
potem
> ctrl+s i mam styl standardowy.

poniżej znajduje się listing makra

zrobione na angielskiej wersji, więc może będzie konieczna zmiana nazw
stylów, makro podpinasz pod skrót klawiaturowy w wersji angielskiej tak:
tools -> macros -> macro -> assign / w polskiej oczywiście trzeba
przetłumaczyć ;) /

pozdrawiam
    rTarnawa

sub heading
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 = "Heading 1"
args1(1).Name = "Family"
args1(1).Value = 2

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


end sub


sub default
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 = "Default"
args1(1).Name = "Family"
args1(1).Value = 2

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


end sub