求教如何通过批处理切换系统语音库

Question

 

有没有办法通过批处理文件切换语音库(因为需要在英式美式两种发音中切换)

然后在Excel中通过宏后台运行桌面的这个批处理文件

或者说有没有办法直接在Excel中通过相关代码让speech.speak选择某种语音库播报

Answer 1

Dim tts As Object

Sub btn_Click()
    Speak "Microsoft Huihui Desktop", "语音内容"
End Sub

Sub Speak(name As String, text As String)
   Set tts = CreateObject("SAPI.SpVoice")
   Set tts.voice = tts.GetVoices("Name=" + name).Item(0)
   tts.Rate = 3 '速度
   tts.Volume = 100 '声音
   tts.Speak text, 1 '异步朗读时，tts变量要定义在声明区
End Sub

之前没有说清楚，数字 1 是异步播放声音，但是 变量要定义在声明区，才能发挥作用