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

[Girenko Tatiana]

Необходимо выгружать отчеты в 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

 

[allex]

А вот так ...

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

 

[Xalet]

Вот так получится с болдом, если оба кода соеденить =)

	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

правда тут уже много раз советовали забыть это апи и работать с ХМЛ

 

[RAJ]

код для обрамления ячеек

.....
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 
....

 

[lmike]

xalet
не только советовали... :newconfus:
пример кода был (правда - др. задача решалась)