ник: час
Бъёмся мы вторые сутки
Изучаем работу с OpenOffice
объединить ячейки получается, а вот очистить их - нет
очистить диапазон ячеек не представляется возможным
Public Function FUN_Unite(str_Range As String, str_Index As Long, str_Aligment As Long)
'Слияние объединять
Dim flags As String
'Call FUN_Unite("A" & 1 & ":I" & 1, 2) ' A1:I1
MsgBox str_Range
Set OOO_Sheet = OOO_Document.getSheets()
Set OOO_Sheet = OOO_Document.getSheets().getByIndex(str_Index)
'$CellRange=$Sheet->getCellRangeByName("A8:I40")
' Set OOO_Range = OOO_Sheet.getCellRangeByName(strRange)
Set OOO_Range = OOO_Sheet.getCellRangeByName(str_Range)
OOO_Range.Merge (True)
OOO_Range.ParaAdjust = str_Aligment '3 ' слева2 справа1 центр3
flags = "com.sun.star.sheet.CellFlags.String"
OOO_Range.clearContents (flags)
'OOO_Range.clearContents ( _
'OOO_Sheet.CellFlags.Value Or _
'OOO_Sheet.CellFlags.DateTime Or _
'OOO_Sheet.CellFlags.String Or _
'OOO_Sheet.CellFlags.ANNOTATION Or _
'OOO_Sheet.CellFlags.FORMULA Or _
'OOO_Sheet.CellFlags.HARDATTR Or _
'OOO_Sheet.CellFlags.STYLES Or _
'OOO_Sheet.CellFlags.OBJECTS Or _
'OOO_Sheet.CellFlags.EDITATTR)
'
End Function