Bonsoir,
Jellyroll a écrit :
Jean-Francois Nifenecker a écrit :
[EMAIL PROTECTED] a écrit :
> Pour améliorer ce nouveau bouton, comment faire, pour qu'en
> cliquant sur ce bouton sur un texte préalablement mis en
surbrillance et
> déjà en "petites majuscules" repasse en caractères "normaux ?
Utiliser le même principe que montré précédemment et créer un second
bouton qui repasse la mise en forme en "normal".
Il n'est pas possible d'avoir un seul bouton ? Les pro de la
programmation ont peut-être une solution.
Voici une idée :
Sub SmallCapsOnOff
' Change le texte sélectionné en Petites Capitales
' s'il est en minuscules et vice-versa
' voir détails à l'adresse ci-dessous
' http://api.openoffice.org/docs/common/ref/com/sun/star/style/CaseMap.html
Dim oDoc, aSelection, aCursor, sCasse
oDoc = ThisComponent.getCurrentSelection()
aSelection = oDoc.getByIndex(0)
aCursor = aSelection.getText().CreateTextCursorByRange(aSelection)
if aSelection.CharCaseMap = 4 then
aCursor.CharCaseMap = 0
'ou bien
'sCasse = "com.sun.star.style.CaseMap.LOWERCASE"
'soit const short LOWERCASE = 2
'aCursor.CharCaseMap = sCasse
else
aCursor.CharCaseMap = 4
'ou bien
'sCasse = "com.sun.star.style.CaseMap.SMALLCAPS"
'soit const short SMALLCAPS = 4
'aCursor.CharCaseMap = sCasse
end if
End Sub
C'est une solution de départ.
Tu peux également regarder la macro CasseMajF3 de Erwan Souben ici :
http://fr.openoffice.org/Documentation/Macros/indexmac.html
qui offre plus de possibilités.
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
