How to reset building block gallery content control

[ericliu24]

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

[Guessed]

Try this version

Sub ResetCCs()
  Dim aCC As ContentControl, iType As Integer
  For Each aCC In ActiveDocument.ContentControls
    With aCC
      Select Case .Type
        Case wdContentControlText, wdContentControlRichText, wdContentControlDate
          .Range.Text = ""
        Case wdContentControlComboBox, wdContentControlDropdownList
          .DropdownListEntries(1).Select
        Case wdContentControlCheckBox
          .Checked = False
        Case wdContentControlBuildingBlockGallery
          iType = .Type
          .Type = wdContentControlRichText
          .Range.Text = ""
          Do While .Range.Tables.Count > 0
            .Range.Tables(1).Delete
          Loop
          .Type = iType
      End Select
    End With
  Next aCC
End Sub

[ericliu24]

Many thanks Andrew,

If the building block is table , .Range.Text = "" throws the error 6192, inappropriate range.

Any fix for this ?

[Guessed]

I've amended the code to remove any tables which might be in the Content Control when you try to clear it.

[ericliu24]

The code erases the category and type of the content control. I would like all the properties remain the same but reset it to the "unselected" initial status.

please see the attached file

[Italophile]

There are tools available in the Visual Basic Editor to help you answer questions like this: IntelliSense, the Object Browser, online help.

Sub ResetCCs()
    Dim aCC As ContentControl, iType As Integer
    Dim bbCat As String, bbType As Long
    For Each aCC In ActiveDocument.ContentControls
        With aCC
            Select Case .Type
                Case wdContentControlText, wdContentControlRichText, wdContentControlDate
                    .Range.Text = ""
                Case wdContentControlComboBox, wdContentControlDropdownList
                    .DropdownListEntries(1).Select
                Case wdContentControlCheckBox
                    .Checked = False
                Case wdContentControlBuildingBlockGallery
                    iType = .Type
                    bbType = .BuildingBlockType
                    bbCat = .BuildingBlockCategory
                    .Type = wdContentControlRichText
                    .Range.Text = ""
                    Do While .Range.Tables.Count > 0
                        .Range.Tables(1).Delete
                    Loop
                    .Type = iType
                    .BuildingBlockType = bbType
                    .BuildingBlockCategory = bbCat
            End Select
        End With
    Next aCC
End Sub

[ericliu24]

It works.
Can't thank you enough.