Microsoft Office Forums - View Single Post

Charles Kenyon · 08-13-2022, 11:34 AM

All documents have access to hundreds of styles built into Word. You cannot change that.
You can Restrict Editing to a selection of Styles under the Developer Tab.

You can also remove styles from the Home Tab.
Here is a macro to do that:

Code:

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
    '
    '
    Dim aStyle As Style
    On Error Resume Next
    For Each aStyle In ActiveDocument.Styles
        aStyle.QuickStyle = False
    Next aStyle
    On Error GoTo -1
End Sub

Here is a macro to remove unused custom styles from a document/template:

Code:

Sub StylesDeleteUnusedStyles()
    '   Allen Wyatt
    '   https://word.tips.net/T001337_Removing_Unused_Styles.html
    '
    Dim oStyle As Style
    '
    For Each oStyle In ActiveDocument.Styles
        'Only check out non-built-in styles
        If oStyle.BuiltIn = False Then
            With ActiveDocument.Content.Find
                .ClearFormatting
                .Style = oStyle.NameLocal
                .Execute FindText:="", Format:=True
                If .Found = False Then oStyle.Delete
            End With
        End If
    Next oStyle
End Sub