Merci Laurent
Jacques
Laurent Godard a écrit :
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 [EMAIL PROTECTED]
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
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
