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.
Bonjour,
Par curiosité, as-tu aussi testé la solution proposée ici ?
http://www.dmaths.com/forum/viewtopic.php?t=439&sid=c6a06652b5ae119acaad74789fdfd331
J.M
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
