PPT播放时自动朗读文本

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格式放映就不会有此问题