lacaille charles philippe a écrit :
H.BRUGUIER a écrit :
Daniel Cartron a écrit :
Le vendredi 18 janvier 2008, [EMAIL PROTECTED] a écrit :
quelqu'un a t il l'astuce et celle-ci existe t elle pour affecter un
raccourci clavier ou une touche à l'obtention du caractère "oe"
[snip !]
Bonjour,
Non, ce n'est pas le monopole du nul, seulement le gestionnaire de
touche de MS-Windows ne gère pas pas ce genre de subtilité. Par contre
je ne sais si il est possible de changer ce dernier par un autre.
Cordialement.
Bonjour.
Personnellement, j'ai résolu ce problème en utilisant des macros, et en
affectant les macros à des combinaisons de touches.
Les macros ont été d'abord générées grâce à l'outil "Enregistrer une
macro", puis légèrement modifiées de façon à supprimer toute référence à
une police de caractères quelconque. Cette opération permet ainsi de
générer la ligature oe dans n'importe quelle police qui possède le
caractère.
Il existe deux macros : une pour oe, et une pour OE.
Voici les macros que j'utilise (elles sont déjà modifiées) ; je vous
laisse le soin de les associer à la combinaison de touches qui vous
convient le mieux.
sub ligature_oe
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 = "Symbols"
args1(0).Value = "oe"
args1(1).Name = ""
args1(1).Value = ""
dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1())
end sub
sub ligature_oe_maj
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 = "Symbols"
args1(0).Value = "OE"
args1(1).Name = ""
args1(1).Value = ""
dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1())
end sub
Cordialement,
--
Michel Gardie
Institut National des Télécommunications
9, rue Charles Fourier
91011 Evry Cedex
tél : +33 1 60 76 47 89
fax : +33 1 60 76 47 11
Web : /http://www-public.int-evry.fr/~gardie/
Couriel : /[EMAIL PROTECTED]/
