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
相关推荐
点灯小铭1 天前
基于单片机的罐体压力控制器设计与实现
数据库·单片机·mongodb·毕业设计·课程设计
码界筑梦坊1 天前
206-基于深度学习的胸部CT肺癌诊断项目的设计与实现
人工智能·python·深度学习·flask·毕业设计
计算机毕业设计小帅1 天前
【2026计算机毕业设计】基于jsp的毕业论文管理系统
java·开发语言·毕业设计·课程设计
点灯小铭2 天前
基于51单片机手机无线蓝牙APP控制风扇调速设计
单片机·mongodb·智能手机·毕业设计·51单片机·课程设计
沐欣工作室_lvyiyi2 天前
采用AIOT技术的防疫物资监控系统的设计与开发(论文+源码)
stm32·单片机·嵌入式硬件·毕业设计·防疫物资
点灯小铭2 天前
基于stm32的物联网OneNet火灾报警系统
stm32·单片机·嵌入式硬件·物联网·毕业设计·课程设计
云山工作室2 天前
基于单片机的三相逆变电源设计
单片机·嵌入式硬件·毕业设计·毕设
小咕聊编程2 天前
【含文档+PPT+源码】基于微信小程序的农产品自主供销商城系统
微信小程序·小程序·毕业设计·农产品
羊羊小栈2 天前
基于知识图谱(Neo4j)和大语言模型(LLM)的图检索增强(GraphRAG)的智能音乐推荐系统(vue+flask+AI算法)
人工智能·毕业设计·neo4j·大作业
IT毕设梦工厂3 天前
大数据毕业设计选题推荐-基于大数据的人口普查收入数据分析与可视化系统-Hadoop-Spark-数据可视化-BigData
大数据·hadoop·数据分析·spark·毕业设计·源码·bigdata