TEXT TO SPEACH

No comments
  1. Open Notepad file on your Windows PC.
  2. Copy and paste the below mentioned code :
    Dim msg, sapi
    msg=InputBox("Enter your text for conversion–www.techvorm.com","TechVorm Text-To-Audio Converter")
    Set sapi=CreateObject("sapi.spvoice")
    sapi.Speak msg
  3. Save this file with any name with .vbs as extension. For eg. Text-To-Audio.vbs

No comments :

Post a Comment