Question

是否有办法禁用该消息（默认情况下可以编辑该文档）：

服务器文档要修改文档，请单击编辑文档，然后单击带有文本＆＃34;编辑文档＆＃34;的按钮。

我找不到一个单词设置来执行此操作。另外我看不到用一个键击使VB宏做这个的方法。我使用了一个小的autohotkey脚本来定位鼠标并单击此提示，但这并不总是有效，因为它取决于窗口的位置。不可能使用tab键来获得此提示。

我必须每天从sharepoint修改大约50个以上的文档，理想情况下我想将此与另一个为我进行其他自动处理的宏结合起来。但是我无法找到用于单击“编辑”按钮的VB解决方案。

Answer 1

根据您的安全设置（您提到他们被阻止），这可能会也可能不会。

在Word启动文件夹中创建一个新的启用宏的模板（通常位于C：\ Users [YourID] \ AppData \ Roaming \ Microsoft \ Word \ STARTUP），然后添加一个新的类模块。我称之为“AutoEditEnable”。你可以命名它，但是你需要它来匹配你在另一个模块中声明它的方式。

此代码包含在课程中：

Option Explicit
Private WithEvents app As Application

Private Sub Class_Initialize()

    Set app = Application

End Sub

Private Sub app_ProtectedViewWindowOpen(ByVal PvWindow As ProtectedViewWindow)

    PvWindow.Edit

End Sub

基本上，这将挂钩您需要的所有Application事件 - 在这种情况下是ProtectedViewWindowOpen事件或ProtectedViewWindowActivate事件（要么应该工作）。

将以下代码放在ThisDocument中，以便在加载模板时获取对它的引用：

Option Explicit
Private hook As AutoEditEnable

Private Sub Document_Open()

    Set hook = New AutoEditEnable

End Sub

关闭Word并重新启动它，然后确保新模板显示为已加载的加载项。

VBA宏在从sharepoint打开word文档时禁用“编辑文档”提示

1 个答案: