如何使用vba将PowerPoint文本转换为语音

我想编写一个使用本地windows语音功能将备注文本转换为语音的VBA宏。
以前有人做过这个吗？
任何提示如何启动和继续？
最后，我需要提供不同的EU语言进行转换。
谢谢约翰。如何使用vba将PowerPoint文本转换为语音

2015-07-01 John Niezen

有从PPT本身这个不能直接访问，但可以自动化Excel文本到语音从PowerPoint中引擎。你可以通过网络搜索找到例子，例如“excel text to speech vba”（不包括引号） –

我已经在PowerPoint中使用VBA进行了原型插件，但它确实使用了对微软语音对象库。我设法让它读取幻灯片笔记，甚至使用自定义语音。我会挖出一些代码并稍后回复。 –

正如上面提到的，在您的项目中添加一个引用到Microsoft Speech Object Library。

那么该功能将设置你在正确的道路上：

Function SpeakThis(myPhrase As String) 
    Dim oSpeaker As New SpeechLib.SpVoice 

    ' Set speech properties 
    oSpeaker.Volume = 100 ' percent 
    oSpeaker.Rate = 1 ' multiplier 
    oSpeaker.SynchronousSpeakTimeout = 1 
    oSpeaker.AlertBoundary = SVEWordBoundary 

    If Not myPhrase = "" Then oSpeaker.Speak myPhrase, SVSFDefault 
End Function

然后调用此：

SpeakThis "Hello, my name is Jamie and I love VBA!"

来源

2015-07-01 16:51:26

谢谢杰米，我会在明天开始放假后尝试。
希望你不要以为我会忘记！ –

嗨杰米，我应该提供一个链接到SpeechLib.SpVoice的地方？我收到用户定义类型没有指定的错误。任何线索？ Thx约翰 –

@JamieGarroch能否就上述问题提供建议，我也面临同样的问题 –

如何使用vba将PowerPoint文本转换为语音

回答

相关问题