可通过MathType样式设置、Word内置公式选项、VBA宏或OMML XML编辑四种方法批量修改公式字体：一、MathType中设样式并“全部应用”；二、Word选项中改“公式选项”默认字体；三、VBA遍历OLE公式对象触发手动设字体；四、另存XML后查找替换字体声明。
如果您在Word文档中插入了多个公式，且需要统一修改所有公式的字体样式，但逐个双击编辑效率低下，则可以通过公式编辑器的样式设置实现批量调整。以下是具体操作步骤：
一、通过MathType批量修改公式字体
若文档中公式由MathType插入，可利用其“样式”功能全局更改字体。该方法适用于已安装MathType插件的Word环境，修改后所有关联公式将同步更新。
1、打开Word文档，点击「MathType」选项卡，选择「MathType偏好设置」→「样式」。
2、在弹出窗口中，依次点击「高级」→「定义」，进入字体定义界面。
3、在「普通文本」、「变量」、「函数」等类别下，分别将字体设为Times New Roman或所需字体，并取消勾选「使用默认字体」。
4、点击「确定」保存设置，再返回Word，选择「MathType」→「格式化公式」→「全部应用」。
二、使用Word内置公式编辑器（Unicode Math）重设默认字体
对于使用Word 2016及以上版本内置公式编辑器（即“插入→公式”）创建的公式，可通过修改“数学自动更正”和“公式选项”设定新插入及部分已有公式的默认显示字体。
1、点击「文件」→「选项」→「校对」→「自动更正选项」→「数学自动更正」标签页。
2、勾选「在公式中使用数学自动更正规则」，并确保「在Word中键入时运行」已启用。
3、切换至「高级」选项卡，向下滚动至「显示文档内容」区域，点击「公式选项…」按钮。
4、在「默认字体」下拉菜单中选择Cambria Math或其它支持数学符号的字体，点击「确定」。
三、VBA宏批量替换公式字体（适用于OLE对象型公式）
当公式以嵌入式OLE对象形式存在（双击显示“Microsoft Equation 3.0”或“MathType”字样），可借助VBA遍历所有公式对象并修改其内部字体。此方法不改变公式结构，仅调整渲染字体。
1、按Alt+F11打开VBA编辑器，插入新模块。
2、粘贴以下代码：
Sub ChangeEquationFont()
Dim eq As OLEObject
For Each eq In ActiveDocument.InlineShapes
If eq.Type = wdInlineShapeEmbeddedOLEObject Then
If InStr(1, eq.OLEFormat.ProgID, "Equation", vbTextCompare) > 0 Or InStr(1, eq.OLEFormat.ProgID, "MathType", vbTextCompare) > 0 Then
eq.OLEFormat.DoVerb (wdOLEVerbPrimary)
SendKeys "%{F11}", True
Application.Wait (Now + TimeValue("0:00:01"))
End If
Next eq
End Sub
3、返回Word，按Alt+F8运行宏，宏将激活每个公式对象并触发其内部字体设置界面，需配合手动在弹出对话框中将字体设为Cambria Math后确认。
四、导出为OMML再批量查找替换（纯文本级修改）
Word公式底层采用Office Math Markup Language（OMML）存储，可通过另存为过滤XML方式提取公式代码，在外部编辑器中批量替换字体声明字段，再重新导入。该方法绕过图形界面，直接作用于公式源码。
1、将Word文档另存为「Word XML文档（*.xml）」格式。
2、用记事本或VS Code打开该XML文件，搜索字符串ascii="Symbol"等字体标识段落。
3、将所有ascii="Times New Roman"替换为ascii="Cambria Math"，同时确保fareast="Cambria Math"与other="Cambria Math"保持一致。
4、保存XML文件，关闭Word后重新以「文件→打开」方式载入该XML，公式字体即按新声明渲染。
