Включете вкладку разработчика (Параметры Word → Основные → Показывать вкладку "Разработчик" на ленте )
Зайдите во вкладку "Разработчик", нажмите "Макрос" → "Создать" и вставьте в самый низ следующее:
Sub Formules()
On Error Resume Next
For Each InlineShape In Selection.InlineShapes
InlineShape.OLEFormat.ConvertTo ClassType:="Equation.3", _
DisplayAsIcon:=False
Next
End Sub
Сохраните.
При загрузке нового документа с формулами жмёте Ctrl+A, заходите во вкладку "Разработчик", нажимаете "Макрос", из списка выбираете "Формулы" и жмёте "выполнить".