Help for this page
my $tables = $word->ActiveDocument->{Tables}; for my $table (in $tables) {
my $tables = $word->ActiveDocument->{Tables}; ... print sprintf "Tables has %d items", $tables->Count; for my $table (in $tables) {