Re: Re: Re: Re: [fr-users] Macro writer

Bon, je vais me résigner......

Encore une fois mille merci

Claude

-------- Message original --------
Sujet : [INTERNET] Re: Re: Re: [fr-users] Macro writer
De : pierre-yves samyn <pierre-yves.samyn@laposte.net>
Pour : users@fr.libreoffice.org
Date : 26/03/2014 16:08
> Suite...
>
>
> claude wrote
>   
> > Merci mais j'avoue que j'aimerai ne pas avoir à mélanger le basic et le 
> > dispatcher
> >     
>
> Ce sera pourtant la solution AMA car, si l'API fournit une méthode
> ConvertToTable
> <http://api.libreoffice.org/docs/idl/ref/interfacecom_1_1sun_1_1star_1_1text_1_1XTextConvert.html#acd6a573560de9f3ca86f05aa85e50086>  
> Elle ne semble pas fournir l'inverse (du moins je ne connais pas...).
>
> Donc, sauf si quelqu'un a une autre idée, il faudrait par exemple manipuler
> les données (lignes par lignes) pour créer des paragraphes avec le contenu
> puis supprimer le tableau. Sachant qu'une cellule peut contenir plusieurs
> paragraphes je te laisse imaginer les difficultés... (avant de renoncer à 
> poursuivre dans cette voie...?).
>
>
>
> claude wrote
>   
> > Je ne sais donc pas comment passer le nom du tableau que je récupère en 
> > balayant les objets TextTables des documents que je dois traiter.
> >     
>
> Tu peux utiliser la méthode Select du CurrentController en lui passant
> un curseur créé sur le tableau. Dans l'exemple ci-dessous je convertis
> un tableau nommé "Tableau2".
>
> ConvertirTableau.odt
> <http://nabble.documentfoundation.org/file/n4103057/ConvertirTableau.odt>  
>
> Cordialement
> Pierre-Yves (ci-dessous le code)
>
> sub PysConvertTableau
>
> dim oDoc as object, oTable as object
> dim oTableCursor as object
> dim document   as object
> dim dispatcher as object
> dim args1(0) as new com.sun.star.beans.PropertyValue
>
> oDoc = thisComponent
> oTable = oDoc.TextTables.getByName("Tableau2")
> oTableCursor = oTable.createCursorByCellName("A1")
> oDoc.CurrentController.select(oTableCursor)
>
> document   = ThisComponent.CurrentController.Frame
> dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
>
> args1(0).Name = "Delimiter"
> args1(0).Value = CHR$(9)
>
> dispatcher.executeDispatch(document, ".uno:ConvertTableToText", "", 0,
> args1())
>
>
> end sub
>
>
>
> --
> View this message in context: 
> http://nabble.documentfoundation.org/Macro-writer-tp4103019p4103057.html
> Sent from the Users mailing list archive at Nabble.com.
>
>   



--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés