Word批量更改公式字体为Times New Roman
文章目录
- 单个公式修改
- 修改所有公式
- VBA批量修改
在写毕业论文的时候，往往要求公式使用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编辑窗口，点击【插入】->【模块】，将下面的代码复制其中，然后运行。但是，当公式太多的情况下，还是慎用，有可能会卡死。
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