вставка большого количества записей в таблицу Word

int CWordTable::SetText(int row,int column, AnsiString text)
{
  try
  {
    table.OleFunction("Cell",row,column).OlePropertyGet("Range").OlePropertySet("Text",text.c_str());
  }
  catch(...)
  {
    return 0;
  }
  return 1;
}

int row=t->RowsCount();
    int column=1;
    long count=0;
    AnsiString value;
    //
    Variant cell1,cell2,array;
    int bounds[2]={0,5000};
    array=VarArrayCreate(bounds,1,varVariant);
    for(int i=0;i<=5000;++i)
    {
      value=IntToStr(i);
      array.PutElement(value.c_str(),i);
    }
    t->InsertRowsBelow(row,5000);
    t->GetCell(cell1,row,column+1);
    t->GetCell(cell2,t->RowsCount(),column+1);
    int res=t->InsertArrayData(array,cell1,cell2);
    if(!res)ShowMessage("Íå ïîëó÷èëîñü");
    array.Clear();

int CWordTable::InsertArrayData(Variant &array,Variant &cell1,Variant &cell2)
{
  try
  {
    /*
    Variant range=document.OlePropertyGet("Range",
                                       cell1.OlePropertyGet("Range").OlePropertyGet("Start"),
                                       cell2.OlePropertyGet("Range").OlePropertyGet("End"));
    */
    Variant range=document.OlePropertyGet("Range",cell1,cell2);  <==здесь выдает ошибку
 
    range.OlePropertySet("Value", array);
    return 1;
  }
  catch(Exception &ex)
  {
    MessageBox(0,ex.Message.c_str(),0,MB_OK);
  }
  return 0;
}

Excel.OlePropertyGet("Range","A1:B20000").OleProcedure("Select");
Excel.OlePropertyGet("Selection").OleProcedure("Copy");
Variant World = CreateOleObject("Word.Application");
World.OlePropertyGet("Documents").OleFunction("Add");
World.OlePropertyGet("Selection").OleProcedure("Paste");
World.OlePropertySet("Visible", true);