Tuesday, 1 February 2011

Make Your Own Text to Speech Converter


I often wondered to make the TEXT to SPEECH. After a long time i was able to get a code from net, that was able to convert TEXT to SPEECH. You don't have to do nothing. Just copy the code, paste it in the notepad and save it as texttospeech.vbs or any name but remember to give extension .vbs only.



Code


Dim message, sapi
message=InputBox("What do you want me to say?","Text To Voice")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

 


 


Enjoy your TEXT to SPEECH converter.

21 comments: