4 lines
129 B
Text
4 lines
129 B
Text
Dim message, sapi
|
|
message = "This is an example of speech synthesis."
|
|
Set sapi = CreateObject("sapi.spvoice")
|
|
sapi.Speak message
|