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

##</code><code>##

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