Vba 防止以只读方式打开word文档，编译错误_Vba_Ms Word

Vba 防止以只读方式打开word文档，编译错误

vba ms-word

Vba 防止以只读方式打开word文档，编译错误,vba,ms-word,Vba,Ms Word,我正在使用一个Excel模型，该模型从网站中提取word文档并将其打开，我正在尝试插入一行代码以确保该文档不会以只读视图打开。具体来说，当用户选中“在阅读视图中打开电子邮件附件和其他不可编辑的文件”时，会出现一个错误，当您单击word文档上的文件->选项时，会出现该错误。因此，我试图确保在打开word doc时此框未选中。我做了一些调查，并对这条线进行了分析 “ActiveWindow.View.ReadingLayout=False” 看起来它应该可以工作，但是我收到一条错误消息，上面写着“c

我正在使用一个Excel模型，该模型从网站中提取word文档并将其打开，我正在尝试插入一行代码以确保该文档不会以只读视图打开。具体来说，当用户选中“在阅读视图中打开电子邮件附件和其他不可编辑的文件”时，会出现一个错误，当您单击word文档上的文件->选项时，会出现该错误。因此，我试图确保在打开word doc时此框未选中。我做了一些调查，并对这条线进行了分析 “ActiveWindow.View.ReadingLayout=False” 看起来它应该可以工作，但是我收到一条错误消息，上面写着“compileerror:Invalid Qualifier”，它突出显示了我刚才添加的行。其余的代码不是我写的，不能更改。我有什么办法可以做到这一点吗？这是代码的一部分

Dim objWord
Dim objDoc

Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Open("https://WebsiteRedacted")
'Opens up the template

objWord.Visible = True

ActiveWindow.View.readinglaout = False
'The line I added in

Excel有一个

ActiveWindow

对象。您希望使用Word实例的窗口（假设

.View.ReadingLayout=False

将获得最终结果，但不确定）。请尝试使用

文档。添加而不是文档。打开@braX我尝试了此操作，但仍然出现错误。视图会突出显示错误消息，因此我认为这可能与that@BigBenWord实例的窗口是什么？这是我将要做的更改，而不是代码的ActiveWindow部分吗？谢谢objWord。ActiveWindow
指Word中的窗口ActiveWindow
单独是隐式的Application.ActiveWindow
，指的是Excel（Application
），而不是Word实例。