sub readWordDoc { my $wordContent; my $wordTitle; my $wordProperties; ($wordTitle, $wordProperties, $wordContent) = readWord::readActiveD +oc(); if ( (defined $wordTitle) and (defined $wordProperties) and (defined $ +wordContent) ) { my $content=""; foreach my $palabre (in $wordContent->Words) # retrieves every s +ingle word and adds it to content { $content.= "\n".lc($palabre->{Text}); } foreach my $prop (in $wordProperties) # prints out every single +property { print "\n".$prop->name.":".$prop->Value; } } }
Heureux qui, comme Ulysse, a fait un beau voyage
Ou comme celui-là qui conquit la Toison,
Et puis est retourné plein d'usage et raison,
Vivre entre ses parents le reste de son âge!J. du Bellay, poëte angevin
In reply to How to include the snippet elsewhere
by Foggy Bottoms
in thread Reading data from an open Word Document
by Foggy Bottoms
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |