python tts 保存wav_TTS 导出 wav 音频（转）

TTS 导出 wav 音频

实例一：

Sub Form_Load()Const SSFMCreateForWrite = 3Const SAFT22kHz16BitMono = 22Const SVSFlagsAsync = 1

Set objVoice = CreateObject(“SAPI.SpVoice”)objVoice.Volume = 100objVoice.Rate = 1Set objVoice.Voice = objVoice.GetVoices().Item(0)

Set fso = CreateObject(“Scripting.FileSystemObject”)Set f = fso.OpenTextFile(“d:\3.txt”, 1)Text = f.ReadAll

Set objFileStream = CreateObject(“SAPI.SpFileStream”)objFileStream.Format.Type = SAFT22kHz16BitMonoobjFileStream.Open “d:\test.wav”, SSFMCreateForWrite, FalseSet objVoice.AudioOutputStream = objFileStream

objVoice.Speak Text, SVSFlagsAsyncobjVoice.WaitUntilDone -1objFileStream.Close

End Sub

中文需做如下改动

Private Sub Form_Load()Set objVoice = CreateObject(“SAPI.SpVoice”)Set colVoice = objVoice.GetVoices() ‘获得语音引擎集合objVoice.Volume = 100 ‘设置音量，0到100，