
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.