Question

我一直在努力寻找一种方法来打开普通/编辑模式下的只读文档，而不是使用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

感谢。

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

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

1 个答案: