WordApplication1, с таблицами проблемы

WordApplication1->Connect();
  WordApplication1->Visible = true;
  //add new doc
  WordApplication1->Documents->Add(EmptyParam, EmptyParam);
  WordDocument1->ConnectTo(WordApplication1->Documents->Item(1));

 //Create table 1
 int col = 6,row=6
 WordApplication1->ActiveDocument->Tables->Add(WordApplication1->Selection->Range,row,col);
 //Insert date into table
 for(int c=1;c<=col;c++)
    for(int r=1;r<=row;r++)
       WordApplication1->Selection->Tables->Item(1)->Cell(r,c)->Range->Text=StringToOleStr("ok");

 //Create table 2
 WordApplication1->ActiveDocument->Tables->Add(WordApplication1->Selection->Range,row,col);
 //Insert date into table
 for(int c=1;c<=col;c++)
    for(int r=1;r<=row;r++)
       WordApplication1->Selection->Tables->Item(1)->Cell(r,c)->Range->Text=StringToOleStr("ok");

//Create table 1
 //......
 WordApplication1->Selection->set_End(1);
 
 //Create table 2
 //......