批量修改该word 自带公式为字体, 斜体

五行缺斤肉

已于 2022-11-26 19:58:39 修改

阅读量4k

点赞数 8

文章标签：经验分享

于 2022-11-26 19:47:14 首次发布

本文链接：https://blog.csdn.net/muyewt/article/details/128055931

版权

本文介绍了一种利用VBA宏在Word中批量将公式从默认的 Cambria 字体转换为所需字体Timenewromans的方法，同时提供了批量修改公式为斜体的快捷方式。通过Alt+F11打开VBA编辑器，执行提供的宏代码来快速完成批量操作。

摘要由CSDN通过智能技术生成

批量修改该word 自带公式为字体

链接: link
word中公式默认字体是cambria，一般我们需要使用time new romans。从网上似乎也没有找到能够安装的time new romans公式字体（注意time new romans文档字体是有的，但公式字体没有）。一种方法是将其转化成文本字体后，再修改成time new romans。但只能一个一个修改。这里看到一种可以批量修改公式字体的方法，即利用VBA小程序，进行批量修改，亲测效果很好。代码如下：
下面展示一些 内联代码片。

Sub 一键修改公式字体()
	' 一键修改公式字体 宏
	Dim 公式 As OMath
	Rem 循环遍历当前文档的公式
	For Each 公式 In ActiveDocument.OMaths
	Rem 公式转为普通文本
	公式.ConvertToNormalText
	ActiveDocument.Content.Font.NameAscii = "Times New Roman"
	Next
End Sub

批量修改公式为斜体

执行如下VBA即可：

Sub ItalicOMML()
     Dim o As OMath
     For Each o In ActiveDocument.OMaths
         o.Range.Font.Italic = True
     Next
     ActiveDocument.ActiveWindow.View.ShowHiddenText = False
 End Sub

Alt+F11 打开

在这里插入图片描述