VBA传递ContentControl标题为函数参数触发5941错误求排查

我需要实现一个VBA功能：点击按钮后，将指定ContentControl的内容复制到剪贴板。最初为每个按钮编写独立Sub的方式可以正常运行，代码如下：

Private Sub DemandeAvec_Click()
    Dim obj As New DataObject
    Role = ActiveDocument.SelectContentControlsByTitle("Rôle")(1).Range.Text
    PusleDemande = ActiveDocument.SelectContentControlsByTitle("Demande")(1).Range.Text
    obj.SetText Role & vbNewLine & vbNewLine & PusleDemande
    obj.PutInClipboard
End Sub

为了简化代码，我尝试创建通用函数，将ContentControl的标题作为参数传递，但点击按钮时触发错误代码5941（集合成员不存在），相关代码如下：

Function ClicBoutonRole(PulseName As String) As String
    Dim result As New DataObject
    Dim PulseFinder
    Role = ActiveDocument.SelectContentControlsByTitle("Rôle")(1).Range.Text
    PulseContent = ActiveDocument.SelectContentControlsByTitle("**PulseName**")(1).Range.Text
    result.SetText Role & vbNewLine & vbNewLine & PulseContent
    result.PutInClipboard
End Function

' 按钮对应的Sub
Sub ModificationsSCAvec_Click() 
    Dim PulseName As String
    PulseName = ModificationsSC ' ModificationsSC是要关联的ContentControl的标题
    ClicBoutonRole (PulseName)
End Sub

错误原因 #

• 参数未正确使用：函数里的SelectContentControlsByTitle("**PulseName**")把变量名当成了固定字符串，VBA会去查找标题为PulseName的控件，而非你传入的实际标题值。应该直接用变量PulseName，去掉引号和星号。
• 变量赋值错误：PulseName = ModificationsSC中，ModificationsSC是字符串标题，需要加引号写成PulseName = "ModificationsSC"，否则VBA会将其视为未定义的变量，导致PulseName为空，进而找不到对应控件。
• 未处理控件不存在的情况：直接用SelectContentControlsByTitle("xxx")(1)访问集合元素，如果没有找到对应标题的控件，会直接触发5941错误。
• 函数设计不合理：ClicBoutonRole定义为返回String的函数，但实际不需要返回值，改成Sub更合适；同时代码里的Role、PulseContent未声明，容易引发隐式声明的问题。

修正后的代码示例 #

' 通用复制Sub：传入目标ContentControl的标题
Sub CopyToClipboard(targetCCName As String)
    Dim clipboardObj As New DataObject
    Dim roleCC As ContentControl
    Dim targetCC As ContentControl
    
    ' 获取标题为"Rôle"的控件
    Set roleCC = GetContentControlByTitle("Rôle")
    ' 获取目标控件
    Set targetCC = GetContentControlByTitle(targetCCName)
    
    ' 确认两个控件都存在再执行复制
    If Not roleCC Is Nothing And Not targetCC Is Nothing Then
        clipboardObj.SetText roleCC.Range.Text & vbNewLine & vbNewLine & targetCC.Range.Text
        clipboardObj.PutInClipboard
    Else
        MsgBox "未找到指定的内容控件，请检查标题是否正确！"
    End If
End Sub

' 辅助函数：根据标题安全获取ContentControl
Function GetContentControlByTitle(ccTitle As String) As ContentControl
    Dim ccCollection As ContentControls
    Set ccCollection = ActiveDocument.SelectContentControlsByTitle(ccTitle)
    
    If ccCollection.Count > 0 Then
        Set GetContentControlByTitle = ccCollection(1)
    Else
        Set GetContentControlByTitle = Nothing
    End If
End Function

' 按钮点击事件Sub
Sub ModificationsSCAvec_Click()
    ' 直接传入目标ContentControl的标题字符串
    CopyToClipboard "ModificationsSC"
End Sub

内容的提问来源于stack exchange，提问作者Nicolas Simon