Тема: Макрос. Доступ к объектам внутри надписей и таблиц.
Коллеги!
Имею большой документ с формулами, созданными в Equation 3.0. Со временем самопроизвольно изменяются размеры этих объектов-формул.
Создал (не самостоятельно) макрос для коррекции размеров формул в основном тексте:
Dim Formul As InlineShape
For Each Formul In ActiveDocument.InlineShapes
If Formul.OLEFormat.ClassType = "Equation.3" Then
Formul.ScaleHeight = 100
Formul.ScaleWidth = 100
End If
Next Formul
Все работает! Однако осталась проблема с тем, как бы аналогично скорректировать размеры формул, которые находятся в тексте внутри надписей и таблиц.
Не подскажите, как это сделать. Заранее благодарен.