Texto a Voz con NotePad

Pues bien, probando cosas con el NotePad y buscando por Internet me he encontrado una cosa muy sencilla de hacer que te pasa el texto a voz. Aquí puedes ver como queda el resultado final.
DESCARGAR

Los pasos son muy sencillos, simplemente abres un nuevo documento de texto. Dentro pegas el siguiente código:

Dim msg, sapi

msg=InputBox("Aquí escribe la descripción del mini programa","Aquí escribe el título del mini programa")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg

Una vez pegado el código y reemplazados la descripción y el título, lo guardas en formato .vbs.
Es muy importante guardarlo en este formato, porque es el formato del programa.
Abres el archivo loquesea.vbs con Microsoft Windows Based Script Host. Muy importante debe ser con este programa, si no no se abrirá bien.
Dentro escribes el texto a ser posible en inglés, y te lo dirá por voz.
Espero que te haya gustado. No olvides seguirme en el blog y en Twitter!
Si quieres recibir mis entradas por correo haz clic aquí.