Добрый день!
Ребята, прошу помощи. Нужно разбить ячейки таблицы в OpenOffice.Writer. Сколько уже в инете искал, ничего не могу подходящего найти. (Или может кто-нибудь знает как объединить ячейки, тоже информация будет полезна!)
ПО: OpenOffice.org 3.1
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
ServiceManager, Desktop : Variant;
CoreReflection, PropertyValue, VA: Variant;
Document: Variant;
Table: Variant;
objText, objCursor : Variant;
begin
ServiceManager := CreateOleObject('com.sun.star.ServiceManager');
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);
objText := Document.getText;
//Create a cursor object
objCursor := objText.createTextCursor;
//Inserting some Table
Table := Document.createInstance('com.sun.star.text.TextTable');
Table.initialize(5, 4); //row, column
Document.getText.insertTextContent( objCursor, Table, false );
//... ТУТ НАДО РАЗБИТЬ ЯЧЕЙКУ, НАПРИМЕР ЯЧЕЙКУ(1,1) НА 2 СТРОКИ
end;
|
|