Sub ItalicOMML() Dim o As OMath For Each o In ActiveDocument.OMaths o.Range.Font.Italic = True Next ActiveDocument.ActiveWindow.View.ShowHiddenText = False End Sub上述代码是对word公式中字母和数字设置为斜体，我现在只想设置字母为斜体，数字为正体

您可以通过判断OMath对象的内容来实现这个功能。以下是修改后的代码，您可以尝试一下：

Sub ItalicOMML()
    Dim o As OMath
    Dim i As Long
    Dim j As Long
    Dim IsNumeric As Boolean
    
    For Each o In ActiveDocument.OMaths
        For i = 1 To o.Range.OMaths.Count
            IsNumeric = True
            For j = 1 To Len(o.Range.OMaths(i).Range.Text)
                If Not IsNumeric(Mid(o.Range.OMaths(i).Range.Text, j, 1)) Then
                    IsNumeric = False
                    Exit For
                End If
            Next j
            
            If IsNumeric Then
                o.Range.OMaths(i).Range.Font.Italic = False
            Else
                o.Range.OMaths(i).Range.Font.Italic = True
            End If
        Next i
    Next
    
    ActiveDocument.ActiveWindow.View.ShowHiddenText = False
End Sub

这段代码会遍历所有的OMath对象，然后遍历每个OMath对象中的OMath对象，判断OMath对象的内容是否为数字。如果是数字，则该OMath对象文字不设置为斜体，否则文字设置为斜体。