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

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

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

    Girenko Tatiana Гость

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

    А вот так ...

    Код (Text):
    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

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

    Код (Text):
        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

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

    Регистрация:
    27 авг 2008
    Сообщения:
    6.073
    Симпатии:
    299
    xalet
    не только советовали... :newconfus:
    пример кода был (правда - др. задача решалась)
     
Загрузка...
Похожие Темы - Соединение Lotus Notes
  1. rhino101
    Ответов:
    0
    Просмотров:
    340
  2. Prich
    Ответов:
    0
    Просмотров:
    1.197
  3. SergDS
    Ответов:
    1
    Просмотров:
    1.480
  4. krik62
    Ответов:
    0
    Просмотров:
    2.161
  5. Kizarek86
    Ответов:
    2
    Просмотров:
    2.140
Статус темы:
Закрыта.

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