VB 宏用于在从共享点打开 word 文档时禁用 "Edit Document" 提示

Question

有没有办法禁用消息（并使文档默认可编辑）：

服务器文档要修改文档，请单击“编辑文档”，然后单击带有文本 "Edit Document" 的按钮。

我找不到执行此操作的单词设置。此外，我看不到制作 VB 宏来通过击键执行此操作的方法。我使用了一个小的 autohotkey 脚本来定位鼠标并单击此提示，但这并不总是有效，因为它取决于 window 的位置。无法使用 Tab 键进入此提示。

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

Answer 1

根据您的安全设置（您提到它们被阻止），这可能有效也可能无效。

在您的 Word 启动文件夹（通常位于 C:\Users[您的 ID]\AppData\Roaming\Microsoft\Word\STARTUP）中创建一个启用宏的新模板，并添加一个新的 class 模块。我叫我的 "AutoEditEnable"。你可以给它起任何名字，但你需要它与你在另一个模块中声明它的方式相匹配。

此代码位于 class:

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 并重新启动它，然后确保您的新模板显示为已加载的加载项。

VB 宏用于在从共享点打开 word 文档时禁用 "Edit Document" 提示

VB macro to disable "Edit Document" prompt when opening a word document from sharepoint

sharepoint

vba

ms-word