VBS - Dica: Como Converter Texto em Voz – Parte 1
Este tutorial mostra como criar um arquivo .vbs simples para converter texto em áudio usando o mecanismo de síntese de voz da Microsoft. Com esse script, você pode gerar arquivos de áudio em formato WAV a partir de textos inseridos manualmente ou lidos de arquivos.
Passo a passo para criar o script básico
Copie o código abaixo e cole dentro de um arquivo com extensão .vbs. Ao executar, o script solicitará um texto para converter em áudio e gerará o arquivo WAV no caminho especificado.
Const SAFT48kHz16BitStereo = 39
Const SSFMCreateForWrite = 3
Dim message, fala, geraWav
curtaocanal = InputBox("Conversor de texto para áudio")
Set geraWav = CreateObject("SAPI.SpFileStream")
geraWav.Open "C:\a\Sample.wav", SSFMCreateForWrite
Set fala = CreateObject("SAPI.spvoice")
Set fala.AudioOutputStream = geraWav
fala.Speak curtaocanal
geraWav.Close
Script para converter texto de arquivo
Também é possível criar um script que lê o conteúdo de um arquivo de texto e converte todo o seu conteúdo para áudio WAV automaticamente. Veja o exemplo completo abaixo:
Dim obj : Set obj = CreateObject("Scripting.FileSystemObject")
Dim inFile: Set inFile = obj.OpenTextFile("texto.txt")
' Lê todo o conteúdo do arquivo texto.txt
Dim strRetVal : strRetVal = inFile.ReadAll
curtaocanal = strRetVal
inFile.Close
Const SAFT48kHz16BitStereo = 39
Const SSFMCreateForWrite = 3
Dim fala, geraWav
Set geraWav = CreateObject("SAPI.SpFileStream")
geraWav.Open "Sample.wav", SSFMCreateForWrite
Set fala = CreateObject("SAPI.spvoice")
Set fala.AudioOutputStream = geraWav
fala.Speak curtaocanal
geraWav.Close
Download de vozes para uso avançado
Para aprimorar a qualidade das vozes e ter opções adicionais, você pode baixar pacotes de voz compatíveis pelo link oficial abaixo:
Download de vozes para síntese de voz
Vídeo explicativo
Considerações finais
Esse método simples de converter texto em áudio via VBScript pode ser útil para automatizar tarefas, criar narrações rápidas e facilitar acessibilidade. É importante conhecer o funcionamento dos scripts e executar os arquivos em ambientes seguros para evitar problemas.
Explore o poder da automação no Windows com esses recursos e potencialize seus projetos!