View Single Post
 
Old 03-08-2011, 10:29 PM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2000
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote