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 天前
VBA实现word文档批量转PDF文件
pdf·c#·word
点灯小铭1 天前
基于单片机的两路PWM信号输出及频率占空比相位差调节系统
单片机·嵌入式硬件·毕业设计·课程设计·期末大作业
兆龙电子单片机设计2 天前
【STM32项目开源】STM32单片机多功能饮水机系统
stm32·单片机·物联网·开源·毕业设计
月阳羊2 天前
【论文学习与撰写】Mathtype的安装与word插件安装
学习·word
清风6666662 天前
基于单片机的档案库房漏水检测报警labview上位机系统设计
数据库·单片机·毕业设计·课程设计·labview·期末大作业
清风6666662 天前
基于单片机的鱼缸监测与远程管理系统设计
单片机·毕业设计·课程设计·1024程序员节·期末大作业
沐欣工作室_lvyiyi2 天前
基于Matlab的简易振动信号分析系统(论文+仿真)
开发语言·matlab·毕业设计·振动信号分析
点灯小铭3 天前
基于单片机的楼道声光人体红外智能控制灯设计
单片机·嵌入式硬件·毕业设计·课程设计·期末大作业
开开心心就好3 天前
Word转PDF工具,免费生成图片型文档
前端·网络·笔记·pdf·word·powerpoint·excel