OLE2 with MS Word -- Table Handling

Question

Dear All,
Im using forms 6i.
Im generating a word document from forms.
That word document is a template.
In that template im placing data at runtime..
My MS Word template has one table with 6 columns and 15 rows...
But at runtime i may get data more than 15 rows...
So whenever start printing 16th row im getting non-oracle exception.
How to overcome this...
Im writing data into table cells as followin
procedure SetCellText (DocumentHandle in OLE2.OBJ_TYPE,
                         ThisTable      in PLS_INTEGER,
                         CellColumn     in PLS_INTEGER,
                         CellRow        in PLS_INTEGER,
                         Text           in VARCHAR2) is                   
    hCell  OLE2.OBJ_TYPE;   
    hRange OLE2.OBJ_TYPE; 
    begin
        hCell := GotoCell(DocumentHandle,ThisTable,CellColumn,CellRow);
        hRange := OLE2.GET_OBJ_PROPERTY(hCell,'Range');
        OLE2.SET_PROPERTY(hRange,'Text',Text);
        OLE2.RELEASE_OBJ(hRange);
        OLE2.RELEASE_OBJ(hCell);
    end;    SetCellText(hRange,1,1,v_row,runtimevalue); Is that possible to insert new row at the end of the table ?

Answer 1

Thanks InoL.....
Your Hint Macro did the job...
I created a Macro In the word template to add new row dynamically...
Then i Run the Macro from my forms as following..
=============== Created Macro in word template========================
Sub AddNewRow1()
Dim oTable As Table
Dim oCell As Cell
Dim oPrevRow As Row, oNewRow As Row
Dim iColumn As Long
Set oTable = ActiveDocument.Tables(3)
Set oPrevRow = oTable.Rows(oTable.Rows.Count)
oTable.Rows.Add
Set oNewRow = oTable.Rows(oTable.Rows.Count)
End Sub
===========================================================
================ Executing Macro from forms==========================
ARGS := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'AddNewRow');
OLE2.INVOKE(application,'Run',args);
OLE2.DESTROY_ARGLIST(ARGS);
============================================================