Re: [users-fr] macro inversion - Laurent Godard - org.openoffice.fr.prog

1 message in org.openoffice.fr.progRe: [users-fr] macro inversion

From	Sent On	Attachments
Laurent Godard	Dec 20, 2007 2:04 am

	Permalink for this message Paste this link in email or IM:
	Permalink for this thread Paste this link in email or IM:
	Atom feed for this thread Paste this URL into your reader:

Subject:	Re: [users-fr] macro inversion	Actions...
From:	Laurent Godard (lgod...@indesko.com)
Date:	Dec 20, 2007 2:04:14 am
List:	org.openoffice.fr.prog

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 pr...@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

	Start a set with this search
	Include this search in one of my sets
	Exclude this search from one of my sets
	Permalink to these results Paste this link in email or IM:
	Atom feed for tracking future search results Paste this URL into your reader: