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