Re: [users-fr] [Writer] Problème avec les formules Maths ?

Wed, 26 Mar 2008 12:53:08 -0700 

[EMAIL PROTECTED] a écrit :

Le Tuesday 25 March 2008 01:52:22 Loïc Evanno, vous avez écrit :

Jean-Baptiste Faure a écrit :

Le Lundi 24 Mars 2008 21:48, Loïc Evanno a écrit :

Bonsoir,


Bonjour,


  

Pour moi aussi la réédition remet tout d'aplomb, et c'est ce que j'ai
fait, mais vu le nombre de formules je ne veux pas refaire ça pour tous
mes fichiers (j'en ai plusieurs qui souffrent du même problème).
Il y a bien quelque chose qui cloche car il faut réengistrer le document
après l'édition de la formule, alors que rien n'a été modifié.


    



J'ai écrit une petite macro qui parcours toutes formules et les réenregistre. 
Ca évite de les éditer toutes à la main.

Je te donne le code ci-dessous:

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.getImplementationName="com.sun.star.comp.math.FormulaDocument" 
then

                                Objet.embeddedObject.setmodified(true)
                        endif
                endif
        next i
        erreur:
        resume next
end sub


Il faut juste être patient. Chez moi, le programme a modifié toutes les 
formules en à peu près 1mn40. On peut améliorer en parcourant tous les 
documents d'un répertoire, s'il y a beaucoup de fichiers a modifier.
Pour l'écriture de la macro, je me suis inspiré d'une macro de Laurent Godard 
qui permet de modifier les tailles des formules.


J'espère que ça va aider à résoudre le problème, à défaut de le comprendre...

Fabien.
--

Un petit programme pratique pour gérer vos exercices si vous êtes enseignant: 
www.gestionnaire-exos.fr



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]




  

Merci, cela fonctionne bien (sur un fichier contenant 250 formules 
environ). Par contre il a fallu que je modifie légèrement le code (des 
espaces à enlever, c'est peut-être un problème de copier-coller).


--

Get Firefox! 
<http://www.spreadfirefox.com/?q=affiliates&id=41828&t=70> 	Get 
Thunderbird! 
<http://www.spreadfirefox.com/?q=affiliates&id=41828&t=182> 	Utilisez 
OpenOffice.org <http://www.openoffice.org/>





---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]























					Répondre à