让电脑说话的七种方法

weiyingde

二、不同朗读引擎的切换
      如果系统里安装了不止一个语音引擎，则在创建语音对象以后可以用下面的语句进行切换：
       Set obj.Voice = obj.GetVoices.Item(n)    '参数n表示语音引擎的序号，从0到引擎数目-1。
       obj.GetVoices.Count返回语音引擎的数量。
       obj.GetVoices.Item(n).GetDescription返回语音引擎的名称。
       要想返回或设置音量，可以用obj.Volume属性，改变语速可以用obj.Rate属性。
三、生成音频文件。
下面的代码运行后不会出现语音，但会在C盘根目录下出现一个音频.wav的声音文件。
Public Sub 生成音频文件()
    Dim obj As Object, sp As Object
    Set obj = CreateObject("SAPI.SpVoice")
    Set sp = CreateObject("SAPI.SpFileStream")
    sp.Open "c:\音频.wav", 3
    Set obj.AudioOutputStream = sp
    obj.Speak "This is a book.这是一本书。"
    obj.WaitUntilDone 1000
    Set obj = Nothing: Set sp = Nothing
End Sub

XUBBY

不错哦，支持一下

weiyingde

XUBBY 发表于 2018-11-26 22:55
不错哦，支持一下

这个不难，可以通过下面的代码实现。
Sub OnSlideShowNextBuild(ByVal Wn As SlideShowWindow)
Dim Obj As Object
Set Obj = CreateObject("SAPI.SpVoice")
Obj.Speak ActivePresentation.SlideShowWindow.View.Slide.TimeLine.MainSequence(1).DisplayName
end sub

那个谁呀

学习加分享

phz1234

好东西，收了

leon3131

厉害，不过没看明白