如何用VBA替换PowerPoint所有幻灯片公式中数字的Cambria Math字体

你的原代码无法生效的核心原因是：PPT中的公式属于OMath（Office Math）特殊对象，并非普通文本内容，直接通过正则匹配普通文本范围的数字，无法触达公式内部的格式设置。

以下是可以正确替换所有幻灯片（包括表格内）公式中数字字体的VBA代码：

Sub ChangeMathNumberFont()
    Dim osld As Slide
    Dim oshp As Shape
    Dim oMath As OMath
    Dim oRange As TextRange
    Dim i As Integer
    
    ' 替换为你需要的目标字体
    Const TARGET_FONT As String = "Helvetica"
    
    ' 遍历所有幻灯片
    For Each osld In ActivePresentation.Slides
        ' 遍历当前幻灯片的所有形状
        For Each oshp In osld.Shapes
            ' 处理普通形状中的公式
            If oshp.HasTextFrame And oshp.TextFrame.HasText Then
                Set oRange = oshp.TextFrame.TextRange
                ' 遍历文本框内的所有公式对象
                For Each oMath In oRange.OMaths
                    ' 逐个检查公式内的字符，筛选数字并修改字体
                    For i = 1 To oMath.Range.Length
                        If IsNumeric(oMath.Range.Characters(i, 1).Text) Then
                            oMath.Range.Characters(i, 1).Font.Name = TARGET_FONT
                        End If
                    Next i
                Next oMath
            End If
            
            ' 处理表格单元格中的公式
            If oshp.HasTable Then
                Dim iRow As Integer, iCol As Integer
                Dim cellShape As Shape
                For iRow = 1 To oshp.Table.Rows.Count
                    For iCol = 1 To oshp.Table.Columns.Count
                        Set cellShape = oshp.Table.Cell(iRow, iCol).Shape
                        If cellShape.HasTextFrame And cellShape.TextFrame.HasText Then
                            Set oRange = cellShape.TextFrame.TextRange
                            For Each oMath In oRange.OMaths
                                For i = 1 To oMath.Range.Length
                                    If IsNumeric(oMath.Range.Characters(i, 1).Text) Then
                                        oMath.Range.Characters(i, 1).Font.Name = TARGET_FONT
                                    End If
                                Next i
                            Next oMath
                        End If
                    Next iCol
                Next iRow
            End If
        Next oshp
    Next osld
    
    MsgBox "公式中的数字字体已替换完成！", vbInformation
End Sub

使用说明 #

• 把代码中的TARGET_FONT常量值改成你需要的字体名称，确保该字体已在系统中安装
• 运行代码前建议先保存PPT文件，避免意外数据丢失
• 代码会自动处理所有幻灯片的普通形状、表格单元格内的公式，仅修改其中的数字字体

内容的提问来源于stack exchange，提问作者N Vinay