批量修改word中公式的字体

word中公式默认字体是cambria，一般我们需要使用time new romans。从网上似乎也没有找到能够安装的time new romans公式字体（注意time new romans文档字体是有的，但公式字体没有）。一种方法是将其转化成文本字体后，再修改成time new romans。但只能一个一个修改。这里看到一种可以批量修改公式字体的方法，即利用VBA小程序，进行批量修改，亲测效果很好。代码如下：
Sub 一键修改公式字体()
' 一键修改公式字体 宏
Dim 公式 As OMath
Rem 循环遍历当前文档的公式
For Each 公式 In ActiveDocument.OMaths
Rem 公式转为普通文本
公式.ConvertToNormalText
ActiveDocument.Content.Font.NameAscii = 'Times New Roman'
Next
End Sub