Word automation. CC checkboxes should be inserting a quick part into a cc richtext field
<p>I have several cc checkboxes that need to insert a specific / relevant quickpart into an associated rich text field... but it's not working!!! I'm just trying to get one checkbox ("AQA_Yes") working and then will add the others. One the check box is selected, it should be inserting the quick part "Recall" into the rich text field "CC_All". If the check box is de-selected, then the quickpart should be removed and the rich text field set to a width of 0. The first error occurs on the "Select Case ContentControl.Title" line -- Run-Time Error '424': Object Required.  The next problem is trouble defying the "objBB.Insert Selection.Range" line. I need to modify the line so that it inserts the Recall quickpart into the CC_All rich text field; but I'm not certain of the code here.</p>

<pre><code>Sub CheckBox_Click()
    Select Case ContentControl.Title
    Case "AQA_Yes"
        recallObj = "Recall"
        RichText = True
        If ContentControl.Checked Then
            InsertExistingBuildingBlock ("Recall")
        End If
    End Select
End Sub

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
    Call CheckBox_Click
End Sub

Sub InsertExistingBuildingBlock(BuildingBlockTitle As String)
    Dim objTemplate As Template
    Dim objBB As BuildingBlock
    Dim cc As ContentControl
    Set cc = ThisDocument.SelectContentControlsByTag("CC_All")
    Set ccObj = Selection
    ' Set the template to store the building block
    Set objTemplate = ActiveDocument.AttachedTemplate
    ' Access the building block through the type and category
    Set objBB = objTemplate.BuildingBlockTypes(wdTypeQuickParts) _
    .Categories("General").BuildingBlocks(BuildingBlockTitle)
    ' Insert the building block into the document replacing any selected text.
    objBB.Insert Selection.Range
End Sub

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, _
        Cancel As Boolean)
    Call CheckBox_Click
End Sub
</code></pre>