VBScript, geöffnet Schreibgeschützte Dokumente im Bearbeitungsmodus - Word 2013

Question

Ich habe mich bemüht, ein schreibgeschütztes Dokument im Normal-/Bearbeitungsmodus statt im Lesemodus mit MS Word 2013 zu öffnen aktiviert die Startoption "E-Mail-Anhänge und andere nicht editierbare Dateien in Leseansicht öffnen".

Wie würde ich vorgehen, diese Option zu deaktivieren oder die Ansicht von Lesen in Normal/Bearbeiten zu ändern, wenn das Dokument geöffnet wird. (Ich brauche das Dokument zu halten als schreibgeschützt, da sie von mehreren Personen auf einmal abgerufen werden könnten)

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

Ich habe versucht, den Ansichtsmodus unter Verwendung des oben zu setzen, sondern erhielt den ein Fehlercode unten. Ich habe mir andere Variationen von Zeile 3 angeschaut, kann sie aber nicht zum Laufen bringen. Ich arbeite immer noch daran, VBScript zu lernen, also gehe ich davon aus, dass ich das nicht richtig mache.

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

Danke.

Answer 1

Sie verwenden VBScript - es versteht nicht, was wdNormalView bedeutet. Dies ist ein interner Wert für VBA10. Sie müssen den tatsächlichen Wert für diese Konstante finden und diesen stattdessen anwenden. Die Konstante ist eine WdViewType und die Werte sind wie folgt:

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. 

So ist die Option, die Sie wählen möchten, 1. den folgenden Code versuchen und sehen, ob das funktioniert:

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