PPT播放时自动朗读文本

End With End If 'ss = ss + tmpShape.TextFrame.TextRange.Text Next tmpShape Set s = CreateObject("sapi.spvoice") s.Rate = 1 '设置朗读语速 s.Speak ss, 1
End Sub
4、双击该按扭，进入 VBA 编辑界面 Private Sub CommandButton1_Click() Call MyRead End Sub 此时播放该 ppt,点击按扭，VBA 就会调用系统的语音朗读对 文本框进行朗读（注意朗读顺序是按照文本框生成的先后 顺序来朗读） 其它幻灯片的操作以些类推，在本页的按扭中加入 Call MyRead 就可以了 第四步： 在实际应用中，PPT 全部做完后请另存为启用宏的 PPSM 格 式，进行放映，经测试发现，普通演示文稿在单机放映 时，点击按扭进行文本朗读时操作正常，但连上投影仪双 屏放映时点击事件响应到下一页去了，而不会响应 VBA 按 扭，通过另存为 PPSM 格式放映就不会有此问题
PPT 播放时自动朗读文本
PPT 放映时通常有很多文本，在讲解时通常也是照着文本朗 读，而现在 windows 系统自带的语音朗读已十分接近播音 员朗读的质量，下面的方法即可实现幻灯片中对文本框中 的文本进行自动的语音朗读。 第一步： 1、请确保 选项信任中心信任中心设置宏设置启用 所有宏被选中
第二步： 文件保存为 PPTMBaidu Nhomakorabea格式
第三步： 文件—选项—自定义功能区—开发工具前选中
此时主菜单中会出现开发工具的菜单
在需要对文本框文字进行语音朗读的幻灯片作如下操作： 1、选中开发工具中的命令按扭，如图所示
2、在合适的位置插入该按扭
3
右键选中按扭，打开属性表修改 caption 为“朗读” （自定义）
2、按 ALT+F11,打开 VBA 界面 3、菜单插入模块
4、在模块 1 中添加如下代码： Dim s As Object Public Sub MyRead() Dim ss As String Dim tmpShape As Shape, tmpSlide As Slide For Each tmpShape In ActivePresentation.SlideShowWindow.View.Slide.Shapes If tmpShape.HasTextFrame Then With tmpShape.TextFrame If .HasText Then ss = ss + .TextRange.Text + " ,,, ..... " ‘标点符号仅作为朗读时语句的停顿