[Resolvido]Access Falar em Portugues

Bom dia, pessoal estive olhando um código que o mestre JPaulo postou no fórum de como o Access falar funcionou bem, baixei os agentes que ele indicou mais só que fala em Inglês como faço para falar em português alguém tem alguma dica?

este é 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

onde posso encontrar esses agentes em português, ou devo fazer algo diferente?  Obrigado

Penso que assim você vai se safar dessa ...

Procure no Google o arquivo Realspeak-português+brasil+Raquel é gratis.

1º Instale
2º Vá em Painel de controle/Fala
3º Selecione como padrão: ScanSoft Raquel_Full_22KHz

Se quiser que a voz fique boa, faça novamente o Download e siga as instruções;

https://www.dropbox.com/s/o765ymglmayh5wm/realspeak_raquel_sapi5_portugues_brasil_II.rar?dl=0

Ok, vou testar, obrigado

Pode ir testando com este vbs e depois dê o retorno, para encerrar-mos o tópico.

Bom dia JPaulo. Peguei o seu exemplo. instalei outra voz no windows (em portugues) porém não fazer o access falar com ela. o código que usei foi um que esta no repositório.

Código:


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


sabe me dizer o caminho para selecionar e outra voz. lembrando que no windows ela funcionou certinho. Na parte do narrator e do reconhecimento da fala.

Desde já obrigado.

Você testou com o VBS da mensagem Nº7 ?

Ahh sim sim... testei... mas também ficou com a voz "inglês".

E você tem a amiga Raquel por defeito no seu Speech ?

Hummmm...

Não só tenho a Heloisa:


Onde consigo a Rachel?

Tenta instalar a Raquelinha do exemplo acima e testa ae...

Jpaulo, não entendi o motivo... mas agora fui fazer o ovo teste e ele deu certo com o "sotaque portugues"

ah eu instalei a Raquel ali em cima e o text aloud e não apareceu no windows. tem algum macete?


Mas obrigado pela atenção...
vou utilizar muito este código, pois pretendo implantar o sistema que tenho aqui para para que os representates possam acessar, mas tem um deles com deficiencia visual. acredito que vai ajudar muito.

Não tem nenhum macete não, mas se funfa, fico feliz.

Bom dia !

Eu consegui com o código do JPaulo fazer o access falar, mas o problema que eu instalei ScanSoft Raquel mas não consigo alterar o que vem padrão no windows 7 e nem no XP, desse modo so falar em inglês

att

Bruno

Voce tem o instalador ai não? o link ta quebrado.

Ola, muito bom esse recurso, apliquei em meu projeto, mas percebi que existe uma parada ate que o som acabe e isso nao ficou la muito bem.

Existe uma maneira de nao interromper o andamento do carregamento do Form, ou afterupdate ou outra acao ?

Ou entao, existe uma maneira de aplicar este comando por exemplo num outro banco de dados, ou ate mesmo numa planilha excel pra ser acionado o audio fora deste banco de dados, e assim nao interromper o comando inteiro ?

Eu ja estava usando o recurso abaixo, e o som nao interrompe em nada . O unico problema que tenho que preparar os audios antes, e desta maneira da postagem aqui , e mais rapido por ser em texto o audio a ser falado.

Meu sistema atual em uso

Código:

Option Compare Database
Option Explicit
Dim VarTecla
Dim Nm
Dim strEsconde As Boolean

Private Declare Function PlaySound Lib "winmm.dll" _
          Alias "PlaySoundA" (ByVal lpszName As String, _
          ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Código:

Sub SomOferta()
Dim WAVFILE3
    WAVFILE3 = "Oferta.wav"
    WAVFILE3 = "C:\Gerencia\SysVendas\Som\" & WAVFILE3
    Call PlaySound(WAVFILE3, 0&, SND_ASYNC Or SND_FILENAME)
End Sub



Bom dia

Alguém tem o software necessário para postar aqui ?

Obrigado

Vez ou outra acontece esse problema devido a falhas de conexão enquanto um download está acontecendo. Tente baixar novamente.

Damasceno

Já tentei mas, está a acontece sempre.

Obrigado