Значение ContentControl (целевой адрес)

Question

В настоящее время я работаю с управлением контентом в Microsoft Word 2016. В Excel есть функция «Пересечь (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

По сути, я хочу, чтобы ContentControl активировался только в том случае, если человек выходит из Contentcontrols 8,11,14.

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