For autotext or dropdownlist, we could set .range.text ="" to reset them.

But for building block gallery content control (category is table), how to do it?

Many thanks.

Sub ResetCC()
Dim ct1 As ContentControl
Dim String1 As String
For Each ct1 In ActiveDocument.ContentControls
If ct1.Type=wdContentControlDropdownList Then
ct1.Type = wdContentControlText
ct1.Range.Text = ""


ct1.Type = wdContentControlDropdownList

End If

If ct1.Type=wdContentControlBuildingBlockGallery Then
' how to reset?
End If

Next
End Sub