Skip to content

Instantly share code, notes, and snippets.

@Snegovikufa
Created October 23, 2017 11:46
Show Gist options
  • Save Snegovikufa/868e8e876d3fcdf409533529307353b7 to your computer and use it in GitHub Desktop.
Save Snegovikufa/868e8e876d3fcdf409533529307353b7 to your computer and use it in GitHub Desktop.
Удаляет из документа Word все стили, кроме стилей по умолчанию
Sub DelUserStyles()
Dim objStyle As Style
For Each objStyle In ActiveDocument.Styles
If Not objStyle.BuiltIn Then
objStyle.Delete
End If
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment