博文
刘瑞祥：怎样利用VBA或者VBS让计算机说话
||
本例功能需要计算机安装微软SAPI5.1开发包。具体程序如下（Win7+Powerpoint VBA环境下通过）：
| Public Sub s() Dim obj As Object Set obj = CreateObject("SAPI.SpVoice") '创建语音对象 obj.Speak "This is a book. 这是一本书。" Set obj = Nothing End Sub |
以上只能调用默认语音引擎，如果系统里安装了不止一个语音引擎，则在创建语音对象以后可以用下面的语句进行切换：
Set obj.Voice = obj.GetVoices.Item(n) '参数n表示语音引擎的序号，从0到引擎数目-1。
obj.GetVoices.Count返回语音引擎的数量。
obj.GetVoices.Item(n).GetDescription返回语音引擎的名称。
要想返回或设置音量，可以用obj.Volume属性，改变语速可以用obj.Rate属性。
下面的代码运行后不会出现语音，但会在C盘根目录下出现一个1.wav的声音文件。
| Public Sub s() Dim obj As Object, sp As Object Set obj = CreateObject("SAPI.SpVoice"): Set sp = CreateObject("SAPI.SpFileStream") sp.Open "c:\1.wav", 3 Set obj.AudioOutputStream = sp obj.Speak "This is a book.这是一本书。" obj.WaitUntilDone 1000 Set obj = Nothing: Set sp = Nothing End Sub |
要想让以上语句在vbs里运行，简单修改为以下形式即可（以第一段程序为例）：
'不需要public sub()和end sub语句 Dim obj 'vbs没有变量类型 |
下面说一下数字和号码的问题。经检验，英语句子中的数字会用英语念，中文句子中的英语会用中文念。比如上面把要说的话改成"There are 100 books. 这是100本书。"则朗读时前者会读成one hundred，后者会读成一百。如果要读号码呢？那应该把号码一个一个分开写，或者直接用中英文，比如“我的电话号码是2,3,9,1,7，我的邮箱是l,a,b,at,1,2,3.com"这样的（本文的电话和邮箱均为虚拟）。经检验，前面的电话号码如果用逗号是可以的，但如果用连字符则会读成减号。
https://wap.sciencenet.cn/blog-3388899-1147239.html
上一篇：刘瑞祥：在PPT中用VBA实现路径动画
下一篇：刘瑞祥：故事新编·忧天
