estoy intentando poner y quitar bordes y rellenos en líneas y párrafos en writer.
Por el momento cuento con el aporte ofrecido en:
https://forum.openoffice.org/en/forum/v ... 20&t=73137
del cual extraje estas líneas para buscar solución a mi necesidad actual
Intento adivinar como trabajar con el color de fondo pero no me funciona.
Código: Seleccionar todo
Sub draw_char_border
Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
Dim visibleCursor As Object, thisText As Object, myCursor As Object
visibleCursor = ThisComponent.CurrentController.ViewCursor
thisText = visibleCursor.Text
myCursor = thisText.createTextCursorByRange(visibleCursor.Start)
MSGBOX myCursor.TopBorder.LineStyle '<-- bordes bien
' intentando encontrar el color de fondo
' MRI myCursor.BackColor
' MRI myCursor.BackGroundColor
' MRI myCursor.CharBackColor
'MRI myCursor.CharBackGroundColor
MRI myCursor.Color