Word批量更改公式字体为Times New Roman

文章目录

在写毕业论文的时候，往往要求公式使用Times New Roman字体，但这种字体并不是专门为了公式设计的，所以并不支持在公式中直接调用。

单个公式修改

由于数学公式中有大量数学符号，所以Word为其提供了专门的公式字体Cambria Math，而且貌似默认也只有这一种公式字体。如果不想安装其他字体，而将公式更改为Times New Roman的话，可以选中公式后，进入【公式】选项卡，在转换栏，选中【ab文本】，然后就可以在【开始】选项卡中选择【Times New Roman】了，然后通过【Ctrl+I】将其改为斜体。

修改所有公式

当同时选中多个公式时，【ab文本】是灰色的，如果想在选中多个公式的情况下，修改公式字体，则必须下载公式专用字体。例如STIX、XITS，这两款开源字体均以Times New Roman为基础。

下载安装之后，就可以将Word公式的字体进行批量替换了。想要修改所有公式，首先需要选中所有公式，步骤为

1 【Ctrl+H】->查找选项卡->【更多>>>】->【格式】->【字体】

2 【查找字体】对话框中，在西文字体中填入【Cambria Math】->确定

3 回到查找对话框->【在以下项中查找】->【主文档】

在选中所有公式之后，可直接在【开始】选项卡中更改字体。

VBA批量修改

如果非Times New Roman不可，那么也可以通过VBA来实现。点击【Alt+F11】即可进入VBA编辑窗口，点击【插入】->【模块】，将下面的代码复制其中，然后运行。但是，当公式太多的情况下，还是慎用，有可能会卡死。

vbnet 复制代码

Sub 一键修改公式字体()
    ' 弹出对话框，显示公式数目
    MsgBox ActiveDocument.OMaths.Count

	Dim f As OMath
	Rem 循环遍历当前文档的公式
	For Each f In ActiveDocument.OMaths
	Rem 公式转为普通文本
	f.ConvertToNormalText
	ActiveDocument.Content.Font.NameAscii = "Times New Roman"
    f.Range.Font.Italic = True
	Next
End Sub