<snip>
>
> my $newdoc = $word->ActiveDocument;
> foreach my $obj_Story ($newdoc->StoryRanges ){
> $obj_Story->Fields->{Update}; ==> Cannot find object
> while ($obj_Story->NextStoryrange != ""){
> $obj_Story = $obj_Story->NextStoryRange;
> $obj_Story->Fields->{Update}; ==> Cannot find object
> }
> }
</snip>
Could you try instead
foreach my $obj_Story (@{$newdoc->StoryRanges}) {
.....
.......
}
As I remember from my past experience with Win32::OLE stuff, Perl doesn't
know that $newdoc->StoryRanges is a list, therefore you need to be more
explicit.
Adrian Ichim
**********************************************************************
PLEASE NOTE: The above email address has recently changed from a previous naming
standard -- if this does not match your records, please update them to use this new
name in future email addressed to this individual.
This message and any attachments are intended for the
individual or entity named above. If you are not the intended
recipient, please do not forward, copy, print, use or disclose this
communication to others; also please notify the sender by
replying to this message, and then delete it from your system.
The Timken Company
**********************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
