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

В настоящее время я работаю с контролем содержимого в 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.


vba ms-word word-contentcontrol
person AJ1225    schedule 24.09.2018    source источник

Ответы (1)


arrow_upward
-1
arrow_downward

Пытаться:

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
person macropod    schedule 25.09.2018
comment
Не работает должным образом и проблема компилятора в конце выбора. Что мне нужно, так это местоположение, если я выберу определенные элементы управления содержимым. - person AJ1225; 27.09.2018
comment
Упс - как-то туда закрался ложный выбор конца. Исправлено. - person macropod; 27.09.2018