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

文章目录

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

单个公式修改

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

修改所有公式

当同时选中多个公式时,【ab文本】是灰色的,如果想在选中多个公式的情况下,修改公式字体,则必须下载公式专用字体。例如STIXXITS,这两款开源字体均以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
相关推荐
ChristianLuu1 小时前
Word格式修改
word
赵谨言5 小时前
基于 Java 大数据的旅游推荐系统的设计与实现
java·经验分享·毕业设计
废材是怎么养成的12 小时前
pdf转word
java·pdf·word
我想学LINUX15 小时前
【STM32项目】智能物联网驱动的生物样本培育与管理辅助系统(完整工程资料源码)
stm32·单片机·嵌入式硬件·物联网·毕业设计·课程设计
工业互联网专业16 小时前
Python大数据可视化:基于大数据技术的共享单车数据分析与辅助管理系统_flask+hadoop+spider
大数据·hadoop·python·flask·毕业设计·源码·spider
平凡204617 小时前
平凡的2024回顾
word
V+zmm1013419 小时前
运动健康小程序SpringBoot+论文源码调试讲解
java·微信小程序·小程序·毕业设计·springboot
humors2211 天前
java实现excel导入参考资料合集
java·前端·后端·wps·导出·导入·office
落霞与孤鹭齐飞。。1 天前
家教系统|Java|SSM|VUE| 前后端分离
java·mysql·毕业设计·课程设计
大霸王龙2 天前
Python中PDF转Word的技术
python·pdf·word