[Resolvido]Selecionar Idioma Windows (Voz)

ola a todos

estou com problema com relação ao narrador do windows, consegui instalar um pacote de idioma em portugues para que o access fale.

ate ai ok.

no entanto ao usar o codigo abaixo ele muda o idioma para o padrão que é o ingles

'-------------------
Dim message, sapi

message="olá isso é um teste!"

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message

'-------------------

gostaria de arrumar uma forma para imputar no codigo acima o idioma que quero executar

achei algo assim mais não esta a funcionar:

audio.SelectVoice ("TTS_MS_pt-BR_Heloisa_11.0")

Se quiser testar assim;

Num módulo novo, cole este código e salve:

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
End Function
 

No seu form, coloque uma caixa de texto vazia e dê-lhe o nome de txtFala.
No evento VBA depois de atualizar dessa caixa de texto, coloque:

Código:


Private Sub txtFala_AfterUpdate()
FazerFalar (Me.txtFala)
End Sub

Agora é só escrever dentro da caixa de texto e fazer Enter.

Veja este tópico;

https://www.maximoaccess.com/t10465-resolvidoaccess-falar-em-portugues#83224

Obrigado pelo retorno JP!

segui vários topicos relacionados a fala do windows inclusive ao citado acima.

no entanto somente no meu windows 32 bits o access reconhece a fala selecionada no painel de controle e fala

(instalei a voz Heloisa pt-BR) no windows 64 bits

utilizei seu vbs e funciona certinho, no entanto quando uso no access simplesmente ele muda a voz para padrão "Anna" em ingles.

então acho que a ideia seria falar com access selecione o idioma Tal e depois fale.

sem sucesso.

tive o mesmo problema do rapaz na mensagem 14.

o access fala só que em ingles. no entanto tenho o idioma da heloisa instalado e funciona, quando acimo a sua função ele seleciona o idioma padrão e fala em ingles.

consigo fazer com que esse vbs leia o texto de um bloco de notas? se der ja resolve


Dim message, sapi

message="Olá isso é um teste"

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message


c:\MeuBlocodeNotas.txt

conteúdo: Olá isso é um teste

Se você usar o codigo da minha mensagem Nº2, basta apenas no Codigo indicar onde está a voz que pretende.

Se você for ao Control Panel, Speech Recognition, Text to Speech, lá na combobox da selecção de vozes, veja em que posição está.

Item(0) é a primeira
Item(1) é a segunda

e por ae....

Depois é só adicionar ao código;
Set objVo.Voice = objVo.GetVoices.Item(0)

Código:

Public Function FazerFalar(str As String)
'By JPaulo 2008
Dim objVo As Object
Set objVo = CreateObject("SAPI.SpVoice")
'seleciona a primeira voz no SpVoice com o Item(0)
'para a segunda use o Item(1), ou Item(2) blablabla
Set objVo.Voice = objVo.GetVoices.Item(0)
objVo.Speak str
End Function


só esta aceitando o item(0) 1.2.... não funciona

vou refazer minha instalação de idioma e retorno, montei esse vbs abaixo que funciona ao salvar o arquivo grava a mensagem que pretendo

ao executar o arquivo manualmente fala em portugues, ao invocar pelo vba ou "dos" muda automaticamente a voz para ingles

Dim strFicheiro As String

strFicheiro = "C:\minhapasta\arquivo\falador.vbs"

Open strFicheiro For Output As #1

Print #1, "Dim message, sapi"
Print #1, "message=" & Chr(34) & Me.txtChamar & Chr(34)
Print #1, "Set sapi=CreateObject(" & Chr(34) & "sapi.spvoice" & Chr(34) & ")"
Print #1, "sapi.Speak message"

Close #1

a minha solução é fazer o upgrade do win7 para o windows 10 que ja vem com a voz padrão pt-br Maria como padrão (Funciona normalmente).