PPT播放时自动朗读文本.pdfVIP

PPT 播放时自动朗读文本 PPT 放映时通常有很多文本，在讲解时通常也是照着文本朗 读，而现在windows 系统自带的语音朗读已十分接近播音 员朗读的质量，下面的方法即可实现幻灯片中对文本框中 的文本进行自动的语音朗读。 第一步： 1、请确保 选项信任中心信任中心设置宏设置启用 所有宏被选中 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 + ,,, ‘标点符号仅作为朗读时语句的停顿 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 第二步： 文件保存为PPTM 格式 第三步： 文件—选项—自定义功能区—开发工具前选中 此时主菜单中会出现开发工具的菜单 在需要对文本框文字进行语音朗读的幻灯片作如下操作： 1、选中开发工具中的命令按扭，如图所示 2、在合适的位置插入该按扭 3 右键选中按扭，打开属性表修改caption 为 “朗读”（自定义） 4 、双击该按扭，进入VBA 编辑界面 Private Sub CommandButton1_Click() Call MyRead End Sub 此时播放该ppt,点击按扭，VBA 就会调用系统的语音朗读对 文本框进行朗读 （注意朗读顺序是按照文本框生成的先后 顺序来朗读） 其它幻灯片的操作以些类推，在本页的按扭中加入Call MyRead 就可以了 第四步： 在实际应用中，PPT 全部做完后请另存为启用宏的PPSM 格 式，进行放映，经测试发现，普通演示文稿在单机放映 时，点击按扭进行文本朗读时操作正常，但连上投影仪双 屏放映时点击事件响应到下一页去了，而不会响应VBA 按 扭，通过另存为PPSM 格式放映就不会有此问题