Oui Hervé, ça marche. Merci pour ton aide.
J'aurais dû y penser ; mais avec la tête dans le guidon on ne voit pas
plus loin que le bout de son nez...
Joyeux réveillon et meilleurs voeux de bonne année 2007,
Louis
Louis
Hervé Grac a écrit :
Louis Vidonne a écrit :
Bonjour,
J'ai écrit une macro qui me permet dans Writer de mettre en majuscule
la lettre précédent le curseur ; ça me sert pour mettre en majuscule
le ç et les voyelles accentuées, quel que soit le style.
Cette macro marche bien, sauf si je l'emploie par inadvertance avec
un caractère qui n'a pas de majuscule (les " ' - _ = ^$ * etc.).
Ces caractères sont laissés inchangés (ce qui est correct) mais la
remise en mode CaseMap NULL ne se fait pas : les caractères suivants
sont tous mis en majuscules.
Quelqu'un a-t-il une idée de ce qui se passe ?
les caractères qui n'ont pas de majuscule ne sont pas des lettres et
ne font donc pas partie d'un mot donc en changeant la ligne suivante
chez moi ça marche (si j'ai bien compris la macro !)
Sub UpperCase()
' mise en majuscule (sans autre changement de style) du caractère
à la gauche du curseur visible)
' les caractères qui seront tapés ensuite seront dans le style
courant
Dim oMonTexte As Object, oMonDoc As Object
Dim oMonCurseur As Object, oCurseurVisible As Object
oMonDoc = thisComponent
oMonTexte = oMonDoc.Text
oCurseurVisible = oMonDoc.CurrentController.ViewCursor
' le curseur de travail prend la position du curseur visible
oMonCurseur = oMonTexte.createTextCursorByRange(oCurseurVisible)
' On recule d'un caractère ; le True signifie qu'on étend la
sélection
oMonCurseur.goLeft(1, True)
' on met la sélection en majuscules
oMonCurseur.CharCaseMap = com.sun.star.style.CaseMap.UPPERCASE
' on retourne à la fin du mot (sans étendre la sélection)
commenter :
oMonCurseur.gotoEndOfWord(False)
remplacer par :
oMonCurseur.goRight(1,False)
' et on enlève tout formatage local
oMonCurseur.CharCaseMap = com.sun.star.style.CaseMap.NONE '
c'est ici que ça coince semble-t-il
End Sub
joyeux noël
Hgrac
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
