Variant WA=Variant::CreateObject("Word.Application");
  try
  {
    Screen->Cursor=crHourGlass;
//    WA.Exec(PropertySet("Visible")<<true);
    WA.Exec(PropertyGet("Documents")).Exec(Procedure("Add"));

    Variant WD=WA.Exec(PropertyGet("ActiveDocument"));
//    WD.Exec(PropertyGet("PageSetup")).Exec(PropertySet("Orientation")<<wdOrientLandscape);

    Variant WT=WD.Exec(PropertyGet("Tables"));

    int di= 12 ;
    int dj= 45 ;

    int mi=SG1->ColCount- 1 ;
    int mj=SG1->RowCount- 1 ;

    CGauge1->Visible= 1 ;
    CGauge1->MaxValue=mi*mj+mi+mj;
    CGauge1->MinValue= 0 ;
    CGauge1->Progress= 1 ;
    CGauge1->Repaint();
    int cp= 0 ;

    for(int i0= 0 ;i0<mi;i0+=di)
    {
      for(int j0= 0 ;j0<mj;j0+=dj)
      {
        Variant SR=WA.Exec(PropertyGet("Selection")).Exec(PropertyGet("Range"));
        WT.Exec(Procedure("Add")<<SR<<(dj+ 1 )<<(di+ 1 )<<wdWord9TableBehavior<<wdAutoFitWindow);

        WA.Exec(PropertyGet("Selection")).Exec(Procedure("EndKey")<<wdStory);
        if (j0+dj<mj || i0+di<mi)
        {
          WA.Exec(PropertyGet("Selection")).Exec(Procedure("InsertBreak")<<wdPageBreak);
        }

        int C=WT.Exec(PropertyGet("Count"));
        Variant T=WT.Exec(Function("Item")<<C);

        for(int j= 0 ;j<dj && j+j0<mj;j++)
        {
          Variant CELL=T.Exec(Function("Cell")<<(j+ 2 )<< 1 );
          CELL.Exec(PropertyGet("Range")).Exec(PropertySet("Text")<<SG1->Cells[ 0 ][j0+j+ 1 ]);
          CGauge1->Progress=cp++;
          CGauge1->Repaint();
        }