具有.docm扩展名的word文档中的vba代码的说明

Question

我有一个.docm格式的Microsoft Word文档。 乍一看它不包含任何宏（如在功能区上单击以下内容时; View - > Macros - > View macros弹出一个具有空列表的窗口）。

但是，当启用Developer功能区选项卡，然后单击其中的Visual Basic图标，然后从VB窗口的下拉列表中选择Document and ContentControlonEnter ，将显示以下代码：

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
Dim i As Long, j As Long
With ActiveDocument
  If ContentControl.Title = "Classification" Then
ContentControl.DropdownListEntries.Clear
For i = 1 To .ContentControls.Count
  If Left(.ContentControls(i).Title, 5) = "Level" Then
    j = j + 1
    ContentControl.DropdownListEntries.Add Text:=j & " - " & .ContentControls(i).Range.Text
  End If
Next
  End If
End With
End Sub

选择下拉列表中的其他选项仅提供“空白”代码（即它们仅包含函数声明，后跟End关键字）。

---

我的问题是代码的意图是什么？

---

*

• 细节：
• 有问题的Word文档包含指向同一文档部分的超链接以及指向同一文件夹的Word文件和Excel文件的几个链接。 它还包含许多内容控制框，我猜测它是代码的焦点（因为代码包含ContentControl关键字）

Answer 1

内容控件可以在用户输入和退出宏时触发宏。 Microsoft做出了设计决定，即所有内容控件都应触发相同的“事件” - Document_ContentControlOnEnter / Document_ContentControlOnExit - 并且事件中的代码需要检查输入/退出的内容控件。

内容控件被视为文档的一部分，因为文档可以触发事件。 这就是为什么他们在（并且必须在）ThisDocument 类模块中。

（注意：查看宏只能显示没有参数的PUBLIC SUB过程，这些过程位于“普通”代码模块中。任何私有子，任何函数，任何带参数的东西以及类模块中的任何内容都不会出现在该列表中。因此，您无法使用该列表来确定文档是否包含任何代码。）

If ContentControl.Title = "Classification" Then检查输入了哪个内容控件。 （注意：使用Select Case而不是If通常更有意义，特别是当事件需要区分多个内容控件时。）If中的内容只有在具有Title“Classification”的内容控件时才会执行。 （请注意，多个内容控件可以具有相同的标题，因此可以运行多个内容控件。）

如果输入了另一个内容控件，则仍会触发该事件，但不会发生任何事情（在本例中）。

Catalin Pop正确地解释了代码本质上是“重置”下拉列表。

旧版表单字段使用类似的模式 - 当用户输入/退出表单字段时，宏可以触发。 但是为此设计的是你必须创建一个Public Sub并将其分配给Properties中的表单字段。

Answer 2

我认为这里的逻辑非常简单。 基本上，代码在整个文档中搜索名为Classification的内容控件。 找到它之后，它会清除所有的drowdown条目 - 比如重置。 在清洁部分之后，它再次在整个文档中搜索以“Level”开头的所有内容控件，并收集这些控件的文本及其外观顺序。

收集此信息后，填写上面的分类控制的下拉选项。 （例如，1级X，2级Y .. - 基于它在文档中找到的名称中以Level开头的控件）