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}
}
);
|