Created attachment 51198 [details]
sample file with macro recorded where issue occurs

Hi

Recording macro in LibreOffice 3.4.3 where user set cell border line does not work.

The same operation recorded in OpenOffice 3.2 works correctly.

The issue is that in 3.4.x (and master 3.5) uno:SetBorderStyle uses border style with an array of 5 parameters, while in version 3.2 it has 4 parameters.

Eliminating the 5th parameter in the border line struct recorded in 3.4 or 3.5 makes uno:SetBorderStyle work correctly.

Summary: uno:SetBordeStyle does not work with the recent BordeStyle Struct (best guess).

The attached file has the recorded macro as example. Sheet 1 is the desired results. Sheet 2 is the actual result (no borderline drawn).

Fragment of code indicating the issue:

Macro OpenOffice 3.2

dim args14(12) as new com.sun.star.beans.PropertyValue
args14(0).Name = "OuterBorder.LeftBorder"
args14(0).Value = Array(0,0,2,0)                      <- issue!
args14(1).Name = "OuterBorder.LeftDistance"
args14(1).Value = 0
args14(2).Name = "OuterBorder.RightBorder"
args14(2).Value = Array(0,0,2,0)                      <- issue !
args14(3).Name = "OuterBorder.RightDistance"
args14(3).Value = 0
args14(4).Name = "OuterBorder.TopBorder"
args14(4).Value = Array(0,0,2,0)
args14(5).Name = "OuterBorder.TopDistance"
args14(5).Value = 0
args14(6).Name = "OuterBorder.BottomBorder"
args14(6).Value = Array(0,0,2,0)
args14(7).Name = "OuterBorder.BottomDistance"
args14(7).Value = 0
args14(8).Name = "InnerBorder.Horizontal"
args14(8).Value = Array(0,0,2,0)
args14(9).Name = "InnerBorder.Vertical"
args14(9).Value = Array(0,0,2,0)
args14(10).Name = "InnerBorder.Flags"
args14(10).Value = 0
args14(11).Name = "InnerBorder.ValidFlags"
args14(11).Value = 127
args14(12).Name = "InnerBorder.DefaultDistance"
args14(12).Value = 0

dispatcher.executeDispatch(document, ".uno:SetBorderStyle", "", 0, args14())

Macro LibreOffice 3.4

dim args2(12) as new com.sun.star.beans.PropertyValue
args2(0).Name = "OuterBorder.LeftBorder"
args2(0).Value = Array(0,0,2,0,0)                 <- issue: 5 params!
args2(1).Name = "OuterBorder.LeftDistance"
args2(1).Value = 0
args2(2).Name = "OuterBorder.RightBorder"
args2(2).Value = Array(0,0,2,0,0)
args2(3).Name = "OuterBorder.RightDistance"
args2(3).Value = 0
args2(4).Name = "OuterBorder.TopBorder"
args2(4).Value = Array(0,0,2,0,0)
args2(5).Name = "OuterBorder.TopDistance"
args2(5).Value = 0
args2(6).Name = "OuterBorder.BottomBorder"
args2(6).Value = Array(0,0,2,0,0)
args2(7).Name = "OuterBorder.BottomDistance"
args2(7).Value = 0
args2(8).Name = "InnerBorder.Horizontal"
args2(8).Value = Array(0,0,2,0,0)
args2(9).Name = "InnerBorder.Vertical"
args2(9).Value = Array(0,0,2,0,0)
args2(10).Name = "InnerBorder.Flags"
args2(10).Value = 0
args2(11).Name = "InnerBorder.ValidFlags"
args2(11).Value = 127
args2(12).Name = "InnerBorder.DefaultDistance"
args2(12).Value = 0

dispatcher.executeDispatch(document, ".uno:SetBorderStyle", "", 0, args2())