I can delete the gallery from the ribbon, but I'd like to get rid of the million (+/- 1) versions of the colorful styles that just clutter my style lists

Tables Styles.jpg


Didn't see any way to delete from the UI so tried a macro which didn't work just as well

Option Explicit


Sub Macro1()
    Dim i As Long
    
    For i = ActiveDocument.Styles.Count To 1 Step -1
        With ActiveDocument.Styles(i)
            
            If .Type = wdStyleTypeTable Then
                
                On Error GoTo ErrHandle1
                Debug.Print i, .BuiltIn, .NameLocal
                
                On Error GoTo ErrHandle2
                .Delete
            End If
        End With
        
        On Error GoTo 0
    Next
    
    Exit Sub
    
ErrHandle1:
    Debug.Print "No NameLocal for " & ActiveDocument.Styles(i).NameLocal
    Resume Next
    
ErrHandle2:
    Debug.Print "Could not delete " & ActiveDocument.Styles(i).NameLocal
    Resume Next
    
End Sub