Bonjour Jacques
Dans un texte, je voudrais sélectionner quelques mots et les inverser
(le dernier caractère de la sélection devient le premier).
Ce nouveau texte se lirait de droite à gauche, alors même que le reste
du texte reste lisible "normalement".
Quelqu'un aurait-il déjà une telle macro "sous le coude" ?
faite tres rapidement
il manque les securités habituelles
N'hesites pas à demander sur la liste prog@fr.openoffice.org
Laurent
Sub inverseSelection
selection = thisComponent.currentSelection(0)
chaine = selection.string
newChaine=""
for i= len(chaine) to 1 step -1
newChaine = newChaine + mid(chaine, i, 1)
next i
thisComponent.currentSelection(0).string = newChaine
End Sub
--
Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org -
http://www.indesko.com
Nuxeo Enterprise Content Management >> http://www.nuxeo.com -
http://www.nuxeo.org
Livre "Programmation OpenOffice.org", Eyrolles 2004-2006
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
