Тема: Ошибка при удалении стилей
Здравствуйте!
Столкнулся с непонятной мне ситуацией. Имеется документ, который достался мне от FineReader. FineReader создал много стилей. Я хочу написать макрос, который удаляет все созданные стили:
Sub УдалитьСтили()
Dim s As Style
For Each s In ActiveDocument.Styles
If Not s.BuiltIn Then
s.Delete
End If
Next
End SubНа перебор элементов в коллекции можно пока не обращать внимания. При удалении первого стиля получаю ошибку 5421 "The style name contains a character that is not valid." 
Самое интересное, что при удалении стилей вручную, Word их удаляет на ура, но при использовании даже записанных макросов получаю вышеуказанную ошибку. Поиск в интернете ничего не дал. Помогите, пожалуйста, решить проблему. Файл со стилями прикрепил.
P.S. Самое интересное, что некоторые стили они всё-таки удаляет так (например, в других документах), а здесь ошибка.
