Bonjour Erwan Souben Message du 2007-01-12 14:22:

Ton HowTo est très clair et vivant, et il présente un exemple très utile d'installation de macro. Je trouve cependant que les copies d'écran de la page 6 sont trop petites pour lire le HowTo à l'écran. Il faudrait les agrandir (ou passer leur définition de 96dpi à 150dpi).

La macro initiale d'Andrew Brown n'est vraiment pas un modèle de programmation (à l'époque on avait très peu de documentation sur les macros et l'API). Tu as fait des améliorations, mais il reste des maladresses de codage et des commentaires incorrects.

Le codage ne fonctionne que grâce aux conversions automatiques string <-> nombre de Basic. Car la propriété CharCaseMap contient un nombre entier, pas une chaîne de caractères.

Toutes les valeurs de CharCaseMap devraient utiliser les noms qualifiés des constantes API (voir la description IDL dans le SDK). Dans la partie centrale, je te propose ce codage équivalent:

if MonCurseur.CharCaseMap = com.sun.star.style.CaseMap.NONE then MonCurseur.CharCaseMap = com.sun.star.style.CaseMap.LOWERCASE Chaine = Lcase(Chaine) end if

Select Case MonCurseur.CharCaseMap Case com.sun.star.style.CaseMap.UPPERCASE ' le commentaire était incorrect! MonCurseur.CharCaseMap = com.sun.star.style.CaseMap.TITLE ' - suite du codage ... - Case com.sun.star.style.CaseMap.LOWERCASE ' le commentaire était incorrect! ' - suite du codage ... - Case com.sun.star.style.CaseMap.TITLE ' le commentaire était incorrect! ' - suite du codage ... - Case com.sun.star.style.CaseMap.SMALLCAPS ' le commentaire est correct ici ' - suite du codage ... - End Select

Je pense que ta macro devrait remplacer celle actuellement disponible (Writer : 01 - Casse) à la page <http://fr.openoffice.org/Documentation/Macros/indexmac.html>

Bonne journée Bernard