编写宏，把PPT的所有颜色是rgb(9,31,98)的文字的颜色，替换成黑色。

Question

编写宏，把PPT的所有颜色是rgb(9,31,98)的文字的颜色，替换成黑色。
颜色不是rgb(9,31,98)的不变。我要换的是此指定的颜色，非指定的颜色不要动。

Answer 1

Sub change_color()On Error Resume NextFor Each 幻灯片 In ActivePresentation.Slides For Each 图形 In 幻灯片.Shapes

For Each 单词 In 图形.TextFrame.TextRange.Words

If 单词.Font.color = 6430473 Then 单词.Font.color = 0

单词.bond = True

Next 单词

Next 图形

Next 幻灯片End Sub本回答被网友采纳

Answer 2

你好 楼主。
很幸运的看到你的问题。
但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。
对于你的问题我爱莫能助！
可能是你问的问题有些专业了。或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也比较热心，可能能快点帮你解决问题。
希望我的回答也能够帮到你！
祝你好运。
快过年了，
最后祝您全家幸福健康快乐每一天！