word公式编辑器_通过VBA批量更改word文档公式大小

3eb9d06f798183dc3caf68f85ca3c6e3.png

通过VBA批量更改word文档公式大小

在word中输入公式有几种方法:

1. 使用word自带的公式3.0编辑器输入,这是word2003以前的版本输入公式的主要方法,当然更高的版本仍可以使用公式3.0。它是与mathtype合作开发的。插入的公式为嵌入式图片,也可以设置为环绕方式为四周型等,但一般不这么做。

2. 使用word自带的公式编辑器输入。这是word2007版本以后出现的新的公式编辑器,插入的公式并不是以图片的形式存在,完全地融入到文本流中,改变字体字号非常方便,就你更改文本的字体字号一样。但是它的行内公式并不太符合专业公式的要求,如一行文本中的一个复杂的分式,分子分母会被缩得很小,不好看。

3. 使用第三方编辑器输入,最常用的是mathtype编辑器。它在word插入的公式也是嵌入式图片。

Mathtype公式是比较专业、方便的。所以三种方式中,mathtype更为常用。

因为排版的需要,有时候需要批量等更改mathtype公式的大小。例如,原来A4的版本要改为A5的,文本字号由原来的10.5pt改为9pt。

Mathtype编辑器提供了批量更改公式格式的方法,批量更改公式的大小当然也包括其中。但有时候由于不明原因,Mathtype编辑器的批量更改并不总能起作用。这时,可以尝试缩放图片的方法来更改公式的大小,此方法仅适用于更改大小,对公式的其他格式不起作用。

前面提到mathtype公式是以嵌入式图片的形式插入到word中的,它其实OLE对象,可以对其进行缩放。这是本方法的基础。

首先需要根据文本大小的改变,确定一个缩放比例,接下来使用vba代码就可以批量更改嵌入式图片的大小,即公式的大小。代码如下:

Sub 批量更改公式大小()
    Dim aShape As InlineShape
    Application.ScreenUpdating = False
    For Each aShape In ActiveDocument.InlineShapes
        With aShape
            .LockAspectRatio = msoTrue '锁定纵横比
            .ScaleHeight = 100 '缩放比例,根据文本大小的改变,确定缩放比例
            .ScaleWidth = 100 '缩放比例,根据文本大小的改变,确定缩放比例
        End With
    Next
    Application.ScreenUpdating = True
End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值