Word VBA：如何使用内容控件元素更改 table 中的另一个单元格？

Question

在 Word 中，table 中的下拉内容控件元素如何更改 table 中另一个单元格的背景颜色和文本？

我的 table 看起来像这样：

+------------------+
| {{ changeHere }} |
+------------------+
| dropDown         |
+------------------+

如果我想更改下拉菜单所在的单元格，我可以使用以下代码：

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)

With ContentControl.Range
    If ContentControl.Title = "Color" Then
    
        Select Case .Text
            Case "Yellow"
                .Cells(1).Shading.BackgroundPatternColor = wdColorYellow
            Case "Red"
                .Cells(1).Shading.BackgroundPatternColor = wdColorRed
        End Select

    End If
End With
End Sub

我试图通过更改 .Cells(index) 中的数字来访问另一个单元格，但我刚收到一条错误消息，因为找不到具有另一个索引的单元格。

Answer 1

通过指定其 X,Y 坐标（索引从 1 开始）访问基础 Tables property first, then select the correct cell from the Cells 集合：

With ContentControl.Range
'                   X  Y
    .Tables(1).Cell(1, 1).Shading.BackgroundPatternColor = wdColorAutomatic
    .Tables(1).Cell(1, 1).Range.Text = ""
End With

Word VBA：如何使用内容控件元素更改 table 中的另一个单元格？

Word VBA: How to change another cell in a table with a content control element?

vba

ms-word