如何从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