通過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 縮放比例，根據文本大小的改變，確定縮放比例
End With
Next
Application.ScreenUpdating = True
End Sub

推薦閱讀：

相關文章