Re: WIn32::OLE debug

[Marshall]

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.

[chafelix]

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);

So it looks like $table->Rows->Count is an object instead of a number! Why is that ?

[choroba]

Method calls are not interpolated in double quoted strings. Therefore,

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

only interpolates $table. Instead, try

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

[chafelix]

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!

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