如何使用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文本轉換爲語音

回答

相關問題