如何從Perl中以只讀方式打開Word文檔？

Question

Perl中是否有任何方法可以讓我在只讀模式下獲取對象 以避免在文件被其他用戶鎖定時彈出對話框？

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

Answer 1

那是因爲你做錯了。 GetObject只是用默認行爲打開一個對象。您應該創建Word.Application對象：

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

然後使用Documents收集Open方法與命名參數ReadOnly。像這樣：

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

閱讀http://msdn.microsoft.com/en-us/library/bb216319.aspx的語法Documents.Open