perl - 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