offspinner has asked for the wisdom of the Perl Monks concerning the following question:

Hi there all, I'm writing a simple script to batch convert word documents into HTML. However, I need also to disable the impossibly stupid "Smart Tags" that get embedded. The VBA macro below contains the important lines ( .EmbedSmartTags = False, .LabelSmartTags = False). Could anyone give me a clue to getting that functionality into the script at the bottom? Very many thanks! Richard

########### MACRO 
 
Sub yadda()
'
' yaddaMacro
' Macro recorded 23/11/2004 by Richard Barrett-Small
'
    With Options
        .LocalNetworkFile = False
        .AllowFastSave = True
        .BackgroundSave = True
        .CreateBackup = False
        .SavePropertiesPrompt = False
        .SaveInterval = 10
        .SaveNormalPrompt = False
        .DisableFeaturesbyDefault = False
    End With
    With ActiveDocument
        .ReadOnlyRecommended = False
        .EmbedTrueTypeFonts = False
        .SaveFormsData = False
        .SaveSubsetFonts = False
        .DoNotEmbedSystemFonts = True
        .Password = ""
        .WritePassword = ""
        .DisableFeatures = False
        .EmbedSmartTags = False
        .SmartTagsAsXMLProps = False
        .EmbedLinguisticData = True
    End With
    Application.DefaultSaveFormat = ""
    With autocorrect
        .CorrectInitialCaps = True
        .CorrectSentenceCaps = True
        .CorrectDays = True
        .CorrectCapsLock = True
        .ReplaceText = True
        .ReplaceTextFromSpellingChecker = True
        .CorrectKeyboardSetting = False
        .DisplayAutoCorrectOptions = True
        .CorrectTableCells = True
    End With
    With Options
        .LabelSmartTags = False
        .DisplaySmartTagButtons = True
    End With
End Sub

[download]
### PERL SCRIPT 
#!C:\Perl\bin\perl5.8.4.exe
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
system("set PERL5OPT=-MWild");
my $file = $ARGV[0] or die  "Perl says: $!\n\nThis means:\nSyntax 
is...\n\tpq_jnl_conv.pl filename(s)\n";
my $Word = Win32::OLE->new('Word.Application', 'Quit');

while ( $file = shift) {
print "$file.html\n";
# $Word->{'Visible'} = 1;         # if you want to see what's going on
$Word->Documents->Open("$file") || die("Unable to open document $file\
+n", 
Win32::OLE->LastError());


$Word->ActiveDocument->SaveAs
    (
        { FileName => "$file.html", FileFormat => FormatHTML }
    );
}

[download]

Replies are listed 'Best First'.
Re: Win32::OLE Word Macro Conversion
by maa (Pilgrim) on Nov 24, 2004 at 13:11 UTC

    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
[reply]
[d/l]
[select]
      That's cracked it! Thank you!
[reply]

      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

[reply]
[d/l]
[select]
        That's Just Dandy. Thanks again!
[reply]

Back to Seekers of Perl Wisdom