Le 25 mai 07 à 17:31 Soir, bernard béville a écrit:
J'ai essayé sur PC et sur Mac, ça fonctionne mais sans les parenthèses
if Textealire.text<>"" then
speak textealire.text
else
speak "Il n'y a pas de texte à lire !"
end if
Par contre ça ne veut pas marcher pour un texte sélectionné....
embêtant....
Pour le texte sélectionné, il faut utiliser cette syntaxe:
speak textealire.SelText
Après, on peut étendre la fonction pour lire la sélection, s'il y en
a, ou le texte entier dans le cas contraire:
if Textalire.SelLength>0 then
speak textealire.SelText
elseif Textealire.text<>"" then
speak textealire.text
else
speak "Il n'y a pas de texte à lire!"
end if
|