Coloration de lettres en basic

Fermé
dodyl - Modifié par dodyl le 10/12/2015 à 23:51
Bonjour,

Je débute en oobasic et je rencontre un problème sur un exercice pourtant simple que je n'arrive pas a résoudre.
Le but étant de colorier seulement les voyelles dans tout le texte .Cependant il n'y a que le type string et la méthode SearchString. J'arrive donc à colorier les mots mais pas de lettres voici le code :

//Debut code
Option Explicit

Sub RechercherPartoutdansleTexte(ByVal couleur as Long, ByVal texte as String )
Dim monDocument As Object, monTexte As Object
Dim jeCherche As Object, posTrouve As Object

monDocument = ThisComponent
monTexte = monDocument.Text
jeCherche = monDocument.createSearchDescriptor
with jeCherche
.SearchString ="texte à colorier --> voyelles"
.SearchWords = true
end with
posTrouve = monDocument.findFirst(jeCherche)
Do Until isNull(posTrouve)
if EqualUnoObjects(monTexte, posTrouve.Text) then
' L'occurrence est bien dans le texte principal
posTrouve.CharBackColor = couleur
end if
posTrouve = monDocument.findNext(posTrouve.End, jeCherche)
Loop
End Sub

Merci beaucoup d'avance