Este blog é um complemento do nosso canal no YouTube. Clique em @CanalQb para seguir e acompanhar nossos vídeos!

Sugestões de pesquisas

Como Converter Texto em Áudio com Script VBS: Guia Completo Parte 2

#TextoEmVoz; #VBScript; #Tecnologia
@CanalQb

Dica Completa para Converter Texto em Voz com VBScript – Parte 2


Converter texto em voz é uma técnica útil para criar narrações automáticas em diversos projetos, desde vídeos até acessibilidade. Nesta dica, apresentamos um script VBScript que permite ler um arquivo de texto (.txt) e convertê-lo em áudio, utilizando o mecanismo SAPI (Speech Application Programming Interface) da Microsoft.

Script VBScript para Conversão de Texto em Voz

O código abaixo lê o conteúdo do arquivo "texto.txt", lista as vozes disponíveis no sistema, permite a escolha do narrador e gera um arquivo de áudio WAV com a narração do texto.


Dim obj : Set obj = CreateObject("Scripting.FileSystemObject")
Dim inFile: Set inFile = obj.OpenTextFile("texto.txt")

' Ler todo o conteúdo do arquivo texto.txt
Dim strRetVal : strRetVal = inFile.ReadAll
textoParaFalar = strRetVal

inFile.Close

Const SAFT48kHz16BitStereo = 39
Const SSFMCreateForWrite = 3

Dim vozEscolhida, sintetizador, arquivoAudio
Dim vozesDisponiveis

Set sintetizador = CreateObject("SAPI.SpVoice")
Set arquivoAudio = CreateObject("SAPI.SpFileStream")

vozesDisponiveis = ""

' Listar as vozes instaladas
For i = 0 To sintetizador.GetVoices.Count - 1
    vozesDisponiveis = vozesDisponiveis & i & ": " & sintetizador.GetVoices.Item(i).GetDescription & vbCrLf
Next

vozEscolhida = InputBox(vozesDisponiveis, "Escolha seu narrador (digite o número correspondente):")

' Definir a voz escolhida
Set sintetizador.Voice = sintetizador.GetVoices.Item(CInt(vozEscolhida))

' Configurar formato e abrir arquivo para gravação
arquivoAudio.Format.Type = SAFT48kHz16BitStereo
arquivoAudio.Open "Audio.wav", SSFMCreateForWrite

Set sintetizador.AudioOutputStream = arquivoAudio
sintetizador.Speak textoParaFalar

arquivoAudio.Close

Como preparar o arquivo de texto para o script

  • Crie um arquivo de texto chamado texto.txt na mesma pasta do script.
  • Salve o arquivo em codificação ASCII ou UTF-8 para evitar problemas com caracteres especiais.
  • Organize o texto para que cada frase ou ideia fique em uma linha separada, facilitando a leitura.

Outros detalhes importantes

Este script é uma solução simples e eficaz para gerar arquivos de áudio a partir de textos utilizando recursos nativos do Windows. Ideal para quem deseja automatizar narrações sem softwares complexos.

Para usar, basta ter o Windows com suporte à SAPI, salvar o script com extensão .vbs e executar.

Vídeo tutorial

Considerações finais

O uso dessa técnica pode ser explorado em diversas aplicações, incluindo criação de audiobooks, podcasts automáticos e auxílio a pessoas com deficiência visual.

Aviso: Se pretende usar scripts ou soluções automatizadas para fins comerciais ou investimentos, avalie cuidadosamente cada ferramenta e faça sua própria análise antes de aplicar recursos financeiros.


Confira também o canal @CanalQb para mais dicas e tutoriais.

Postar um comentário

Comente só assim vamos crescer juntos!
CanalQb mais próximo Quer falar com o CanalQb?
Em que posso te ajudar?
Fale comigo