[ПавелПП]

procedure TOpenOffice.CreateTable(sName:AnsiString;Rows,Cols :Integer);
begin
Table:= Document.CreateInstance( 'com.sun.star.text.TextTable' );
Table.SetName (sName);
Table.Initialize( Rows, Cols );
Table.LeftMargin := 500;
Table.TopMargin:=500;

oText := Document.GetText;
oCursor := oText.CreateTextCursor;
Document.Text.InsertTextContent( oCursor, Table, False );
end;