关于VBA文字查找的问题

Mr.Again

Sub 颜色标记()
    For Each sld In Application.ActivePresentation.Slides '遍历活动窗口中打开的演示文稿中的幻灯片
        For Each shp In sld.Shapes '遍历当前幻灯片中的形状对象
            If shp.HasTextFrame Then '当前幻灯片中的当前形状含有文本框架
                Set txtRng = shp.TextFrame.TextRange '引用文本框架中的文本

                Set foundText = txtRng.Find(FindWhat:="升高") '寻找字符

                If Not (foundText Is Nothing) Then  ‘该判断只能处理一段文字中的第一个“升高”，怎么样处理文字中所有的“升高”？
                    foundText.Font.Color = RGB(192, 0, 0)
                End If

            End If
        Next
    Next
End Sub

以上，请高手指点

Mr.Again

望指导一下，在线等

Mr.Again

木有高手回答吗

weiyingde

Mr.Again 发表于 2019-6-20 18:30
木有高手回答吗

已经做好，你看一下，可行的话，赏朵小花。

weiyingde

附件如下，在放映视图下点击按钮即可得到所要的效果。

Mr.Again

抱歉，好长时间没上来看了