my $tables = $word->ActiveDocument->{Tables};
 
    for my $table (in $tables) {