Размер формул по умолчанию в Open Office

Есть такая задача имеется документ с формулами набранными в ОО, нужно во всех формулах документа - поставить размер 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

Источник