Como criar narração automática com VBScript e voz do Windows

Aprenda a gerar áudios automaticamente com VBScript usando voz do Windows

Se você está buscando uma maneira prática de transformar texto em áudio utilizando o próprio sistema Windows, este tutorial mostra um script simples em VBScript que faz isso usando a biblioteca SAPI (Speech API).

Vídeo tutorial passo a passo

Script completo para gerar áudio com voz do sistema

Copie e salve o seguinte script com a extensão .vbs. Ele lerá o conteúdo do arquivo texto.txt e converterá em um áudio .wav com a voz do sistema:

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

' Ler conteúdo do arquivo
Dim strRetVal : strRetVal = inFile.ReadAll
curtaocanal = strRetVal
inFile.Close

Const SAFT48kHz16BitStereo = 39
Const SSFMCreateForWrite = 3

Dim message, CanalQbfala, CanalQbgeraWav
Dim vozes

Set CanalQbfala = CreateObject("SAPI.spVoice")
Set CanalQbgeraWav = CreateObject("SAPI.SpFileStream")

vozes = ""
for lista = 0 to CanalQbfala.GetVoices.Count - 1
    vozes = vozes & Chr(13) & Chr(10) & lista & ": " & CanalQbfala.GetVoices.Item(lista).GetDescription
    vozes = left(vozes, inStr(1, vozes, "-", vbTextCompare) - 1)
next

voz = Inputbox(vozes, "Escolha seu narrador!" & Chr(13) & Chr(10))
Set CanalQbfala.Voice = CanalQbfala.GetVoices.Item(voz)

CanalQbgeraWav.Format.Type = SAFT48kHz16BitStereo
CanalQbgeraWav.Open "Audio.wav", SSFMCreateForWrite
Set CanalQbfala.AudioOutputStream = CanalQbgeraWav
CanalQbfala.Speak curtaocanal

Como usar o script corretamente

1. Abra o Bloco de Notas.
2. Cole o conteúdo acima.
3. Salve o arquivo como narrador.vbs.
4. Crie também um arquivo chamado texto.txt com o texto desejado.
5. Execute o narrador.vbs clicando duas vezes.

O script pedirá para você escolher uma voz instalada no sistema. Depois disso, o áudio será salvo como Audio.wav na mesma pasta onde está o script.

Considerações finais

Este recurso é muito útil para criar locuções automatizadas para vídeos, jogos ou automações internas. Lembre-se de que a qualidade da voz depende das opções disponíveis no seu Windows. Para melhores resultados, considere instalar vozes adicionais via configurações de acessibilidade do sistema operacional.

Nota de segurança: sempre revise scripts antes de executá-los, especialmente se forem obtidos de fontes desconhecidas. Nunca execute códigos de origem duvidosa que possam comprometer a integridade do seu sistema.