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

chendeyan126

通过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 InActiveDocument.InlineShapes

        With aShape

            .LockAspectRatio = msoTrue '锁定纵横比

            .ScaleHeight = 95 '缩放比例，根据文本大小的改变，确定缩放比例

        End With

    Next

    Application.ScreenUpdating = True

End Sub