http://www.perlmonks.org?node_id=369434


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

Running this code, I was prompted to save my document and confirm its name. Is there a way to force the document to save and accept the name given, without user interaction?

Replies are listed 'Best First'.
Re^3: Win32::ole and MSWord
by binf-jw (Monk) on Aug 19, 2008 at 13:58 UTC
    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;

    [download]
    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}
        }
        );

    [download]
[reply]
[d/l]
[select]
      And five years later :-)
[reply]

In Section Code Catacombs