Solved Error when trying to speak.

[Gasman]

Hi all,
From a link posted to https://nolongerset.com/speak/#commento-login-box-container

I thought I would give it a try, as no references required.

However when I do, I get an error on Set Vox.Voice = Vox.GetVoices("Gender = " & Gender).Item(0)
Err.Number: -2147200967
Err.Description: Method 'Item' of object 'ISpeechObjectTokens' failed

My audio is working fine. Does anyone have an idea as to why it is not working for me please?

In speech properties, it will read out the text in a female voice.

 

[MarkK]

You can set a reference to "Microsoft Speech Object Library" to get more info in the object browser, and intellisense, and you can then do...

Dim vox As New SpeechLib.SpVoice

There might not be a male voice on your system. You can try...

Debug.Print Vox.GetVoices.Count

... to see how many there are.

You could also do this to explicitly set a voice to a member of the list...

Set Vox.Voice = Vox.GetVoices.Item(1)

 

[Gasman]

There might not be a male voice on your system

Doh! You hit the nail on the head. When I tested, it was a female voice.
Changing that to Female, it now works.

Thank you @MarkK

 

[sonic8]

Does anyone have an idea as to why it is not working for me please?

Is there a male voice installed on your system?

[I just noticed your last update]
Ok, apparently not. You could use this to check explicitly:

    Dim vox As Object  ' SpeechLib.SpVoice
    Set vox = CreateObject("SAPI.SpVoice")
    Dim allVoices As Object
    Set allVoices = vox.GetVoices
    
    Dim ot As Object ' SpObjectToken
    For Each ot In allVoices
        Debug.Print ot.getAttribute("Gender")
    Next ot

 

[Gasman]

I will tomorrow, but I am guessing not.
I have not played around with any voices, so it will only be what Windows installs.

 

[Gasman]

Is there a male voice installed on your system?

[I just noticed your last update]
Ok, apparently not. You could use this to check explicitly:

    Dim vox As Object  ' SpeechLib.SpVoice
    Set vox = CreateObject("SAPI.SpVoice")
    Dim allVoices As Object
    Set allVoices = vox.GetVoices
   
    Dim ot As Object ' SpObjectToken
    For Each ot In allVoices
        Debug.Print ot.getAttribute("Gender")
    Next ot

I have two, but both Female

 

[sonic8]

I have two, but both Female

That explains the error message you got earlier.
Strange though, I thought David and Zira would always be available by default even if en-US is not your configured Windows language.

 

[Gasman]

Well I have not mucked around with theses things, so no idea.

 

[The_Doc_Man]

That explains the error message you got earlier.
Strange though, I thought David and Zira would always be available by default even if en-US is not your configured Windows language.

Did the Microsoft "Speech" team suddenly go "woke" on you to get rid of that sexist male voice?

EDIT:
On a more serious note, I just checked. I have "David" and "Zira" on my Win 11 Home system.

 

[Gasman]

My memory is not the best these days, but this is not something I would be bothered/play with, no idea why I have what I have. Any voice will do me TBH, so happy with what I have.

 

[MarkK]

Did the Microsoft "Speech" team suddenly go "woke" on you to get rid of that sexist male voice?

If AWF = True AND IsModerator = True Then
    Call InsertPolitics
End If

 

[The_Doc_Man]

Sometimes, a joke is just a joke.

 

[MarkK]

Sometimes