求一个修改PPT文字指定颜色的宏

leo_cn

文字有多种颜色 只修改黑色改成白色

Batcher

[Asm] 纯文本查看 复制代码

Sub ChangeBlackToWhite()
    Dim sld As Slide
    Dim shp As Shape
    Dim tf As TextFrame
    Dim rng As TextRange

    ' 遍历每一张幻灯片
    For Each sld In ActivePresentation.Slides
        ' 遍历每一张幻灯片中的每一个形状
        For Each shp In sld.Shapes
            ' 检查形状是否包含文本框
            If shp.HasTextFrame Then
                Set tf = shp.TextFrame
                ' 检查文本框是否有文本
                If tf.HasText Then
                    Set rng = tf.TextRange
                    ' 遍历文本框中的每一部分（有可能是多段不同格式的文本）
                    For i = 1 To rng.Paragraphs.Count
                        With rng.Paragraphs(i).Font
                            ' 如果文字颜色是黑色，则改为白色
                            If .Color.RGB = RGB(0, 0, 0) Then
                                .Color.RGB = RGB(255, 255, 255)
                            End If
                        End With
                    Next i
                End If
            End If
        Next shp
    Next sld
End Sub

AI写的，我电脑上简单测试成功了，你试试。