Есть такая задача имеется документ с формулами набранными в ОО, нужно во всех формулах документа - поставить размер 14...
Выполняем этот скрипт:
Sub Formulator
Dim Doc As Object
Dim objects As Object
Dim obj As Object
Dim embedded As Object
Dim formula As String
Dim newFontSize As Integer
newFontSize = InputBox("Новый размер формул:", "BaseFontHeight", 14)
Doc = StarDesktop.CurrentComponent
objects = Doc.getEmbeddedObjects()
For i = 0 to objects.count-1
obj = objects(i)
embedded = obj.getEmbeddedObject()
If embedded.supportsService("com.sun.star.formula.FormulaProperties") Then
embedded.BaseFontHeight = newFontSize
formula = embedded.Formula
embedded.Formula = ""
embedded.Formula = formula
End If
Next i
doc.reformat()
End Sub
Источник
Подписаться на:
Комментарии к сообщению (Atom)
Комментариев нет:
Отправить комментарий