Иван спрашивает:

Поскольку формулы редактора Word представляют собой графические объекты, то предлагаемый ниже макрос очень похож на макрос из заметки Макрос массового уменьшения размеров всех рисунков с небольшим отличием:

Sub changeFormulas()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
  With iShape
     .ScaleHeight = 150
     .ScaleWidth = 150
  End With
Next iShape
End Sub

]]> ]]>