Table_border.IsHorizontalLineValid = True _msgbox('The cursor is not inside a table.', 'Warning from AddBordersToAllCells()')īorder_distances.IsBottomDistanceValid = Trueīorder_distances.IsLeftDistanceValid = Trueīorder_distances.IsRightDistanceValid = Trueīorder_distances.IsTopDistanceValid = True View_cursor = model.getCurrentController()īorder_distances = TableBorderDistances() '''Add double-borders to all cells in the currently selected table''' Mb = msgbox.MsgBox(uno.getComponentContext()) ''' Displays a dialog box containing a message and returns a value.''' OTable = (myTable)įrom import BorderLine2įrom import TableBorderDistancesįrom .BorderLineStyle import DOUBLEįrom .HoriOrientation import FULLĭef _msgbox(prompt='', title='LibreOffice'): '''Add double-borders to specified cell in specified table''' Private Sub _AddBordersToCell(myTable As String, m圜ell As String) MsgBox 'The cursor is not inside a table.', _ ''' Add double-borders to all cells in the currently selected table'''ĭim oLine As New .BorderLine2ĭim oNoLine As New .BorderLine2ĭim oBorderDistances As New .TableBorderDistances '''Choose which of the two subroutines to call, by commenting out the one you don't want''' The parameter Fuse the adjacent line styles is defined by the property CollapsingBorders of the table.īorder line distances and widths are expressed in 1/100 mm.With the parameter false, the existing lines would be left in their current state. IsVerticalLineValid = false since the current table could have vertical lines defined and we want to suppress them. IsVerticalLineValid = true and VerticalLine = LibONoLine, a struct defined for applying 'empty' to a line. are defined as True) to obtain a an external perimeter and horizontal double lines. The objective is to replace the current borders (the parameters Is.We start by checking that the cursor is indeed inside a table.The macro below is executed on the currently selected table. This struct is manipulated via the same principle, using BottomDistance, LeftDistance, etc. The definition for spacing with the content is via the property .TableBorderDistances of the table. In writing, defining them as True to modify the line correspondingly, and False to ignore meaning it keeps its current value. Booleans ( IsLeftLineValid, IsRightLineValid, IsTopLineValid, etc.).Borders (upper, lower, left, right, horizontal, vertical) the borders are the structs .BorderLine2 which 'add' style elements for the struct .BorderLine.

The elements of this struct have two types: The table borders are accessible via the property .TableBorder. This macro manipulates the borders of either an entire table, or a single cell.

Openoffice insert horizontal line