Translations:Faq/Math/101/3/en

From The Document Foundation Wiki
Jump to: navigation, search
 Sub ReviseFormules
     dim i as integer
     dim TheObjets as Object
     dim Objet as Object
     TheObjets=ThisComponent.getEmbeddedObjects
     On error goto erreur
     for i=0 to TheObjets.count-1
         Objet=TheObjets(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