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

【问题标题】：VBScript, open Read-only documents in edit mode - Word 2013VBScript，在编辑模式下打开只读文档 - Word 2013
【发布时间】：2018-10-17 06:46:37
【问题描述】：

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

当文档打开时，我将如何禁用此选项或将视图从阅读更改为正常/编辑视图。（我需要将文档保持为只读，因为它可能会被多人同时访问）

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

我尝试使用上述设置查看模式，但收到如下所示的错误代码。我查看了第 3 行的其他变体，但无法使其正常工作。我仍在努力学习 VBScript，所以我假设我没有以正确的方式做到这一点。

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

谢谢。

【问题讨论】：

标签： vbscript ms-word

【解决方案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

【讨论】：

做到了！非常感谢，也感谢您的详细回复。