Date: prev next · Thread: first prev next last
2013 Archives by date, by thread · List index


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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.