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