PowerPoint 文本转语音宏

Question

我希望能够创建一个宏，该宏将开始对演示者笔记中的文本进行文本到语音转换。我会将宏应用到 ActiveX 按钮，允许用户开始阅读，最终我想将幻灯片的动画时间安排到演讲中。

我在 Excel VBA 中取得了成功，能够写出与单元格对话的命令：

application.speech.speak (sheet1.cells(1,1))

我找到了一个代码，可以将文本输入到所有幻灯片的演讲者备注部分。

Sub AddTextAllSpeakerNotes()
  Dim sld As Slide
  For Each sld In ActivePresentation.Slides
    sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange = ""
  Next sld
End Sub

我已经添加了 Microsoft Speech Object Library 参考，但我永远无法获得 VBA 来识别语音命令并自动完成任何命令，这将帮助我弄清楚如何进一步。

如何编写将文本转语音命令应用于特定幻灯片的演讲者备注部分的代码。

Answer 1

如评论所述，您可以试试这个：

Dim XL As Excel.Application
Set XL = New Excel.Application

XL.Speech.Speak "I was able to make power point speak"

前提是您添加了参考：

Microsoft Excel XX.X Object Library

将 Excel 绑定到 PowerPoint 后，您可以直接从那里使用它的方法。
在上面的代码中，您可以简单地将参数替换为包含你想说的字符串。 HTH.

PowerPoint 文本转语音宏

PowerPoint Text to Speech Macro

excel

powerpoint

vba

text-to-speech

powerpoint-2010