如何从 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' );

然后使用带有命名参数 ReadOnly 的 Documents 集合 Open 方法。像这样：

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

阅读 http://msdn.microsoft.com/en-us/ library/bb216319.aspx 了解 Documents.Open 的语法