53PPT播放时自动朗读文本

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