VBScript、編集モードで読み取り専用文書を開きます - Word 2013

Question

MS Word 2013で読み取りモードではなく、読み取り専用文書を標準/編集モードで開く方法を見つけるのに苦労しています。起動オプションで「閲覧用の電子メール添付ファイルや編集不可能なファイルを開く」を有効にします。

このオプションを無効にするか、ドキュメントを開いたときにビューを[読み取り]から[標準/編集]ビューに変更するにはどうすればよいですか。私は上記を使用して、表示モードを設定しようとしたが、以下に示すエラーコードを受信した

Set objWord = CreateObject("Word.Application") 
Set objDoc = objWord.Documents.Open(documentPath,,True) 
objWord.ActiveWindow.ActivePane.View.Type = wdNormalView 

（I読み取り専用としてそれを一度に複数のユーザーによってアクセスされるかもしれないように文書を維持するために必要）。私は3行目の他のバリエーションを見ましたが、動作させることはできません。私はまだVBScriptを学ぶために働いていますので、私はこれを正しい方法でやっていないと仮定しています。

Error: One of the values passed to this method or property is out of range 
Code: 800A16D3 
Source: Microsoft Word 

ありがとう。

Answer 1

あなたはVBScriptを使用しています - 何を意味するのかわかりませんwdNormalViewこれはVBAの内部値です。この定数のために保持されている実際の値を見つけて、それを代わりに適用する必要があります。定数はWdViewTypeで、次のような値は以下のとおりです。

Name   Value Description 
wdMasterView 5  A master view. 
wdNormalView 1  A normal view. 
wdOutlineView 2  An outline view. 
wdPrintPreview 4  A print preview view. 
wdPrintView  3  A print view. 
wdReadingView 7  A reading view. 
wdWebView  6  A Web view. 

だから、あなたが選択するオプションは、次のコードを試してみて、これが動作するかどうかを確認1.次のとおりです。

Set objWord = CreateObject("Word.Application") 
Set objDoc = objWord.Documents.Open(documentPath,,True) 
objWord.ActiveWindow.ActivePane.View.Type = 1