Snegovikufa/word.vb

Created October 23, 2017 11:46

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/Snegovikufa/868e8e876d3fcdf409533529307353b7.js"></script>
Save Snegovikufa/868e8e876d3fcdf409533529307353b7 to your computer and use it in GitHub Desktop.

Download ZIP

Revisions

Snegovikufa created this gist Oct 23, 2017.

word.vb

-Original file line number
+Diff line change
@@ -0,0 +1,9 @@
+    Sub DelUserStyles()
+        Dim objStyle As Style
+        For Each objStyle In ActiveDocument.Styles
+            If Not objStyle.BuiltIn Then
+                objStyle.Delete
+            End If
+        Next
+    End Sub