Re: Win32::OLE Word Macro Conversion

You have

    With Options
        .LocalNetworkFile = False
[download]

Now... Options is unqualified which means it belongs to the Application object (VBA assumes this), perl won't... try:

$Word->Options->{LocalNetworkFile}=0;
...
$Word->Options->{LabelSmartTags}=0;
[download]

(untested!)... HTH - Mark

Comment on Re: Win32::OLE Word Macro Conversion Select or Download Code

Replies are listed 'Best First'.

Re^2: Win32::OLE Word Macro Conversion
by offspinner (Initiate) on Nov 24, 2004 at 15:03 UTC

That's cracked it! Thank you!

[reply]

Re^2: Win32::OLE Word Macro Conversion
by Jenda (Abbot) on Nov 25, 2004 at 00:46 UTC

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

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

{
  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

[reply]
[d/l]
[select]

Re^3: Win32::OLE Word Macro Conversion

by offspinner (Initiate) on Dec 01, 2004 at 12:18 UTC

That's Just Dandy. Thanks again!

[reply]

Re^4: Win32::OLE Word Macro Conversion

by Jenda (Abbot) on Dec 01, 2004 at 13:47 UTC

Actually it can be even neater. Win32::OLE provides a function with() that would let you do this:

use Win32::OLE qw(with);
...
with($Word->Options, 
   LocalNetworkFile => 0,
   AllowFastSave => 1,
   BackgroundSave => 1,
   CreateBackup => 0,
   SavePropertiesPrompt => 0,
   SaveInterval => 10,
   SaveNormalPrompt => 0,
   DisableFeaturesbyDefault => 0,
);
[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

[reply]
[d/l]


XP is just a number
	PerlMonks