JavaScript отключён. Чтобы полноценно использовать наш сайт, включите JavaScript в своём браузере.

Ответить в теме

Сообщение: [QUOTE="лис.хвост, post: 212566, member: 10770"] [code=vbnet]Объединение ячеек: Dim dispatcher 'as object Set dispatcher = ServiceManager.createInstance("com.sun.star.frame.DispatchHelper") ReDim args1(0) Set args1(0) = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue") args1(0).Name = "ToPoint" args1(0).Value = "$B$3" Call dispatcher.executeDispatch(Document.getCurrentController.getFrame, ".uno:GoToCell", "", 0, args1) ReDim args2(1) Set args2(0) = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue") args2(0).Name = "By" args2(0).Value = 1 Set args2(1) = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue") args2(1).Name = "Sel" args2(1).Value = True Call dispatcher.executeDispatch(Document.getCurrentController.getFrame, ".uno:GoRight", "", 0, args2) ReDim args3(1) Set args3(0)= ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue") args3(0).Name = "By" args3(0).Value = 1 Set args3(1)= ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue") args3(1).Name = "Sel" args3(1).Value = True Call dispatcher.executeDispatch(Document.getCurrentController.getFrame, ".uno:GoRight", "", 0, args3) oArgs = Array() Call dispatcher.executeDispatch(Document.getCurrentController.getFrame, ".uno:MergeCells", "", 0,oArgs)[/code] [/QUOTE]