【VBScript】使用vbs文件直接播放语音

最新推荐文章于 2025-05-22 14:25:03 发布

原创最新推荐文章于 2025-05-22 14:25:03 发布 · 2.6k 阅读

5 ·

CC 4.0 BY-SA版权

语言-VBScript 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种使用VBA进行语音合成的方法，通过创建语音对象并设置语速、音量和语音类型，最终实现文本到语音的转换。文章还展示了如何枚举可用的语音，并提供了一个简单的示例代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'定义变量
Dim spv,s

'创建语音对象
Set spv=CreateObject("SAPI.SpVoice")

'语速
spv.Rate=1

'音量
spv.Volume=100

'语音
'Microsoft Huihui Desktop   spv.GetVoices.Item(0)
'Microsoft Zira Desktop       spv.GetVoices.Item(1)
Set spv.Voice=spv.GetVoices.Item(0)

'播放
spv.Speak "绍莫千华 Love Lucy" 

'枚举语音
For Each token In spv.GetVoices
        s=s & token.GetDescription & vbcrlf '
Next
MsgBox s