Jak otworzyć i narysowac tabele w OpenOffice za pomocą OLE?
W Wordzie jest następująco:
//--------------------------------------------------------
uses
ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
WordApp, NewDoc, WordTable: OLEVariant;
iRows, iCols, iGridRows, jGridCols: Integer;
begin
try
WordApp := CreateOleObject('Word.Application');
except
Exit;
end;
WordApp.Visible := True;
NewDoc := WordApp.Documents.Add;
iCols := 5; iRows := 5;
WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);
//dodajemy tekst do (2,2)
WordTable.Cell(2, 2).Range.Text := ' Jak to samo zrobić w OpenOffice????? ';
//---------------------------------------------------------------------------------------
No własnie ,a jak to samo zrobić w OpenOffice ???????
otworzyc OpoenOffica można:
//------------------------------------------------------------
var
OO,Table: Variant;
begin
OO := CreateOleObject('com.sun.star.ServiceManager');
//------------------------------------------------------------
ale co dalej????
Pozdrawiam!