Tables that carry hidden para styles

macropod · #2 03-08-2011, 10:29 PM

Hi Ulodesk,

Here's a macro you might find useful. It simply goes through all the Styles in the active document and deletes any user-defined ones. Any paragraph using a deleted paragraph Style will revert to the Normal Style and anything using a deleted character Style should revert to the underlying paragraph Style.

Code:

Sub CleanUpStyles()
Dim oSty As Style
For Each oSty In ActiveDocument.Styles
  If oSty.BuiltIn = False Then oSty.Delete
Next
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Carry-forward: Tab to Tab?	markg2	Excel	11	01-30-2011 01:07 AM
Hidden address	nicolapiva	Outlook	2	11-16-2010 12:12 AM
Don't count hidden slides	Lu_Argentina	PowerPoint	0	10-12-2010 02:12 PM
Can I carry Outlook 2007 with me on a usb stick?	Hansio	Outlook	2	09-09-2010 01:29 PM
hidden blank pages	mljm	Word	3	06-19-2009 03:18 AM