Word Editing

Rescale Mathtype objects to 100%

Sometimes, the sizes of the Mathtype objects will change randomly. It is very troublesome to adjust each object back to 100%. The following is the VBA for rescaling all Mathtype objects back to 100%.

(Caution: The macro was built and tested many times by myself. However, I cannot assure it works well in all situations. Please save a copy before running this macro.)

Sub EqMathtype_100()'' EqMathtype_100 Macro''Dim i As IntegerDim total As Integer
total = ActiveDocument.InlineShapes.Counti = 0 For Each s In ActiveDocument.InlineShapes i = i + 1 On Error Resume Next Application.StatusBar = "Progress: " & i & " of " & total If s.Type = msoAutoShape Then If s.OLEFormat.ClassType = "Equation.DSMT4" Then With s .ScaleHeight = 100 .ScaleWidth = 100 End With End If End IfNextEnd Sub

To use this macro, you need

Press Alt+F8 to open "Macros"
Type in a new name and create a new macro
Copy the code and paste in the coding area
Save and exit
Find the name of your new macro and press Run

When you need to use this macro next time, just press Alt+F8, find the name of this macro and run it. (Do not need to repeat Step 1 to 4)

By the way, if you are still using Equation 3.0, just replace "Equation.DSMT4" by "Equation.3".

Report abuse