Paso 2: El código
Este es todo el código que necesita su muy corto
Dim mensaje, sapi
mensaje = InputBox("What do you want me to say?","Speak to Me") Set sapi=CreateObject("sapi.spvoice") sapi. Hablar de mensaje
Tenga en cuenta que es silencioso y se cierra después de cada uso