Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Text to Speech

User Interface Techniques

Text to Speech

by  ProgramError  Posted    (Edited  )
After looking through the vast amount of information on this wonderful site there isn't much about text to speech. Microsoft give a little information but this is difficult to follow, so here's a layman's method of doing it.

download the "SpeechSDK51.exe" file from the microsoft site. link supplied below.
http://www.microsoft.com/downloads/details.aspx?FamilyID=5e86ec97-40a7-453f-b0ee-6583171b4530&DisplayLang=en
run the exe file

Create a module with the follow code in it.
Code:
Function speech(str As String)
Dim objVo As Object
  Set objVo = CreateObject("SAPI.SpVoice")
  objVo.Speak str
End Function
to call this routine use the following
Code:
speech ("Tech tips is a wonderful site!")
you can even type this into the immediate windows to test the pronunciation.

Happy talking

Register to rate this FAQ  : BAD 1 2 3 4 5 6 7 8 9 10 GOOD
Please Note: 1 is Bad, 10 is Good :-)

Part and Inventory Search

Back
Top