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!