Несколько недель назад я опубликовал на своем сайте макрос для форматирования елементов Equation в MS Word. Макрос вобщем то не замысловатый просто "дергает" каждый такой объект в результате чего он приобретает установленные параметры. С сайтом сейчас некоторые трудности поэтому буду публиковать все тут.

Макрос, который "дергает" Equation
Sub FixEquation()
    Dim activeSelection As selection
    Set activeSelection = ActiveWindow.selection
    Dim shape As InlineShape
    For Each shape In activeSelection.InlineShapes
        If shape.Type = wdInlineShapeEmbeddedOLEObject Then
            If shape.OLEFormat.ProgID = "Equation.3" Then
              shape.OLEFormat.DisplayAsIcon = False
            End If
        End If
    Next shape
End Sub

Макрос, который задает прозрачный фон для Equation
Sub NoFillEquation()
    Dim activeSelection As selection
    Set activeSelection = ActiveWindow.selection
    Dim shape As InlineShape
    For Each shape In activeSelection.InlineShapes
        If shape.Type = wdInlineShapeEmbeddedOLEObject Then
            If shape.OLEFormat.ProgID = "Equation.3" Then
                shape.Fill.Visible = msoFalse
            End If
        End If
    Next shape
End Sub

Скоро здесь появится макрос автоматизирующий обработку списка источников, он уже написан, сейчас отлаживаю его на своей диссертации :). Макрос будет сортировать источники по порядку следования ссылок в тексте и соответственно менять их номера.