[fr-users] Re: macro : bordure de tableau dans Writer

Bonjour

Le fil suivant contient des exemples :
http://nabble.documentfoundation.org/Writer-Macro-formatage-de-tableau-td3266372i20.html#a3278699

Ci-dessous adapté pour réaliser une bordure double extérieure 
(et enlever les bordures internes). Le programme travaille sur le
tableau "courant" (le curseur doit être dans un tableau).

Nota: passer un fort zoom pour visualiser la bordure double...

Cordialement
Pierre-Yves

option explicit
sub PysTableFull

dim PysCursor as object, PysTable as object, PysTableBorder as object
dim PysLine as new com.sun.star.table.BorderLine
dim PysNoLine as new com.sun.star.table.BorderLine

PysCursor = thisComponent.currentController.viewCursor

if (isEmpty(PysCursor.textTable)) then
        msgbox "Le curseur n'est pas dans un tableau", 64, "Mise en forme du
tableau"
else
        with PysLine
                .Color = 0
                .InnerLineWidth = 12
                .LineDistance = 12
                .OuterLineWidth = 12
        end with
        with PysNoLine
                .Color = 0
                .InnerLineWidth = 0
                .LineDistance = 0
                .OuterLineWidth = 0
        end with

        PysTable = PysCursor.TextTable
        PysTableBorder = PysTable.TableBorder
        PysTableBorder.IsLeftLineValid = true
        PysTableBorder.IsRightLineValid = true
        PysTableBorder.IsTopLineValid = true
        PysTableBorder.IsBottomLineValid = true
        PysTableBorder.IsHorizontalLineValid = true
        PysTableBorder.IsVerticalLineValid = true
        PysTableBorder.LeftLine = PysLine
        PysTableBorder.RightLine = PysLine
        PysTableBorder.TopLine = PysLine
        PysTableBorder.BottomLine = PysLine 
        PysTableBorder.HorizontalLine = PysNoLine 
        PysTableBorder.VerticalLine = PysNoLine 
        PysTable.TableBorder = PysTableBorder 
        PysTable.HoriOrient = com.sun.star.text.HoriOrientation.FULL 
end if

end sub



--
View this message in context: 
http://nabble.documentfoundation.org/macro-bordure-de-tableau-dans-Writer-tp4009763p4009904.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