Thread View: alt.pl.openoffice
5 messages
5 total messages
Started by Grzegorz Nikiel
Tue, 15 Apr 2003 08:18
Makro
Author: Grzegorz Nikiel
Date: Tue, 15 Apr 2003 08:18
Date: Tue, 15 Apr 2003 08:18
19 lines
1312 bytes
1312 bytes
Witam 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. Pozdrawiam Grzegorz --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.463 / Virus Database: 262 - Release Date: 2003-03-17 -- Serwis Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/
Re: Makro
Author: MarekB
Date: Tue, 15 Apr 2003 10:30
Date: Tue, 15 Apr 2003 10:30
4 lines
981 bytes
981 bytes
proponuje abys napisał to pytanie na http://supportforum.sun.com/cgi-bin/WebX.cgi?folder@@/staroffice.com.support .starcalc tam napewno dostaniesz odpowiedz jak nie gotowe makro
Re: Makro
Author: qaziq
Date: Tue, 15 Apr 2003 14:05
Date: Tue, 15 Apr 2003 14:05
59 lines
2813 bytes
2813 bytes
> 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
Re: Makro
Author: Grześ
Date: Tue, 15 Apr 2003 20:53
Date: Tue, 15 Apr 2003 20:53
20 lines
1522 bytes
1522 bytes
Witam i dzięki ale coś nie chce działać. po uruchomieniu wyskakuje błąd i przy linii: > dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args1()) pojawia się dziwny komunikat: "Błąd czasu przebiegu BASIC, Nie osadzono zmiennej obiektu" Może jakieś sugestie (zmieniłem linię: args1(0).Value = "Heading 1" w stawiając nazwę stylu dostępnego u mnie) A swoją drogą takie makro w starym Star Office zajmowało 3 linijki, ale pod OO nie chce działać. Pozdr Grzegorz -- Serwis Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/
Re: Makro
Author: qaziq
Date: Tue, 15 Apr 2003 22:15
Date: Tue, 15 Apr 2003 22:15
12 lines
1411 bytes
1411 bytes
> Witam i dzięki ale coś nie chce działać. > > po uruchomieniu wyskakuje błąd i przy linii: > > dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args1()) > pojawia się dziwny komunikat: > "Błąd czasu przebiegu BASIC, Nie osadzono zmiennej obiektu" > > Może jakieś sugestie (zmieniłem linię: args1(0).Value = "Heading 1" w > stawiając nazwę stylu dostępnego u mnie) hm, przed wysłaniem sprawdziłem u siebie i działało - sprawdzę jutro w pracy na polskim OO
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads