Sub StylesQuickStylesOff()
' Charles Kenyon 2018-12-03
'
' This is preparatory to saving a Quick Style Set for only certain styles
' Strips all styles from quickstyles gallery
' Do not run in a document you plan on using because you will want those other standard styles in you gallery
'
    Dim aStyle As Style
    On Error Resume Next
    For Each aStyle In ActiveDocument.Styles
        aStyle.QuickStyle = False
    Next aStyle
    On Error GoTo 0
 End Sub