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

Question

是否有方法禁用消息(默认情况下文档是可编辑的)：

要修改文档，请单击“编辑文档”，然后单击带有文本“编辑文档”的按钮。

我找不到一个词来做这件事。另外，我看不出有一种方法可以让VB宏用键笔画来完成这个任务。我使用了一个小的自动热键脚本来定位鼠标并单击这个提示符，但是这并不总是有效的，因为它取决于窗口的位置。无法使用选项卡键到达此提示符。

我必须每天从sharepoint修改关于50+文档的内容，理想情况下，我希望将它与另一个宏结合起来，后者为我进行其他自动处理。但是我找不到一个VB解决方案来点击编辑按钮。

Answer 1

根据您的安全设置(您提到它们被阻止)，这可能起作用，也可能不起作用。

在Word启动文件夹中创建一个启用宏的新模板(通常在C:\UsersYourID\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

基本上，这将钩住您需要的任何应用程序事件--在本例中是ProtectedViewWindowOpen事件或ProtectedViewWindowActivate事件(两者都应该工作)。

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

Option Explicit
Private hook As AutoEditEnable

Private Sub Document_Open()

    Set hook = New AutoEditEnable

End Sub

关闭Word并重新启动它，然后确保新模板显示为加载的外接程序。