1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

Тема в разделе "Lotus - Программирование", создана пользователем Girenko Tatiana, 23 сен 2006.

Статус темы:
Закрыта.
  1. Girenko Tatiana

    Girenko Tatiana Гость

    Репутация:
    0
    Необходимо выгружать отчеты в OPEN OFFICE Обращение к ячейке есть, не могу только обрамить . И еще ошибки для установки шрифта Помогите
    Код:
    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
     
  2. allex

    allex Гость

    Репутация:
    0
    А вот так ...

    Код:
    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
     
  3. Xalet

    Xalet Well-Known Member

    Репутация:
    0
    Регистрация:
    8 авг 2008
    Сообщения:
    410
    Симпатии:
    0
    Вот так получится с болдом, если оба кода соеденить =)

    Код:
    	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
    правда тут уже много раз советовали забыть это апи и работать с ХМЛ
     
  4. RAJ

    RAJ Well-Known Member

    Репутация:
    0
    Регистрация:
    17 янв 2007
    Сообщения:
    440
    Симпатии:
    0
    код для обрамления ячеек
    Код:
    .....
    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 
    ....
     
  5. lmike

    lmike нет, пердело совершенство
    Lotus team

    Репутация:
    1
    Регистрация:
    27 авг 2008
    Сообщения:
    6.375
    Симпатии:
    336
    xalet
    не только советовали... :newconfus:
    пример кода был (правда - др. задача решалась)
     
Загрузка...
Похожие Темы - Соединение Lotus Notes
  1. hlozen
    Ответов:
    1
    Просмотров:
    511
  2. rhino101
    Ответов:
    0
    Просмотров:
    894
  3. Prich
    Ответов:
    0
    Просмотров:
    1.317
  4. SergDS
    Ответов:
    1
    Просмотров:
    1.572
  5. krik62
    Ответов:
    0
    Просмотров:
    2.256
Статус темы:
Закрыта.

Поделиться этой страницей