Pages

text to voice

Sunday 25 May 2014
code:
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg
Posted by at
Labels:

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)