vba - ContentControl 值（目标地址）

Question

我目前正在使用 Microsoft Word 2016 中的内容控制。在 excel 中有“相交（目标，范围（xx，xx）”功能，因此宏仅根据特定单元格激活。

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

ContentControls(10).Range.Text = ContentControls(8).Range.Text
ContentControls(13).Range.Text = ContentControls(11).Range.Text
ContentControls(16).Range.Text = ContentControls(14).Range.Text

End Sub

基本上，我只希望在此人从 contentcontrols 8、11、14 退出时激活 ContentControl。

Answer 1

尝试：

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
Dim i As Long
With ActiveDocument
  i = .Range(0, CCtrl.Range.End).ContentControls.Count
  Select Case i
    Case 8, 11, 14: .ContentControls(i + 2).Range.Text = CCtrl.Range.Text
  End Select
End With
End Sub