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

2024-06-28 18:24| 来源: 网络整理| 查看: 265

批量修改该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 打开

在这里插入图片描述

【本文地址】

公司简介

联系我们