求做一个VBA程序，要求：判断PPT内文本框内文字的颜色，如果为文字为红色，将其改为黑色，并加下划线

Question

我想打印老师的PPT，但PPT里面的重点都是加了红色的，打印不出效果，急求高手帮忙，如果能成功，再追加20分！
Sub OED01()

Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
Set oTxtRange = oShape.TextFrame.TextRange
If （ ） Then
With oTxtRange.Font
.Name = "宋体" '改成你需要的字体
.Bold = Not True '改成你需要的字体粗细
.Size = 31 '改成你需要的文字大小
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成你想要的文字颜色
End With
End If
Next
Next
End Sub

if 后面的括号中应该怎么弄？

Answer 1

oTxtRange.Font.Color = RGB(255, 0, 0)

=====================================
很怀疑这是不是你自己写的程序。追问

你写的有问题，oTxtRange.Font.Color = RGB(255, 0, 0) 只有是全部全本框内的文字为红色时，才对文本框内的所有文字进行处理

追答

是的,因为你这程序就是限定了这种类型对象.