Удаляет из документа Word все стили, кроме стилей по умолчанию

word.vb

Sub DelUserStyles()
    Dim objStyle As Style
    
    For Each objStyle In ActiveDocument.Styles
        If Not objStyle.BuiltIn Then
            objStyle.Delete
        End If
    Next
End Sub