Type mismatch when using SelectContentControlsByTitle in a very simple subroutine

Question

Sub Demo()
Dim CCtrl As ContentControl
'On Error Resume Next
Set CCtrl = ThisDocument.SelectContentControlsByTitle("qwe123")
If CCtrl Is Nothing Then
Debug.Print "found nothing"
End If
Set CCtrl = Nothing
End Sub

The above code fails with "type mismatch" unless I uncomment "On error resume next". Can someone explain the reason for this?

Answer 1

I think that the error indicates that SelectContentControlsByTitle does not return a Content Control.

According to documentation, try this:

Dim CCtrls As ContentControls  
Set CCtrls = ThisDocument.SelectContentControlsByTitle("qwe123")  
If CCtrls.Count = 0 Then  
    Debug.Print "found nothing"  
Else  
    ' get the first found control '  
    Dim cc As ContentControl  
    Set cc = CCtrls(1)  
    ' ...  
End If  

Answer 2

Thanks Viorel-1