Translations:Faq/Math/101/3/fr

    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