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，数字越大音量越大objVoice.Rate = 0‘得到所需语音引擎的编号langCN = “MSSimplifiedChineseVoice” ‘简体中文langEN = “MSSam” ‘如果安装了TTS Engines 5.1，还可以选择MSMike,MSMaryFor i = 0 To colVoice.Count – 1If Right(colVoice(i).Id, Len(langCN)) = langCN Then cnVoice = iIf Right(colVoice(i).Id, Len(langEN)) = langEN Then enVoice = iNext

Const SSFMCreateForWrite = 3Const SAFT22kHz16BitMono = 22Const SVSFlagsAsync = 1

Set objVoice.Voice = colVoice.Item(cnVoice)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

实例二：

Private 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