Bernard Marcelly a écrit :
Le 2005-07-02 23:10, Christophe Devalland a écrit :
Bonjour,
J'ai besoin d'aide pour le problème suivant lié au module writer:
dans une procédure, je dispose d'une selection (définie par un
curseur) qui contient des caractères ascii mais aussi parfois un ou
plusieurs objets du module math, positionnés n'importe où dans cette
sélection.
Je souhaite parcourir les éléments de cette sélection un à un
(caractères ou formule mathématique) et pouvoir les reconnaître afin
d'en extraire la formule si c'est un objet math
Bonjour,
En s'aidant du document anglais d'Andrew Pitonyak chapitre 7.15 et du
livre Programmation OpenOffice.org page 446-447 on peut déterminer si un
objet Formule est inséré à la position du curseur:
Dim liste1 as object, info1 as object, info2 as object
liste1 =
monCurseur.createContentEnumeration("com.sun.star.text.TextContent")
Do While liste1.hasMoreElements
info1 = liste1.nextElement
if info1.supportsService("com.sun.star.text.TextEmbeddedObject") then
info2 = info1.embeddedObject
if
info2.supportsService("com.sun.star.formula.FormulaProperties") then
MsgBox("info2 est une formule")
end if
end if
Loop
Le codage fonctionne pour un curseur ponctuel ou couvrant une zone.
Bernard
Bonjour,
merci beaucoup pour ces informations, cela fonctionne parfaitement et,
du coup, règle mon problème.
Je ferai une annonce sur la liste lorsque je mettrai mon travail en ligne.
à bientôt
--
Christophe Devalland
cdeval.free.fr
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]