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
相关推荐
kevin 17 分钟前
AI文档比对和Word的“比较”功能有什么区别?
人工智能·word
winfredzhang10 小时前
Windows字体simsum.ttf的安装与Python路径设置指南
windows·字体·simsun·fontforge
揭老师高效办公11 小时前
用键盘快速移动Word和WPS文字中的选中段落
word·wps文字
北极糊的狐16 小时前
Word图片被识别成目录
word
飞翔的佩奇19 小时前
基于SpringBoot+MyBatis+MySQL+VUE实现的经方药食两用服务平台管理系统(附源码+数据库+毕业论文+部署教程+配套软件)
数据库·vue.js·spring boot·mysql·毕业设计·mybatis·经方药食两用平台
_oP_i1 天前
word中rtf格式介绍
word
2301_787725651 天前
Word 转 HTML API 接口
word
E_ICEBLUE1 天前
Python 操作 Word 文档:主流库对比与选择指南
开发语言·经验分享·python·word·办公自动化
揭老师高效办公2 天前
在Word和WPS文字中把全角数字全部改为半角
word·wps文字
程序猿小D2 天前
Java项目:基于SSM框架实现的校园活动资讯网管理系统【ssm+B/S架构+源码+数据库+毕业论文+远程部署】
java·数据库·mysql·spring·毕业设计·ssm框架·校园活动