Eu am postat macroul respectiv:
sub aaa
rem ----------------------------------------------------------------------
rem definesti variablele
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem creezi acces la 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 = "Symbols"
args1(0).Value = "â"
dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1())
end sub
Modul de lucru este simplu:
In writer dai Tools->Macros->Organise Macros ->
OpenOffice.org Basic
Se deschide fereastra OpenOffice.org Basic Macros.
lasi selectate Standard->Module->Main si dai Edit
Se deschide editorul Basic din OpenOffice.org
Copiezi cu copy si paste functia de mai sus de cate ori vrei schimband
bineinteles numele functiei pentru fiecare diacritica la care vrei sa-i faci
shorcut.
de asemenea schimbi valoarea:
args1(0).Value = "â"
cu ce diacritica vrei tot prin copy si paste dintr-un dcoument Writer.
(Nu treebuie sa te sperii daca in editorul basic nu este afisat caracterul,
in documente o sa apara corect daca fontul contine acel caracter)
salvezi si inchizi editorul
Acum ai macrouri pentru toate diacriticele mai urmeaza sa le asignezi
scurtaturi. Scurtaturile sunt de tipul Ctrl+caracter, sau
Ctrl+Shift+Caracter aceasta se face tot din fereastra:
OpenOffice.org Basic Macros
selectezi functia pentru caracterul dorit si dai Asign
Se deschide fereastra Customise
alegi Keyboard
In fereastra Shortcut Keys alegi Control+Shift+A (de exemplu pentru litera
Ă)
In fereastra Functions->Category alegi: OpenOffice Macros->Module1si la
Function->aaa (de exemplu) si dai Modify apoi Ok
Procedezi asemamator pentru toate celelalte diacritice.
Eu am incercat metoda pe OpenOffice 2.0 si linux SuSe 9.3 Profesional si
merge.
Mult succes,
Gabriel Filip
Application&Project Management
Billing App Responsible
Joint CIO EMO&EGR
E.ON Gaz Romania
Str. Justitiei, nr. 12
540069 Targu Mures
Romania
Tel:
+40 (365) 403.707
Mobil:
+40 (743) 009.141
Fax:
+40 (365) 403.334
EMail:
[EMAIL PROTECTED]
Internet:
www.distrigaznord.ro
-----Original Message-----
From: Florin Radulescu [mailto:[EMAIL PROTECTED]
Sent: 03 May 2006 16:31
To: [email protected]
Subject: Re: [ro-dev] info
Macroul la:
http://ro.openoffice.org/servlets/BrowseList?list=dev&by=thread&from=46937
Erau in alt mail din perioada respectiva niste indicatii exacte primite
de mine dupa care am creat fisierul atasat (dar nu mai stiu cum se
foloseste acest fisier; poate ajuta la ceva). Din pacate am sters din
cutia mea postala mesajele din 2003...
F. Radulescu
Gabriel Filip wrote:
>
> Poti sa inregistrezi un macro cu macro recorder la care sa-i asignezi
> o scurtatura de tipul Ctrl+A,S,T,I sau CTRL+Shift+A.....
>
> Eu am postat mai demult un macro in acest sens dar din pacate nu pot
> sa-l mai gasesc acum.
>
>
>
> **Gabriel Filip** **
>
> **Application&Project Management ****
>
> **Billing App Responsible****
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
