how to determine if a reference is selected and set it if it is no

[MikeB77]

I'm trying to programatically test if the Microsoft Speech Object Library is
selected and then if it is not I'd like to set it.

I've tried error trapping each side of a Dim but that didn't work:
On error reume next
Voc = SpeechLib.SpVoice
On error resume 0
If voc is nothing then '... let me know or fix it

Due to security levels I hope I can do this without
Application.VBE.ActiveVBProject.References

Can anyone shine some light on this one?

Thanks!
Mike

 

[Jonathan West]

I'm trying to programatically test if the Microsoft Speech Object Library
is
selected and then if it is not I'd like to set it.

I've tried error trapping each side of a Dim but that didn't work:
On error reume next
Voc = SpeechLib.SpVoice
On error resume 0
If voc is nothing then '... let me know or fix it

Due to security levels I hope I can do this without
Application.VBE.ActiveVBProject.References

Can anyone shine some light on this one?

Use late binding instead. In other words, use GetObject or CreateObject to
assign the object to a variable declared as an Object.

Then if the CreateObject call fails (i.e. the object is Nothing after the
call) you can act accordingly.

 

[MikeB77]

Thanks for your assistance. I should have thought of that.
But when I try:
set voc = CreateObject("SpeechLib.SpVoice") or
Set Voc = CreateObject("SpVoice")
or similar I get error 429: ActiveX can't create object. I've read that
ActiveX components can't create user defined funcitons
(http://support.microsoft.com/kb/184898). So am I going about this the wrong
way?

Thanks
Mike

 

[Steve Yandl]

Mike,

This may be a different object but what I use from vbScript also works in
VBA routines. See if you can make this do what you want.

strText = "This is a test"
Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Speak strText


Steve

 

[MikeB77]

Thanks Steve. That may be a different object, or just a easier way to SAPI:
either way its got it nailed. No setting references required!

Mike

 

[Steve Yandl]

Mike,

You're welcome. I've only used the object sparingly and only to speak short
lines but you can do other things like play a .wav file. For reference,
this article might be of use:
http://www.microsoft.com/technet/scriptcenter/funzone/games/sapi.mspx

Steve Yandl