Word vba - 如果光标位于单元格/书签中 - 运行代码

Question

我有一个模板文档，其中包含几个部分和一些表格。 问题是，我试图在表中的单元格内插入一个下拉列表。 为了使下拉列表发挥作用，需要保护文档。 但是，如果我保护表所在的整个部分，则整个表都会受到保护。

所以，我想知道是否有一种方法可以在用户单击下拉列表时执行宏代码？ 然后，代码将保护文档，使控件实际工作，然后选择一个选项，当用户在字段之外单击时，文档应该不受保护。

这可能吗？

Answer 1

实际上，Word VBA 中有一个 WindowSelectionChange 事件可供您使用。 Word VBA 帮助文件中的“将事件与应用程序对象一起使用”下对此进行了描述。

诀窍是使用 WithEvents 关键字将您的应用程序分配给类模块（我将其命名为 EventClassModule）中的变量：

Public WithEvents App As Word.Application

然后在普通的 Document Open 事件中，您可以将该变量初始化为当前应用程序：

Dim oEvents As New EventClassModule
Private Sub Document_Open()
    Set oEvents.App = Word.Application
End Sub

返回 EventClassModule，您可以使用 WindowSelectionChange 事件来检查选择是否是表格：

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
    If Sel.Information(wdWithInTable) And ThisDocument.ProtectionType = wdNoProtection Then
        ThisDocument.Protect wdAllowOnlyFormFields
    ElseIf ThisDocument.ProtectionType <> wdNoProtection Then
        ThisDocument.Unprotect
    End If
End Sub

每当光标更改位置时都会调用此代码。 我测试了它，它有点挑剔（oEvents 对象由于某种原因倾向于未初始化），但希望这将是您解决方案的开始。

Answer 2

您可以使用控件工具栏中的组合框，而不是使用表单工具栏中的下拉框。 然后您可以使用 ComboBox 单击事件。 您还可以将代码附加到当用户在 ComboBox 外部单击时的 GotFocus/LostFocus 事件。