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

任何帮助深表感谢！