Find and replace of text in math equations

Hi,

I'm looking to change all text [a-zA-Z] in equations to italics using VBA. I don't want to change anything outside of the equations in equation editor, however.

Here's my code:

Sub Chgeqts()
Dim MathObj As Object
Dim intPos As Integer
Dim rngObj As Range

    For Each MathObj In ActiveDocument.OMaths
        With MathObj
        Set rngObj = MathObj.Range
        .ConvertToNormalText
           rngObj.Font.Name = "Times New Roman"
                rngObj.Select
                With Selection.Find
                   .Text = "[a-zA-Z]"
                   .Replacement.Font.Italic = True
                   .Forward = True
                   .Wrap = wdFindContinue
                   .Format = True
                   .MatchWildcards = True
                   .Execute Replace:=wdReplaceAll
                End With
         End With
Next
End Sub

This, unfortunately, changes all text to italics, and I can't figure out why...
Thank you for your help!

Hi,

I ended up solving this by:

Public ft As String
Public MathObj As Object
Public rngObj As Range
Sub Chgeqts()

ft = "Aparajita"

    For Each MathObj In ActiveDocument.OMaths
        With MathObj
        Set rngObj = MathObj.Range
        .ConvertToNormalText
           rngObj.Font.Name = ft
           Selection.Find.Font.Name = ft
                With Selection.Find
                   .Text = "[a-zA-Z]"
                   .Replacement.Font.Italic = True
                   .Forward = True
                   .Wrap = wdFindContinue
                   .Format = True
                   .MatchWildcards = True
                   .Execute Replace:=wdReplaceAll
                End With
         End With
Next
Call Timesfont
    Set rngObj = Nothing
    ft = ""
End Sub
Function Timesfont()
    For Each MathObj In ActiveDocument.OMaths
            With MathObj
            Set rngObj = MathObj.Range
            rngObj.Font.Name = "Times New Roman"
            End With
        Next
End Function

This allows me to differentiate between numbers and letters...as I don't want numbers italicized.

If you can think of a better way, please let me know...this is a bit of a hack.