如何让下列VBA替换代码仅对OMML公式有效？

ssq1109

在MS Office 2007及以上版本中，有Word自带的OMML公式，输入公式时，一般的英文字母是斜体，但函数名（如sin、log等）按缺省设置会自动变成正体。我想用VBA代码只将OMML公式中正体英文字母（即非加粗&非倾斜）加标记，即：<*>，但如果OMML公式之外的英文字母也设成了缺省公式字体Cambria Math正体字，则也会加标记<*>，而我不想非OMML公式的字母也这样加标记，怎样才能达到此目的呢？


Sub OMML_Font()
'
  '将OMML公式中非加粗&非倾斜英文字母加<*>
    With ActiveDocument.Content.Find
        .ClearFormatting
        .MatchWildcards = True
        .Font.Name = "Cambria Math"    '缺省公式字体
        .Font.Bold = False
        .Font.Italic = False
        .Execute FindText:="[A-Za-z]", _
            replacewith:="<^&>", Replace:=wdReplaceAll
    End With
End Sub

batmanbbs