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

Question

我想编写一个VBA宏，使用本机Windows语音功能将注释文本转换为语音。
有人这么做过吗？
任何提示如何开始和继续？
最后，我需要提供不同的欧盟语言进行转换。
谢谢约翰。

Answer 1

正确，如上所述，将项目中的引用添加到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!"