Translations:Faq/Math/101/3/fr

From The Document Foundation Wiki
Jump to: navigation, search
 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