Office学习社区 › 宏和VBA小程序开发 › 关于VBA文字查找的问题

winner169 发表于 2018-11-29 22:06:37

关于VBA文字查找的问题

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

以上，请高手指点

紫风铃 发表于 2018-11-29 23:48:01

望指导一下，在线等

vincentmao 发表于 2018-11-30 00:13:44

木有高手回答吗

查看完整版本: 关于VBA文字查找的问题