Ouvrir une équation sélectionnée dans une macro Word

Bonjour

TU ne dis pas quelle est ta version.

Est-ce que la fonction de recherche ne suffirait pas ?

m@rina

Bonjour,

ll s'agit de Word 2007.

Rechercher, oui mais quoi ?

Et ensuite, comment ouvrir en VBA ?

Merci !

Bonjour 

Je n'ai plus la version 2007 qui a quand même beaucoup de différences avec les versions suivantes, et je ne suis pas certaine qu'on puisse chercher les équations qui étaient faites, si mes souvenirs sont bons, avec un ancien éditeur d'équations.

Actuellement, la recherche peut se faire via le volet de navigation. Pas sûr du tout que ce fut ainsi avec 2007.

Quant à la macro, je ne vois pas très bien ce que tu veux en faire. TU dis il faut que la macro ouvre puis ferme l'équation. Si tu écris une telle macro, il ne va rien se passer ! ça va durer trois secondes, le temps que la macro sélectionne, ouvre puis ferme chaque équation, mais rien d'autre. Quel est le but ?

Essaie déjà de lancer la macro suivante et dis nous si tu as un résultat. ça doit te donner le nombre d'équations de ton document. Si tu as une erreur, c'est que Word 2007 ne sait pas faire ça.

Sub eq()
Dim nb
nb = ActiveDocument.Range.OMaths.Count
MsgBox nb
End Sub

m@rina

Bonjour,

La macro renvoie le résultat 0.

Car j'utilisais alors l'éditeur d'équation de Microsoft, qui est une version allégée de MathType.

Dans ces anciens documents, les équations ne sont plus alignées avec le texte. Mais j'ai remarqué qu'en les ouvrant puis les refermant, elles se replaçaient correctement. D'où l'idée d'automatiser cette tâche. Car j'ai des centaines de pages avec des dizaines d'équations dans chaque page...

Merci pour ton aide.

Tu peux donner un petit extrait du document avec 2 ou 3 équations, qu'on regarde de plus près ?

m@rina

oui voilà.

http://paquito.amposta.free.fr/Etude.docx

Après chaque équation, le curseur est en position décalée vers le bas.

Après sélectionner tout>Police>Espacement>Position>Normale, elles sont toutes décalées vers le haut.

Et là, en les ouvrant et les refermant, elles reviennent à la position normale.

Merci...

Il y a peut-être moyen de faire quelque chose avec ça, mais je ne m'y connais pas assez en programmation :

Sub Sample()
    Dim eqns As OMath

    For Each eqns In ActiveDocument.OMaths
            '
            '~~> Rest of the code
            '
        End With
    Next
End Sub

Et si, au lieu de chercher spécifiquement une équation, je cherchais les objets OLE ?