VBScript，在编辑模式下打开只读文档-Word 2013

我一直在努力寻找一种方法，用MS Word 2013在正常/编辑模式下打开只读文档，而不是在阅读模式下打开。Word 2013默认启用启动选项“在阅读视图中打开电子邮件附件和其他不可编辑的文件”

打开文档时，如何禁用此选项或将视图从“读取”更改为“正常/编辑”视图。（我需要将文档保持为只读，以防多人同时访问）

我曾尝试使用上述设置查看模式，但收到如下所示的错误代码。我查看了第3行的其他变体，但无法使其工作。我仍然在努力学习VBScript，所以我认为我做得不对

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

---

谢谢。

您使用的是

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

---

成功了！非常感谢，也感谢您的详细回复。

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