关于VBA文字查找的问题

winner169

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

以上，请高手指点

紫风铃

望指导一下，在线等

vincentmao

木有高手回答吗