Skip to content

Instantly share code, notes, and snippets.

@Snegovikufa

Snegovikufa/word.vb

Created October 23, 2017 11:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Snegovikufa/868e8e876d3fcdf409533529307353b7 to your computer and use it in GitHub Desktop.
Save Snegovikufa/868e8e876d3fcdf409533529307353b7 to your computer and use it in GitHub Desktop.
Download ZIP
Удаляет из документа Word все стили, кроме стилей по умолчанию
Raw
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment