MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Selecionar Idioma Windows (Voz)

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 609
    Registrado : 09/11/2012

    [Resolvido]Selecionar Idioma Windows (Voz)

    Mensagem  =>Nois em Ter 22 Ago 2017, 15:54

    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")



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9517
    Registrado : 04/11/2009

    Re: [Resolvido]Selecionar Idioma Windows (Voz)

    Mensagem  JPaulo em Ter 22 Ago 2017, 15:59

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9517
    Registrado : 04/11/2009

    Re: [Resolvido]Selecionar Idioma Windows (Voz)

    Mensagem  JPaulo em Ter 22 Ago 2017, 16:05

    Veja este tópico;

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 609
    Registrado : 09/11/2012

    Re: [Resolvido]Selecionar Idioma Windows (Voz)

    Mensagem  =>Nois em Ter 22 Ago 2017, 16:11

    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.


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 609
    Registrado : 09/11/2012

    Re: [Resolvido]Selecionar Idioma Windows (Voz)

    Mensagem  =>Nois em Ter 22 Ago 2017, 17:23

    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.


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 609
    Registrado : 09/11/2012

    Re: [Resolvido]Selecionar Idioma Windows (Voz)

    Mensagem  =>Nois em Qua 23 Ago 2017, 02:07

    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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9517
    Registrado : 04/11/2009

    Re: [Resolvido]Selecionar Idioma Windows (Voz)

    Mensagem  JPaulo em Qua 23 Ago 2017, 14:39

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 609
    Registrado : 09/11/2012

    Re: [Resolvido]Selecionar Idioma Windows (Voz)

    Mensagem  =>Nois em Qua 23 Ago 2017, 15:34

    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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 609
    Registrado : 09/11/2012

    Re: [Resolvido]Selecionar Idioma Windows (Voz)

    Mensagem  =>Nois em Sex 25 Ago 2017, 16:36

    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).


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: Ter 19 Set 2017, 12:48