播放时自动朗读文本.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 + ,,, ‘标点符号仅作为朗读时语句的停顿