Come posso aprire un documento di Word in sola lettura da Perl?

Question

Esiste qualche metodo in Perl che mi consenta di ottenere l'oggetto in una modalità di sola lettura, in modo da evitare la finestra di dialogo che si apre se il file è bloccato da un altro utente?

$document = Win32::OLE->GetObject("$docFile") 
    or die "can't open $docFile"; 

Answer 1

Questo perché lo stai facendo male. GetObject apre semplicemente un oggetto con il comportamento predefinito. È necessario creare l'oggetto Word.Application:

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

quindi utilizzare il metodo di raccolta DocumentsOpen con il parametro di nome ReadOnly. In questo modo: http://msdn.microsoft.com/en-us/library/bb216319.aspx

$doc = $word->Documents->Open({ FileName => $document_path, 
           , ReadOnly => 1 
           }); 

Leggi per la sintassi per Documents.Open