Select Code to Download

package readPowerPoint;

...
# first hash will contain all the slides and each slide will be a hash
+ itself containing all
# the text areas found.
# to access do this $PPTContent{slide1}{shape1}

(my $PPTTitle, my $PPTProperties, my %PPTContent) = readPowerPoint::re
+adActivePPT();
   if ( (defined $PPTTitle) and (defined $PPTProperties) and (defined 
+%PPTContent) )
...
   {
      print ("PowerPoint is open but there doesn't seem to be an activ
+e PPT presentation open.");
   }