||
本例功能需要计算机安装微软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"这样的(本文的电话和邮箱均为虚拟)。经检验,前面的电话号码如果用逗号是可以的,但如果用连字符则会读成减号。
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-10-19 22:44
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社