Children

pwScripter

Use the Speech Application Programming Interface (SAPI) for text to speech

This is a pwScripter script:

For each installed voice, play a short text to speech.

newscript
' do text to speech for the installed voices!

FUNCTION TestVoices ( )
   dim SpVoice = CreateObject ("Sapi.SpVoice")
   IF ( ! SPVoice ) THEN
      Message ="Could not create object"
      EXIT
   END IF
   dim myI, i=0 , enid = 0
   olemap = SPvoice.GetVoices
   FOR each myI in SPvoice.GetVoices

      SpVoice.voice = myI
      report = SpVoice.voice.GetDescription

      SpVoice.speak ( "voice  " & i & ", hello. Are you surprised, it works" )
      i = i +1
   NEXT myI

END function

TestVoices ()

smallest smaller (columns) larger largest Items 1 --- 1 of 1 min less (rows) more max

PWS_script_SAPI_text_to_speech.txt

Items 1 --- 1 of 1