分享并求完善 ppt随心所欲朗读文本之VBA代码

weiyingde

                           ppt随心所欲朗读文本之VBA代码
下面这两个小程序，第一个没有问题，第二个有BUG，求大侠和行家指教。代码如下：

lide1中代码
Private Sub CommandButton1_Click()
依次朗读
End Sub
Private Sub CommandButton2_Click()
逐屏朗读
End Sub

模块1
Sub 依次朗读()
For i = 1 To ActivePresentation.Slides.Count
Set yy = CreateObject("sapi.spvoice")
Set myDocument = ActivePresentation.Slides(i)
For Each s In myDocument.Shapes
    If s.HasTextFrame Then
        With s.TextFrame
            yy.Speak .TextRange.Text
            'Excel.Application.Speech.Speak .TextRange.Text
        End With
    End If
Next
Next
End Sub

模块2
Sub 逐屏朗读()
    Set yy = CreateObject("sapi.spvoice")
     With ActivePresentation.SlideShowSettings
        .ShowType = ppShowTypeSpeaker
        .ShowWithNarration = msoTrue
        .ShowWithAnimation = msoTrue
        .RangeType = ppShowAll
        .AdvanceMode = ppSlideShowUseSlideTimings
        .PointerColor.SchemeColor = ppForeground
        .Run
    End With
     For i = 1 To ActivePresentation.Slides.Count
        Set myDocument = ActivePresentation.Slides(i)
         For Each s In myDocument.Shapes
           If s.HasTextFrame Then
                 With s.TextFrame
                   yy.Speak .TextRange.Text
                 End With
           End If

008zhang

Set yy = CreateObject("sapi.spvoice")
出错

weiyingde

没有出错呀

chuhaiou

要是每读完一个文本框里的内容，字体就变色就更加完美了。

weiyingde

想想办法，能实现的。

weiyingde

应该不是太难，完全可以，不过目前，我还没有研究这个的计划，稍后一定会实现

weiyingde

chuhaiou 发表于 2016-1-17 13:19
要是每读完一个文本框里的内容，字体就变色就更加完美了。

能表色，但不是与朗读同时进行，而是发生在朗读之后，请察看！！

weiyingde

能表色，但不是与朗读同时进行，而是发生在朗读之后，请察看！！
如有改进的地方告我一声

chuhaiou

在同一张幻灯片内的多个文本，只是在幻灯片切换后才变了色。可能要增加个文本更新的语句。

weiyingde

这个，刷新的语句，我目前还没掌握，请教给我，谢谢。