Ask Your Question

Revision history [back]

click to hide/show revision 1
initial version

Border Macro No Longer Works

A couple years ago some helpful soul on this forum got me to Record a Macro to create a Thick Border around the outside of the selected cell group (outerBorder) and a Thin Border between the cells (innerBorder). I used it successfully at the time and several times since then. I added it to the Toolbar so it would be easy to use.

Recently I needed to have that functionality again but my Toolbar button was not working. It only added the Outer Border.

I finally decided to Record a new Macro. When I run the Macro, it does the same as my old Macro did. I draws the Outer Border but no Inner Borders. Since this used to work I am assuming it is a bug but I haven't been able to find any info on it or a workaround.

Here is the Macro code:

sub ThickThin
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ---------------------------------------------------------------------- dim args1(7) as new com.sun.star.beans.PropertyValue args1(0).Name = "BorderOuter.LeftBorder" args1(0).Value = Array(0,0,71,0,0,71) args1(1).Name = "BorderOuter.LeftDistance" args1(1).Value = 0 args1(2).Name = "BorderOuter.RightBorder" args1(2).Value = Array(0,0,71,0,0,71) args1(3).Name = "BorderOuter.RightDistance" args1(3).Value = 0 args1(4).Name = "BorderOuter.TopBorder" args1(4).Value = Array(0,0,71,0,0,71) args1(5).Name = "BorderOuter.TopDistance" args1(5).Value = 0 args1(6).Name = "BorderOuter.BottomBorder" args1(6).Value = Array(0,0,71,0,0,71) args1(7).Name = "BorderOuter.BottomDistance" args1(7).Value = 0

dispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args1())

Border Macro No Longer Works

A couple years ago some helpful soul on this forum got me to Record a Macro to create a Thick Border around the outside of the selected cell group (outerBorder) and a Thin Border between the cells (innerBorder). I used it successfully at the time and several times since then. I added it to the Toolbar so it would be easy to use.

Recently I needed to have that functionality again but my Toolbar button was not working. It only added the Outer Border.

I finally decided to Record a new Macro. When I run the Macro, it does the same as my old Macro did. I draws the Outer Border but no Inner Borders. Since this used to work I am assuming it is a bug but I haven't been able to find any info on it or a workaround.

Here is the Macro code:

code:

sub ThickThin
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dim args1(7) as new com.sun.star.beans.PropertyValue args1(0).Name = "BorderOuter.LeftBorder" args1(0).Value = Array(0,0,71,0,0,71) args1(1).Name = "BorderOuter.LeftDistance" args1(1).Value = 0 args1(2).Name = "BorderOuter.RightBorder" args1(2).Value = Array(0,0,71,0,0,71) args1(3).Name = "BorderOuter.RightDistance" args1(3).Value = 0 args1(4).Name = "BorderOuter.TopBorder" args1(4).Value = Array(0,0,71,0,0,71) args1(5).Name = "BorderOuter.TopDistance" args1(5).Value = 0 args1(6).Name = "BorderOuter.BottomBorder" args1(6).Value = Array(0,0,71,0,0,71) args1(7).Name = "BorderOuter.BottomDistance" args1(7).Value = 0

0 dispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args1())