in reply to WIn32::OLE debug

1. First step turn STDOUT buffering off
$|=1; #put at top of code
This allows error messages and normal prints to appear in the order of execution.

2. You have one doc that works and one that doesn't.
Add error checking on the opens and new operations.
my $word =Win32::OLE->new('Word.Application','Quit') or die "blah$!";
my $doc = $word->{Documents}->Open("$word_file") or die "bla2$!";

3. Add some prints for each variable - look for something weird like undef value

Update:
From your description, it looks like tabler 1 in the failing doc is what is failing.
Try cut and paste the table that works from doc 1 to doc 2.
Again make sure the open worked. you could conceiveably get your error if the Word doc didn't open.

Do both docs render ok on the screen? Can you print them without problems?

It is possible with the drawing tools to make something that looks like a table, but is not a table in the Word sense.

Replies are listed 'Best First'.
Re^2: WIn32::OLE debug
by chafelix (Acolyte) on Oct 12, 2025 at 17:18 UTC
    Thanks, I did try your advice. The result:

    Tables is <Win32::OLE=HASH(0x57d0ab0)>Tables has 70 itemsbefore table loop

    table=Win32::OLE=HASH(0x57d0c60) file=C:\Users\...\mydoc.docx

    numrows=23

    table rows count= Win32::OLE=HASH(0x5606e48)->Rows->Count

    OLE exception from "Microsoft Word":

    ?e? e??a? d??at? ? p??s▀as? ╡e╡???╡???? ??a╡╡?? se a?t?? t? s??????, epe?d? ? p??a?a? ??e? s?????e?╡??a ?e??? ?ata????fa.

    Win32::OLE(0.1712) error 0x800a1767 in METHOD/PROPERTYGET "Item" at parserworks16.pl line 188.

    The failing line is the last line shown 
    print "table rows count= $table->Rows->Count \n"; # this print seems t
+o indicate the problem
foreach my $rownum (1 .. $table->Rows->Count) {
    my $row = $table->Rows->Item($rownum);

    [download]
    So it looks like $table->Rows->Count is an object instead of a number! Why is that ?
[reply]
[d/l]
      Method calls are not interpolated in double quoted strings. Therefore, 
      print "table rows count= $table->Rows->Count \n";

      [download]

      only interpolates $table. Instead, try 

      print 'table rows count = ', $table->Rows->Count, ".\n";

      [download]

      map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
[reply]
[d/l]
[select]
        Then 
         
print "table rows count=",  $table->Rows->Count ,".\n"; # prints 23
foreach my $rownum (1 .. $table->Rows->Count) {
print "rownum=$rownum\n"; #prints 1
    my $row = $table->Rows->Item($rownum); #crashes!

        [download]

        OLE exception from "Microsoft Word": ?e? e??a? d??at? ? p??s▀as? ╡e╡???╡???? ??a╡╡?? se a?t?? t? s??????, epe?d? ? p??a?a? ??e? s?????e?╡??a ?e??? ?ata????fa. Win32::OLE(0.1712) error 0x800a1767 in METHOD/PROPERTYGET "Item" at parserworks16.pl line 191.

        is there a way to look at the elements of the $table->Rows object? It would appear that this does not have an Item(1) element
[reply]
[d/l]

In Section Seekers of Perl Wisdom