|
Delphi & OpenOffice - Заполним пробел
#34381137
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
Начну с очень грустного для себя открытия, что информации по работе с OpenOffice очень трудно найти даже на английском языке.
И попрошу заранее особо умных не умничать, и не кидать умных ссылок
(сам могу накидать http://www.oooforum.org/forum/viewforum.phtml?f=2),
я их за неделю насмотрелся большая просьба выкладывать рабочие примеры, а не их кусочки.
Это топ изначально планируется, для того чтобы больше не тратить по недели на то, что бы узнать, как объединить ячейки и т.д. (Кстати весьма буду благодарен если кто подскажет мой самый большой камень сейчас)
Ну а для начал этого топа выложу то, что смог найти или методом тыка нашел, чтобы Вы не потратили столько времени, сколько я на пойки.
Первый пример и очень классный я нашел на сайте http://www.rsdn.ru/Forum/?mid=1187888
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
procedure TForm1.Button1Click(Sender: TObject);
var
LoadParams, aLoader: Variant;
ServiceManager, Desktop : Variant;
CoreReflection, PropertyValue, VA: Variant;
Document: Variant;
TableCursor, Table, TableCell : Variant;
obj, objText, objCursor : Variant;
w : integer;
Cols : Variant;
begin
if VarIsEmpty(ServiceManager) then
try
ServiceManager := CreateOleObject('com.sun.star.ServiceManager');
except
Raise Exception.Create('Couldn''t get ServiceManager');
Exit;
end ;
CoreReflection := ServiceManager.createInstance('com.sun.star.reflection.CoreReflection');
CoreReflection.forName('com.sun.star.beans.PropertyValue').createObject(PropertyValue);
VA := VarArrayCreate([ 0 , 0 ], varVariant);
VA[ 0 ] := PropertyValue;
Desktop := ServiceManager.createInstance('com.sun.star.frame.Desktop');
Document := Desktop.LoadComponentFromURL( 'private:factory/swriter','_blank', 0 , VA);
if (VarIsNull(Document) or VarIsEmpty(Document)) then
begin
Raise Exception.Create('Couldn''t create document');
Exit;
end ;
objText := Document.getText;
//Create a cursor object
objCursor := objText.createTextCursor;
//Inserting some Text
objCursor.setPropertyValue('CharHeight', 12 ); //size
objCursor.setPropertyValue('CharWeight', 150 ); //bold
objCursor.setPropertyValue('ParaAdjust', 3 ); //center
objText.insertString(objCursor, 'The first line.', false);
objText.insertControlCharacter(objCursor, 0 , false ); //PARA_BREAK
objText.insertControlCharacter(objCursor, 1 , false ); //LINE_BREAK
objText.insertControlCharacter(objCursor, 0 , false ); //PARA_BREAK
objCursor.setPropertyValue('CharHeight', 20 ); //size
objCursor.setPropertyValue('CharWeight', 150 ); //bold
objCursor.setPropertyValue('ParaAdjust', 0 ); //left
objCursor.setPropertyValue('CharUnderline', 1 ); //0-none, 1-single,...,18-BOLDWAVE
objText.insertString(objCursor, 'The second line.', false);
objCursor.setPropertyValue('CharHeight', 12 ); //size
objCursor.setPropertyValue('CharWeight', 100 ); //normal
objCursor.setPropertyValue('CharUnderline', 0 ); //0-none
objText.insertString(objCursor, 'The second line.', false);
objText.insertControlCharacter(objCursor, 0 , false ); //PARA_BREAK
objText.insertControlCharacter(objCursor, 0 , false ); //PARA_BREAK
//Inserting some Table
Table := Document.createInstance( 'com.sun.star.text.TextTable' );
Table.initialize( 5 , 4 ); //row, column
Table.HoriOrient := 0 ;
Table.LeftMargin := 200 ; // 2* 1/100 mm;
Table.RightMargin := 200 ;
Document.getText.insertTextContent( objCursor, Table, false );
obj := Table.TableColumnSeparators;
obj[ 0 ].Position := 750 ;
obj[ 1 ].Position := obj[ 0 ].Position+ 2000 ;
obj[ 2 ].Position := obj[ 1 ].Position+ 2000 ;
Table.TableColumnSeparators := obj;
// Cols := Table.getColumns;
// w := Cols.getCount;
TableCell := Table.getCellByName('A1');
TableCell.setString('A1');
TableCell := Table.getCellByPosition( 1 , 1 );
TableCell.setString('**B2**');
TableCell := Table.getCellByPosition( 2 , 1 );
TableCell.setString('**C2**');
end ;
-----------------------------------------------------------
Вот что я смог сделать
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
procedure TForm1.Button1Click(Sender: TObject);
var
StarOffice, StarDesktop, Document, Sheets, Sheet, MyStruct, Cell: variant;
J, I: integer;
begin
StarOffice := CreateOleObject('com.sun.star.ServiceManager');
StarDesktop := StarOffice.createInstance('com.sun.star.frame.Desktop');
Document := StarDesktop.LoadComponentFromURL(
'private:factory/scalc', '_blank', 0 ,
VarArrayCreate([ 0 , - 1 ], varVariant));
MyStruct := StarOffice.Bridge_GetStruct('com.sun.star.table.BorderLine');
try
Sheets := Document.getSheets;
Sheet := Sheets.getByName('Лист1');
Cell := Sheet.getCellRangeByName('C10:C13'); // cell := sheet.getCellRangeByPosition(0, 1, 0, 3);
Cell.setPropertyValue('CellBackColor', 255 ); // Cell.cellBackColor :=200;
// Cell.setPropertyValue('GoToCell'); //как сд
J := 1 ; I := 1 ;
Cell := Sheet.getCellByPosition(j, i);
// Cell.charColor := 255;
Cell.charHeight := 14 ;
Cell.CharWeight:= 150 ;
Cell.charUnderline := true;
Cell.charPosture := true;
Cell.charStrikeout := true;
Cell.SetString('САЛЬДОВО-ГРУППИРОВОЧНАЯ ВЕДОМОСТЬ ПО УСЛУГЕ:');
Cell := Sheet.getCellByPosition(j, i+ 1 );
//MyStruct.color := 255;
MyStruct.lineDistance := 0 ;
MyStruct.innerLineWidth := 0 ;
MyStruct.outerLineWidth := 1 ;
Cell.leftBorder := MyStruct;
Cell.rightBorder := MyStruct;
Cell.topBorder := MyStruct;
Cell.bottomBorder := MyStruct;
Cell.SetString('Дом: ');
finally
StarOffice := Unassigned;
end ;
end ;
|
|
|
