VBA: Как вы перебираете элементы управления контентом, выбранные с помощью тегов, и заменяете их текст одним значением?

Question

Я очень новичок в VBA и использую его в MS Word 2016. У меня есть текстовое поле ActiveX (conFull) для полного имени, и я хочу вытащить имя и заполнить его по всему документу. Я заставил это сработать один раз, и затем Word застыл на мне с каждой последующей попыткой. Что я здесь не так делаю?

Вот мой код:

Private Sub conFull_LostFocus()
    For Each ContentControl In ActiveDocument.SelectContentControlsByTag("nameTag")
        With ContentControl
            .Range.Text = Split(conFull.Text, " ")(0)
        End With
    Next
End Sub

Любая помощь очень ценится!