while ($tablefound == 0){
    $word->Selection->MoveUp(wdLine,1);
    $word->Selection->HomeKey(wdLine);
    $word->Selection->EndKey(wdLine, wdExtend);

    my $str = $word->Selection->{Text};

    if ($str =~ m/Table (\d+)/){
      $tableID = $1;
      $tablefound = 1;
    }
  }