// Passer tous les "WinDev" d'un texte en rouge souligné
I est un entier
I = RTFRecherche(Saisie1, "WinDev")
TANTQUE I>0
// Passage en rouge
RTFSélection(Saisie1, rtfCouleur, iRougeClair, I, 6)
// Passage en souligné
RTFSélection(Saisie1, rtfSouligné, Vrai, I, 6)
// recherche du suivant "WinDev"
I = RTFRecherche(Saisie1, "WinDev", rtfSensibleCasse, I+1)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4774&post_id=19822