Le Mercredi 26 Mars 2008 15:46, Bernard Siaud alias Troumad a écrit : > [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.Formul > >aDocument" 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. > > Je pense que si cette macro marche très bien (ce dont je ne doute pas), > il faut la conserver dans la FAQ ou dans le How-To de OOO ;)
Tout à fait, mais il faut tester d'abord. JBF -- Seuls des formats ouverts peuvent assurer la pérennité de vos documents. --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
