如何在Windows VBS脚本中调整语音的音调与音色？

当然可以调整！你用的SAPI.SpVoice对象本身就自带了控制语音属性的方法，能轻松修改音调、语速，甚至切换不同的合成音色。我给你优化下你的脚本，加上这些控制选项：

基础调整：音调和语速 #

SpVoice有两个核心属性可以直接修改：

• Pitch：控制音调，范围是**-10（低沉）到10（尖锐）**，默认值是0
• Rate：控制语速，范围是**-10（极慢）到10（极快）**，默认值是0

修改后的示例脚本：

Dim msg, sapi
Set sapi = CreateObject("SAPI.SpVoice")

' 把音调调高2个单位（偏尖锐）
sapi.Pitch = 2
' 把语速加快1个单位
sapi.Rate = 1

sapi.Speak "Hello world! This is my adjusted voice."
Lol = msgbox("Request done.")

切换音色（更换语音合成器） #

如果想换不同的音色（比如男声、女声、不同语言的语音），需要先获取系统中已安装的语音，再指定使用哪一个：

第一步：查看系统可用语音 #

先运行这段脚本，弹出所有已安装的语音名称：

Dim sapi, voice
Set sapi = CreateObject("SAPI.SpVoice")

For Each voice In sapi.GetVoices
    MsgBox "可用语音：" & voice.GetDescription()
Next

第二步：指定使用目标语音 #

根据弹出的语音名称，通过索引（从0开始）来切换：

Dim msg, sapi
Set sapi = CreateObject("SAPI.SpVoice")

' 切换到第二个可用语音（索引1）
Set sapi.Voice = sapi.GetVoices.Item(1)

' 搭配音调语速调整
sapi.Pitch = -1
sapi.Rate = 0

sapi.Speak "Hello world with a different voice!"
Lol = msgbox("Request done.")

补充说明 #

如果你的系统里只有默认语音，可以去Windows设置里添加更多：

打开「设置」→「时间和语言」→「语音」→「添加语音」，选择你需要的语言/语音包安装即可。

内容的提问来源于stack exchange，提问作者user9211686