my $tables = $word->ActiveDocument->{Tables};

print "Tables is <$tables>";
print sprintf "Tables has %d items", $tables->Count;
 
    for my $table (in $tables) {