Fazer o access falar de forma "Async" sem bloquear outras ações do código

Prezados Senhores

Antes de mais nada, venho agradecer os GIGANTES deste fórum, especialmente o JPaulo.

O código do JPaulo fala o texto perfeitamente, mas não estou conseguindo utiliza-lo sem parar as outras ações do meu código.

Ou seja, enquanto estiver lendo qualquer texto, todo o restante do código fica aguardando terminar a leitura do texto e só depois que termina a leitura do texto é que o restante do código segue a sequencia.

Notei na documentação SPVoice no site da Microsoft que existe uma forma de usar este recurso no VBA de forma Async por meio de Flags mas já tentei de tudo e não consigo adaptar para que funcione.

Lá diz que basta colocar a linha dessa forma:

objVo.Speak "qualquer texto", SVSFlagsAsync

Alguém consegue me ajudar? JPaulo conhece alguma solução?

Código:

Option Explicit
Public Function FazerFalar(str As String)
'By JPaulo 2008
Dim objVo As Object
Set objVo = CreateObject("SAPI.SpVoice")
objVo.Speak str, SVSFlagsAsync
End Function

Boa tarde,
Declare o objVo fora da função e mude a flag para 1
assim:

Código:


objVo.Speak str, 1


Saludos

Obrigado Colega!

Perdão, eu já havia conseguido e me esqueci de encerrar o tópico.
Agradeço mesmo assim pela sua dica!

Na internet pouco se encontra a respeito desse assunto.
Como eu não consegui ajuda antes, passei alguns dias quebrando a cabeça e consegui, mas foi preciso abrir mão do Modulo do JPaulo.

Montei o código dentro do próprio form!

Ainda bem!
De qualquer forma, fica já aqui para outros possíveis leitores.
Realmente o importante é declarar o objeto fora da função/sub onde é utilizado e a flag a 1.
Saludos

Olá a todos,


Max Will, se poder partilhar a solução o fórum agradece.

Abraço a todos