Word+MathType ФОРМУЛЫ
имхо никак.
Sub Макрос1
'
' Макрос1 Макрос
'
For i = 1 To Selection.InlineShapes.Count
Selection.InlineShapes(i).Height = Selection.InlineShapes(i).Height * 2
Selection.InlineShapes(i).Width = Selection.InlineShapes(i).Width * 2
Next i
End Sub
Работает для выделенных частей текста. Все что видит - увеличивает в два раза. Я не в курсах, что такое шейпс, поэтому, может быть и рисунки увеличит.
если все формулы с разными стилями
такой макрос не прокатит,1. ты задал вопрос
если все формулы с разными стилями
2. я ответил в меру своего понимания на него
3. тебя он не удовлетворил, но ты не написал почему
4. что дальше?
Предлагается подумать самостоятельно, как решить задачу, учитывая множество всяких не обозначенных в твоем вопросе стилей.
![](/images/graemlins/crazy.gif)
Потом заходиш в ворд открываеш нужный файл - делаеш выделить все, потом в верхнем меню MathType выбираеш Format Equation - Equation preference file (выбираеш файл с настройками, что ты сохранил до этого и ставиш галочку Whole document. Жмеш Ок и вуаля.
Оставить комментарий
tel7432545
КАК сразу у всех формул в документе поменять стиль (размер, например)?