Dmitry 的个人资料Дмитрий Пелешенко照片日志列表 工具 帮助

日志


3月22日

Макросы MS Word

Несколько недель назад я опубликовал на своем сайте макрос для форматирования елементов 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

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