vba批量设置word自带公式中，分式大小不一致问题

shengshengchina

用过word自带公式编辑器的都知道，一旦需要输入分式时，如果不选择专业模式，那么分式大小与其他式子大小是不统一的。如何批量修改这一问题？在网上寻找很久也没找到办法，只能自己摸索，最后问题解决，特写此贴以表纪念，希望能帮助更多的人！
举例：大家看下面自带公式输入数学分式1/k，其中第一个是没有调整好的默认字体，显然大小与其他式子不一，此时可以选中它，将它添加删除线，删除线在word菜单中单击即可添加，样式如下：


如果word中你输入每个分式时，都是这样添加删除线之后，那么就可以如下vba代码批量设置分式字体，使得与其他式子大小统一了（注意代码原理是对添加了删除线的式子进行识别，然后设置它的所需字体，懂的人自然懂）：
Sub 分式设置斜体15号()
Dim eqns As OMath
Dim objRange As Range
If Selection.Start = Selection.End Then
ActiveWindow.Selection.WholeStory
End If
For Each eqns In Selection.OMaths '选择公式对象
With eqns.Range
.Select
.Font.Italic = True
.Font.Size = 12
Set objRange = Selection.Range
For i = 1 ToobjRange.Characters.Count
'下面判断文字是否添加删除线
IfobjRange.Characters(i).Font.StrikeThrough = True Then
objRange.Characters(i).Select
Selection.Font.StrikeThrough = False
Selection.Font.Size = 15
Selection.Font.Color =wdColorBlack
'不要用下面这句，会失败
'objRange.Characters(i).Font.Size = 15
End If
Next i
End With
Next
End Sub