请求协助：将PowerPoint所有幻灯片文本框大写字母由黑改红

方法一：用PowerPoint自带的查找替换（不用编程） #

• 打开你的PPT，按 Ctrl+H 调出「查找和替换」窗口
• 点窗口底部的「更多」，展开高级选项
• 点「格式」→「字体」，把字体颜色设为黑色，确定（这是告诉PPT要找黑色的大写字母）
• 在「查找内容」框里输入 [A-Z]，勾选「使用通配符」（必须勾，不然这个符号不生效）
• 点「替换为」输入框，再点「格式」→「字体」，把颜色改成红色，确定
• 点「全部替换」，等PPT自动完成修改就行

提示：如果有些黑色大写字母不想改，别点「全部替换」，用「查找下一处」+「替换」逐个确认修改。

方法二：用VBA宏（一键搞定复杂场景） #

要是查找替换没覆盖到所有文本（比如文本在分组形状、SmartArt里），可以用这个简单的宏，步骤超简单：

1. 打开PPT，按 Alt+F11 打开VBA编辑器
2. 左边「工程资源管理器」里右键点你的PPT文件名，选「插入」→「模块」
3. 把下面的代码复制粘贴进去：

Sub ChangeUppercaseColor()
    Dim sld As Slide
    Dim shp As Shape
    Dim txtRng As TextRange
    Dim i As Integer
    
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasTextFrame Then
                If shp.TextFrame.HasText Then
                    Set txtRng = shp.TextFrame.TextRange
                    For i = 1 To txtRng.Length
                        If UCase(txtRng.Characters(i, 1).Text) = txtRng.Characters(i, 1).Text And _
                           txtRng.Characters(i, 1).Font.Color.RGB = RGB(0, 0, 0) Then
                            txtRng.Characters(i, 1).Font.Color.RGB = RGB(255, 0, 0)
                        End If
                    Next i
                End If
            End If
        Next shp
    Next sld
    MsgBox "修改完成！"
End Sub

4. 按 F5 或者点工具栏上的绿色三角按钮运行宏
5. 弹出「修改完成」提示后，关闭编辑器回到PPT就好

注意：运行前先备份PPT！要是PPT提示宏被禁用，就去「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」里选「启用所有宏」（只给你信任的文件这么操作）

内容的提问来源于stack exchange，提问作者Maigualida Martínez