| |
|
|
| | Бъёмся мы вторые сутки
Изучаем работу с 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 | |
| |
| |
| |
|
|
| | Это на верху обрывки моих мучениев........
я вот тута нашел, но не работает .....нахал   | |
| |
| |
| |
|
|
| | Блин. Час, мне бы ваши проблемы. У меня пустой отчет открывается если не перекликнуть на другую строку. А вы про ячейки.
И все же интересно для чего это и что это такое. Прога по уничтожению базы микрософта? | |
| |
| |
|
|
| |
|
|
| | я не большой знаток опенофиса.....точнее большой не знаток
но если судить и пытаться провести аналогию с екселем то
в объединенном диапазоне ячеек ексель хранит инфу в левой верхней ячейке
прямое обращение к этой ячейке позволяет делать с инфой все что хочешь
пример ' диапазон a10:e15 то обращаемся
cells(10,1)="проверка связи" | |
| |
| |
| |
|
|
| | Разрешилось многое СМ. в разделе VB - тема ООО  | |
| |
| |
| |
|
|
| | А как OOO вывести (показать) поверх своего приложения, развернутого на весь экран?? | |
| |
| |
| |
|
|
| | Сделай всплывающую модальную ООО
 | |
| |
| |
|
|
| |
|
|
| | ТОже разрешилось csj. форму делаю малюсенькой и Calc сразу вылазеет.... | |
| |
| |
| |
|
|
| | Помогите с такой ситуяйцией
===========================
Как узнать что нужная книга Calc уже открыта и лежит на столе, а то у меня новые и новые открываются.................. | |
| |
| |
| |
|
|
| | На событие обращения к столу:
if not isloaded ("calc") then
msgbox("Где книга?")
cansel=true
else
docmd.openbuk "calc"
end if
| |
| |
| |
| |
|
|
| | Вы батенька Уморист!!! 
==================================
Всё дело в замене _blanc на _default
как оказалось.........  | |
| |
| |
|
|
| |
|
|
| | Не очень часто жалуют советами меня
Они ещё не знают - нет дыма без огня | |
| |
| |
| |
|
|
| |  Ну и запросы у вас, час. Скромнее надо быть. Эдак вы дойдете до проблемы умножения графов, тонкостей математики языка VBA... Я, если честно, помог бы, но ни черта не пойму о чем вы тут спрашиваете. И видимо не я один. 
| |
| |
| |
|
|
