Форум программистов, компьютерный форум, киберфорум
HCL Notes: Программирование
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.97/125: Рейтинг темы: голосов - 125, средняя оценка - 4.97
kyrymko Totyomo
1

Соединение Lotus Notes B Vba Openoffice

22.09.2006, 11:49. Показов 23080. Ответов 4
Метки нет (Все метки)

Необходимо выгружать отчеты в OPEN OFFICE Обращение к ячейке есть, не могу только обрамить . И еще ошибки для установки шрифта Помогите

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set xlglob = CreateObject("com.sun.star.ServiceManager")
Set Desktop = xlglob.createInstance("com.sun.star.frame.Desktop")
Dim mass()
FilePath = "private:factory/scalc"
Set Document = CreateObject("com.sun.star.sheet.SpreadsheetDocument")
Set Document = Desktop.LoadComponentFromURL(FilePath, "_blank", 0, mass )
Set sheets = Document.getSheets()
Set xlWbk = sheets.getByIndex(0)
xlWbk.getCellByPosition( numstolb,3).String="план"
xlWbk.getCellByPosition("
Next
Set crange  =xlwbk.GetCellRangeByName("d4:w32")
crange.CharFontName="Arial"
crange.CharFontWeight.Bold=True  ошибка
crange.AutoFit=True
Exit Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.09.2006, 11:49
Ответы с готовыми решениями:

Как развернуть окно Lotus Notes из Excel Vba?
Доброго времени суток! Очень нужно решить задачку: написать код в Excel VBA, который бы...

Lotus Vs Openoffice
Я имею ввиду выгрузить отчет в Writer или в аналог ексея OpenOffice??? А то у нас уже...

Lotus Notes
Здравствуйте, у меня вопрос такой: есть таблица, в неё вставлена подформа, можно ли как-нибудь...

Lotus Domino/Notes
Администрирую Lotus Domino/Notes R5 сеть. Есть опыт программирования на Lotus Script. Интересует...

4
0 / 0 / 0
Регистрация: 10.09.2005
Сообщений: 560
14.03.2010, 15:05 2
А вот так ...


Код
xlWbk.getCellRangeByName("A1:H1").HoriJustify=2         2 - центрировать 3 - вправо
xlWbk.getCellRangeByName("A1:H1").charFontName = "Times New Roman"
xlWbk.getCellRangeByName("A1:H1").CharHeight = 15
xlWbk.getCellRangeByName("A1:H1").CharPosture =0         наклонный шрифт 2, обычный 0
objCellCursor.CharWeight = 150  bold
0
0 / 0 / 0
Регистрация: 04.08.2008
Сообщений: 408
14.03.2010, 15:49 3
Вот так получится с болдом, если оба кода соеденить =)


Код
    Set xlglob = CreateObject("com.sun.star.ServiceManager")
Set Desktop = xlglob.createInstance("com.sun.star.frame.Desktop")
Dim mass()
FilePath = "private:factory/scalc"
Set Document = Desktop.LoadComponentFromURL(FilePath, "_blank", 0, mass )
Set sheets = Document.getSheets()
Set xlWbk = sheets.getByIndex(0)
Set crange  =xlwbk.GetCellRangeByName("A1:D10")
crange.CharFontName="Arial"
crange.CharWeight = 150
правда тут уже много раз советовали забыть это апи и работать с ХМЛ
0
RoJ
14.03.2010, 16:07 4
код для обрамления ячеек

Код
.....
Dim TableBorder As Variant, BorderLine As Variant
Set RG=ooSheet.getCellRangeByName("A" & Row & ":L" & Row+10)
Set TableBorder =ooServiceManager.Bridge_GetStruct("com.sun.star.table.TableBorder")
Set BorderLine = ooServiceManager.Bridge_GetStruct("com.sun.star.table.BorderLine")
BorderLine.OuterLineWidth = 50 0.5mm    размерность 1/100mm
With TableBorder
.IsBottomLineValid  = True 9
.IsTopLineValid             = True 8
.IsLeftLineValid            = True 7
.IsRightLineValid       = True 10
.IsHorizontalLineValid = True 11
.IsVerticalLineValid    = True 12
End With
Set TableBorder.BottomLine          = BorderLine
Set TableBorder.TopLine                 = BorderLine
Set TableBorder.LeftLine                = BorderLine
Set TableBorder.RightLine               = BorderLine
Set TableBorder.HorizontalLine      = BorderLine
Set TableBorder.VerticalLine            = BorderLine
Set RG.TableBorder = TableBorder
....
0 / 0 / 0
Регистрация: 23.08.2008
Сообщений: 6,252
14.03.2010, 17:22 5
xalet
не только советовали... :newconfus:
пример кода был (правда - др. задача решалась)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.03.2010, 17:22

Программирование в Lotus Notes
Здравствуйте, всем! Достаточно давно являюсь участником замечательного форума CodebyNet и успешным...

Рассылка В Lotus Notes
Мне нужно организовать рассылку по 250 e-mail адресатам так, чтобы они в поле получатель не видели...

Опросы в Lotus Notes
Возникла необходимость проведения опросов среди пользователей Lotus Notes. Есть у кого шаблон базы...

Lotus Notes СЭД
День добрый Давайте поговорим о почти идеальной СЭД, основанной на LN. Мне интересно, какой её...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru