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


in reply to Re^2: Win32::ole and MSWord
in thread Win32::ole and MSWord

4 Years late but may be useful to others, Haven't read all the code but i've used this statement when i've been using OLE
$Active::Document->{Saved} = 1; $Active::Document->Close;
Although to be honest, You're better to use the save as like Kenny did. Here's some more on SaveAs() method if anyone needs an example:
my $MSDN_const = { %{ Win32::OLE::Const->Load("Microsoft Word 11.0 Object Library +") } }; # Save as normal MS Word document $Active::Document->SaveAs( { FileName=>'C:\\My_Word_Document.doc', FileFormat=>$MSDN_const->{wdFormatDocument} } ); # Save in XML format $Active::Document->SaveAs( { FileName=>'C:\\My_XML_Document.xml', FileFormat=>$MSDN_const->{wdFormatXML} } );