Inserting multiple rows into an existing table

[sara0109]

I am trying to help a friend who is writing an Arabic/English dictionary. He uses a table in OpenOffice to record each word and definition. We need to be able to add 50 or a 100 rows at a time into the same table. Is there a way to do this using a macro? I have read several posts regarding adding rows but they all seem to be for more complicated functions. We just need a simple way to add 100 empty rows that contain the same formatting as those above them.

Thanks.

[FJCC]

This macro add 100 rows to the table called Table1.

Code: Select all

oTable = ThisComponent.TextTables.getByName("Table1")
oRows = oTable.getRows()
oRows.insertByIndex(oRows.Count, 100)  ' (Position to insert, number to insert)