Re: [fr-users] Re: Alignement à droite

Bonjour Pierre-Yves,

Merci de ces compléments.
Comme d'hab j'ai manqué de précisions ce qui a entraîné une procédure 
bien trop complexe.

En fait ma macro n'agit que sur un tableau à 1 seule colonne.
La boucle n'est peut-être pas nécessaire.

---
Cordialement
Mr Sandy-Pascal Andriant

Le 17/03/2013 18:02, pierre-yves samyn a écrit :
> Bonjour
>
>
> conil26 wrote
> > Quelles lignes de code dois-je ajouter à la macro ci-dessous pour avoir
> > un alignement du texte à droite aux lignes 3 et 5 de mon tableau ,
> Ajouter les lignes de déclaration (au début de la procédure) :
>
> dim PysCell as object
> dim PysNbCol as integer
>
> Et remplacer les 3 dernières lignes:
>
> PysTable.HoriOrient = com.sun.star.text.HoriOrientation.FULL
> end if
> end sub
>
> Par :
>
>          PysTable.HoriOrient = com.sun.star.text.HoriOrientation.FULL
>
>         for PysNbCol = 0 to PysTable.columns.count - 1
>                 PysCell = PysTable.getCellByPosition(PysNbCol, 2)
>                 PysAlig(PysCell)
>                 PysCell = PysTable.getCellByPosition(PysNbCol, 4)
>                 PysAlig(PysCell)
>         next PysNbCol
> end if
>
> end sub
>
> sub PysAlig(PysCell as object)
>
> dim PysEnum as object, PysPara as object
>
> PysEnum = PysCell.createEnumeration
>
> do while PysEnum.hasMoreElements
>         PysPara = PysEnum.nextElement
>         PysPara.ParaAdjust = com.sun.star.style.ParagraphAdjust.RIGHT
> loop
>
> end sub
>
>
> Explications:
> - On fait une "boucle" sur toutes les colonnes de la table (on suppose ici
> qu'il n'y a pas de cellules fusionnées).
> - On accède à chaque cellule des lignes 2 et 4 (la numérotation commençant
> à zéro on traite les lignes 3 et 5)
> - Pour chaque cellule on appelle la procédure PysAlig
> - Cette procédure crée l'énumération de tous les paragraphes
> contenus dans la cellule
> - Pour chaque paragraphe on définit l'alignement
>
> Cordialement
> Pierre-Yves
>
>
>
>
>
> --
> View this message in context: 
> http://nabble.documentfoundation.org/Alignement-a-droite-tp4044325p4044331.html
> Sent from the Users mailing list archive at Nabble.com.


--
Envoyez un mail à users+help@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