[BetterRed]

I've noticed that in my conversions to DOCX, from poor quality input, I get a boatload of styles. After tidying up the documents, all styles are still there. Here's a macro to delete unused styles from a document, use it after you've done your editing.

Sub DeleteUnusedStyles()
    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

Whoops - and thanks for the new feature Kovid - appears to have been a non-trivial piece of work

BR