Macros d'insertion de formule de math

fr-users
#1

Bonjour,
J'essaie d'insérer une fraction aléatoire par macro.
Pour l'instant, j'obtiens ça :

Ma macro a cette forme :

             den = Mid(curseur2.string,1,len(curseur2.string)-1)
             msgbox("numerateur:"+num+" - dénominateur"+den)
             fract="{" & num & "}over[" & den & "}"
Formule=ThisComponent.CreateInstance("com.sun.star.text.TextEmbeddedObject")
             Formule.CLSID="078B7ABA-54FC-457F-8551-6147e776a997"
Formule.AnchorType=com.sun.star.text.TextContentAnchorType.AS_CHARACTER
             ThisComponent.getCurrentController().select(curseur2)
             curseur2.Text.insertTextContent(curseur2, Formule, false)
             Formule.EmbeddedObject.formula=fract
             'msgbox(fract)
_* 'Formule.EmbeddedObject.formula=fract*_
' insererEquation(fract)

Je sais que Dmath permet d'insérer une formule, et qu'il me suffirait de regarder dans le code, mais c'est un vrai labyrinthe, car cette extension est arrivée à une telle maturité qu'il devient complexe pour un débutant comme moi de s'y repérer.

Quelqu'un peut-il m'aider ?
Et sinon, où puis-je avoir une chance de trouver pourquoi j'ai ce message d'erreur ?
Cordialement,
O.J.

#2

Bonjour,
J'essaie d'insérer une fraction aléatoire par macro.
Pour l'instant, j'obtiens ça :

Erreur d'exécution BASIC.
Propriété ou méthode non trouvée : formula.

#3

Bonjour

Olivier Jaccomard wrote

J'essaie d'insérer une fraction aléatoire par macro...

Essaie quelque chose comme :

oViewCursor = ThisComponent.getCurrentController().getViewCursor()
oTextCursor=oViewCursor.Text.createTextCursorByRange(oViewCursor)
obj=ThisComponent.CreateInstance("com.sun.star.text.TextEmbeddedObject")
obj.CLSID="078B7ABA-54FC-457F-8551-6147e776a997"
obj.AnchorType=com.sun.star.text.TextContentAnchorType.AS_CHARACTER
oTextCursor.Text.insertTextContent(oTextCursor, obj, true)
obj.model.formula="a over b"

Cordialement
Pierre-Yves