Need VBA to convert Text to Speech for audible messages 7

[Dor100]

I've been searching Google to no avail so far. Are there any VBA commands in Acc XP by which I can cause text to be converted to speech in order to give audible messages to users? Or do people know of any free downloadable utilities for this?

 

[Remou]

Hi
I have not tried this.
How to automate Excel Text to Speech in another Office program

http://support.microsoft.com/default.aspx?scid=kb;en-us;287120&sd=tech

 

[FancyPrairie]

This works for me:

Function TestMe()

    Dim objVo As Object
    
    Set objVo = CreateObject("SAPI.SpVoice")
    objVo.Speak "Thank you Fancy Prairie"

End Function

 

[BoxHead]

Way cool!

Thanks, FancyPrairie.




John

Use what you have,
Learn what you can,
Create what you need.

 

[MichaelRed]

Error: "Method of ... Speak" Failed

MichaelRed

 

[AlanJordan]

Check out this link:

http://www.google.com/search?hl=en&q=text+to+speech

Also, I like ReadPlease2003, which may be downloaded for free

http://www.readplease.com/

 

[FancyPrairie]

MichaelRed, not sure why you got that message. But am curious, does the Speech program via control panel work?

 

[PHV]

I've already posted at least 2 times on this topic, each time with the following warning:
Need Windows XP or above.

 

[Dor100]

I just tried it using Acc XP with Win 2k and am getting an "object required" message on the "Set objVo = CreateObject("SAPI.SpVoice")" line. But this is exactly the kind of flexible option I'm looking for. Could it simply be that a new code reference is needed, or is PHV's last word the final curtain here for personal coding in your project? It's so close, and yet so far away...Is there perhaps a work-around or extra piece of code one can add to bridge the gap and get the app talking?

 

[FancyPrairie]

PHV is correct. It comes with Windows XP. However, there is freeware outthere. Check-out google. Here's one

http://www.simtel.net/product.download.mirrors.php?id=85204

 

[MichaelRed]

hmmmmmmmmmmmmmmmm ... mmmm

No. A variety of errors. Voice not available (for both choices), ? not installed ...



MichaelRed

 

[Dor100]

MichaelRed - are you suggesting something can be done for the Win 2k/Acc XP set up to enable this text to speech coding in VBA? Exactly what would need to be installed if indeed that is what you are suggesting here?

 

[FancyPrairie]

The files you need should be at C:\Program Files\Common Files\Microsoft Shared\Speech. Specifically sapi.dll

 

[Dor100]

Just checked and it's there - along with sapisvr.exe and sapi.cpl, and a folder called 1033 which contains spcplui.dll. Why do you think the error message I got would be an "object required" alert? Could it be a code ref? DLL registration?

 

[Dor100]

BTW, Here are my current Acc XP code refs, in the exact order in which they appear:

Visual Basic For Applications
Microsoft Access 10.0 Object Library
OLE Automation
Microsoft DAO 3.6 Object Library
Microsoft ActiveX Data Objects 2.5 Library
Microsoft Excel 10.0 Object Library
Microsoft Word 10.0 Object Library

 

[Dor100]

There's simply got to be a way to tweak Win 2k or XP to get the code to work...?

 

[FancyPrairie]

I don't know what else to tell you. Your references are ok and you have the correct dlls, etc in the correct place. Have you tried accessing speech via the control panel to see if it works there?

 

[Dor100]

Yes, it's working there. I just ran regsvr32.exe "C:\Program Files\Common Files\Microsoft Shared\Speech\SAPI.DLL" as well (succeeded) and still get the "Object required" error for the TestMe fx. I find it hard to believe there's no solution to this for my operating system, even a fairly simple one.

 

[FancyPrairie]

Why don't you copy and paste your code here. Maybe you missed something.

 

[Dor100]

I'm using yours:


Private Sub Command0_Click()
TestMe
End Sub
----------------------------------------
Function TestMe()

Dim objVo As Object

Set objVo = CreateObject("SAPI.SpVoice")
objVo.Speak "Thank you Fancy Prairie"

End Function