ContentControl 值（目标地址）

Question

我目前正在使用 Microsoft Word 2016 中的内容控件。在 excel 中有 "Intersect(Target, Range(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

基本上我只希望在用户退出内容控件 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

ContentControl 值（目标地址）

ContentControl Value (Target Address)

vba

ms-word

word-contentcontrol