☰

Word VBA-从下拉列表内容控件获取值以对表中的单元格进行着色

tag-icon • tag-icon microsoft-word vba
Word VBA-从下拉列表内容控件获取值以对表中的单元格进行着色

尝试根据下拉 CC 为单元格着色。这是我得到的结果 - 不起作用，出现“需要对象”错误。我在文档中添加了下拉 CC，并将其命名为 dropdown1。

我猜我没有正确启动对象，或者 doc.ContentControls("dropwdown1").Result 引用不起作用。你能帮我吗？

另外，在 VBA 中是否有办法查看文档中已有的所有 CC 对象并查看它们的名称/标签，以便我知道如何引用它们？

Private Sub color(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim i As Long
 Dim tbl As Table, rw As Row, v1
    Set tbl = ActiveDocument.Tables(1)
    
With ContentControl
  If .Title = "dropdown1" Then
  For i = 1 To .DropdownListEntries.Count
    If .DropdownListEntries(i).Text = "HIGH" Then
            rw.Cells(1).Shading.BackgroundPatternColor = RGB(0, 250, 0)
            Else
            rw.Cells(1).Shading.BackgroundPatternColor = RGB(250, 250, 250)
      Exit For
    End If
  Next
  End If
End With
End Sub

相关内容