"type mismatch" in Word

[esr]

I am using Win32::OLE to interact with Word and I am getting an error which I can't see the reason for. The Perl code is opening a .txt file, running a macro, and then trying to save the file as a Word document (.doc). The SaveAs call precipitates an error which says: Win32::OLE<0.1603> error 0x80020005: "Type mismatch" in METHOD/PROPERTYGET "SaveAs" argument 4 in blahblah line 1318. As near as I can tell, the code I have written is the same as examples I have seen of how to read a text file and save as a Word document. The code snippet is as follows:

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
$word = Win32::OLE->GetActiveObject('Word.Application')
     || Win32::OLE->new('Word.Application');
$mydoc = $word->Documents->Open($xfile);
$word->Run("tskedfmt");
($xfn) = $xfile =~ m/(.*)\.txt$/;
$xfn .= "\.doc";
$mydoc->SaveAs(FileName => "$xfn", FileFormat => wdFormatDocument);
$word->{Visible} = 1;

What am I missing?

[bmann]

If you want to use named parameters with Office and OLE, use a hashref.

$mydoc->SaveAs( {FileName => "$xfn", FileFormat => wdFormatDocument} );

[diotalevi]

Perhaps you can't use named parameters like that. I looked up the positional arguments for .SaveAs and the first two are FileName and FileFormat. Try that again as $mydoc->SaveAs( $xfn, 'wdFormatDocument' ).

[tachyon]

As noted you need to pass a hash ref. There is also another method that works....

my $doc = $word->{Documents}->Open($infile);

# either use this
$doc->SaveAs( { FileName => $outfile, FileFormat => wdFormatText } );

# or you can do this
$word->WordBasic->FileSaveAs($outfile);

[fglock]

See this: FIX: Type Mismatch Using OLE Automation to Word 97

... some of the methods used in Word 97 VBA return errors back to the client application. When an error is returned to the client application, ... , it may be necessary to use older Word Basic statements and functions in conjunction with the newer Word.Application methods and properties. ...

They give some examples on how to do it.

[jimbojones]

I ran your code, without the macro, and with the hashref, and it saved correctly as a Word binary document. I also fixed the line $xfn .= "\.doc"

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';;

my $xfile = "C:/Documents and Settings/jim/My Documents/perlmonks_exam
+ples/temp.txt";

$word = Win32::OLE->GetActiveObject('Word.Application')
     || Win32::OLE->new('Word.Application');

$mydoc = $word->Documents->Open($xfile);

#$word->Run("tskedfmt");

($xfn) = $xfile =~ m/(.*)\.txt$/;

$xfn .= ".doc";
$mydoc->SaveAs( {FileName => "$xfn", FileFormat => wdFormatDocument} )
+;
$word->{Visible} = 1;

- j

[esr]

The previous two responses were helpful and led to some further experimentation. The hash reference is definitely needed but it did not get rid of the "type mismatch" error. It is the FileFormat parameter that is causing the error msg. The SaveAs works without the error message if I omit the FileFormat parameter entirely but the file that is saved is saved in text format even though it may have the .doc extension. In short, the formatting settings are lost. The WordBasic FileSaveAs also does that. So while there is progress there is still something that prevents the FileFormat parameter from being accepted.

[esr]

Thanks for all the comments but I could not get the SaveAs to work as long as I used the <mumble> constant name. When I finally replaced the "wdFormatDocument" with its value of "0" it worked just fine. BTFSPLK! This is on an XP Pro system using Office 2003 and ActivePerl -- if this is helpful to anyone else.

[esr]

Well, DUH! After I posted the last item I found the problem. I had included the line

use Win32::OLE::Const 'Microsoft Excel';

but I had a typo in the line

use Win32::OLE::Const 'Microsoft Word';

However the error message "text mismatch" was certainly not obvious to me as an indicator of the problem. :-(