http://qs1969.pair.com?node_id=410296


in reply to Re: Win32::OLE Word Macro Conversion
in thread Win32::OLE Word Macro Conversion

Right. And to "emulate" the with object statement you could do something like this: 

for ($Word->Options) {
  $_->{LocalNetworkFile}=0;
  $_->{LabelSmartTags}=0;
}

[download]
or 
{
  my %opt = (
   LocalNetworkFile => 0,
   AllowFastSave => 1,
   BackgroundSave => 1,
   CreateBackup => 0,
   SavePropertiesPrompt => 0,
   SaveInterval => 10,
   SaveNormalPrompt => 0,
   DisableFeaturesbyDefault => 0,
  );
  map $Word->Options->{$_} => $opt{$_}, keys %opt;
}

[download]

Jenda
We'd like to help you learn to help yourself
Look around you, all you see are sympathetic eyes
Stroll around the grounds until you feel at home
   -- P. Simon in Mrs. Robinson

In Section Seekers of Perl Wisdom