From The Document Foundation Wiki
Sub ParcoursFormules
dim i as integer
dim LesObjets as Object
dim Objet as Object
LesObjets=ThisComponent.getEmbeddedObjects
On error goto erreur
for i=0 to LesObjets.count-1
Objet=LesObjets(i)
if Objet.getImplementationName="SwXTextEmbeddedObject" then
if Objet.embeddedObject.component.getImplementationName="com.sun.star.comp.Math.FormulaDocument" then
Objet.embeddedObject.setmodified(true)
Objet.embeddedObject.update
EndIf
endif
next i
erreur:
resume next
end sub