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 à [email protected] 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
