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
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
