[Libreoffice-bugs] [Bug 126058] No inner borders after replaying a recorded macro

[bugzilla-daemon]

https://bugs.documentfoundation.org/show_bug.cgi?id=126058

--- Comment #5 from Igor <eei...@inbox.ru> ---
No, it doesn't work. Can't set the vertical inner border double line. 2-columns
range is previously selected.

Sub SetBorderInnerVertical()
        Dim document As Object
        Dim dispatcher As Object

        document = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

        Dim args(4) as new com.sun.star.beans.PropertyValue
        args(0).Name = "BorderInner.Horizontal"
        args(0).Value = Array(0, 0, 0, 0, 0, 0)
        args(1).Name = "BorderInner.Vertical"
        args(1).Value = Array(0, 18, 18, 4, 15, 2)
        args(2).Name = "BorderInner.Flags"
        args(2).Value = 2
        args(3).Name = "BorderInner.ValidFlags"
        args(3).Value = 127
        args(4).Name = "BorderInner.DefaultDistance"
        args(4).Value = 0

        dispatcher.executeDispatch(document, ".uno:BorderInner", "", 0, args())
End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.