VB怎样控制Open office calc网格边框线

[Johnsonzlg]

如题，VB怎样控制Open office calc网格边框线
Set document = oDesktop.CurrentComponent.CurrentController.Frame
Set dispatcher = oServiceManager.CreateInstance("com.sun.star.frame.DispatchHelper")
Call oDesktop.CurrentComponent.CurrentController.Select(oSheet.getCellRangeByName("A5:M" & nI))
Set t2(0) = MakePropertyValue("OuterBorder.LeftBorder", Array(0, 0, 2, 0))
Set t2(1) = MakePropertyValue("OuterBorder.LeftDistance", 0)
Set t2(2) = MakePropertyValue("OuterBorder.RightBorder", Array(0, 0, 2, 0))
Set t2(3) = MakePropertyValue("OuterBorder.RightDistance", 0)
Set t2(4) = MakePropertyValue("OuterBorder.TopBorder", Array(0, 0, 2, 0))
Set t2(5) = MakePropertyValue("OuterBorder.TopDistance", 0)
Set t2(6) = MakePropertyValue("OuterBorder.BottomBorder", Array(0, 0, 2, 0))
Set t2(7) = MakePropertyValue("OuterBorder.BottomDistance", 0)
Call dispatcher.executeDispatch(document, ".uno:SetBorderStyle", "", 0, t2)
上面是我在网上抄的一段代码
Set document = oDesktop.CurrentComponent.CurrentController.Frame ，这行运行提示没有CurrentController Object，什么问题？