💸Script Inicio
Dim obj : Set obj = CreateObject("Scripting.FileSystemObject")Dim inFile: Set inFile = obj.OpenTextFile("texto.txt")' Read fileDim strRetVal : strRetVal = inFile.ReadAllcurtaocanal = strRetValinFile.CloseConst SAFT48kHz16BitStereo = 39Const SSFMCreateForWrite = 3Dim message, Canal Qbfala, Canal QbgeraWavDim vozesSet Canal Qbfala = CreateObject("SAPI.spVoice")Set Canal QbgeraWav = CreateObject("SAPI.SpFileStream")vozes = ""for lista = 0 to Canal Qbfala.GetVoices.Count - 1vozes = vozes & Chr(13) & Chr(10) & lista & ": "& Canal Qbfala.GetVoices.Item(lista).GetDescriptionvozes = left(vozes,inStr(1,vozes,"-",vbTextCompare)-1)nextvoz = Inputbox(vozes, "Escolha seu narrador!"& Chr(13) & Chr(10))Set Canal Qbfala.Voice = Canal Qbfala.GetVoices.Item(voz)Canal QbgeraWav.Format.Type = SAFT48kHz16BitStereoCanal QbgeraWav.Open "Audio.wav", SSFMCreateForWriteSet Canal Qbfala.AudioOutputStream = Canal QbgeraWavCanal Qbfala.Speak curtaocanal
💸Script Final
0 Comentários