Word: Styles - Cleaning up

There are three steps to cleaning up unused Styles in Word:

Step 1: Remove Unused Styles

See https://www.techrepublic.com/article/delete-unused-styles-using-vba-word/ 

Note that the other method using inUse (see https://answers.microsoft.com/en-us/msoffice/forum/all/remove-all-unused-styles-in-style-pane-at-once/bec9aafa-b719-46d1-9c37-d2eaa79da22c) doesn't delete all unused Styles - it only deletes styles that have never been used (https://learn.microsoft.com/en-us/office/vba/api/word.style.inuse).

Sub DelUnusedStyles()

'Delete all unused styles, except for built-in styles,

'in the current document.

'You can't delete built-in styles.

Dim s As Style

For Each s In ActiveDocument.Styles

    'Only execute With if current s isn't a built-in style.

    If s.BuiltIn = False Then

        With ActiveDocument.Content.Find

            .ClearFormatting

            .Style = s.NameLocal

            .Execute FindText:="", Format:=True

            If .Found = False Then s.Delete

        End With

    End If

Next

End Sub

STEP 2: Turn off Style tracking

In File > Options

Step 3: Turn off Paragraph and Text Styles

(see https://answers.microsoft.com/en-us/msoffice/forum/all/document-is-still-keeping-track-of-formatting/b93dd7b1-bfe1-4d9d-aa65-bd1068ee72e2?utm_source=pocket_saves)

Activate the Styles Pane by pressing CTRL-ALT-SHIFT-S.