Normalising styles with +condensed

[slaycock]

I've inherited a document (200+ pages) which I have to clean up.



The document has many styles of the form <style name> + condensed <number>


The following code doesn't normalise these styles and I can't seem to delete them manually. They go but then come back again.

I've turned off the sub-pixelling option for screen display. But now I'm stuck

Any help would be appreciated.

Sub NoCondensedandStuff()

Dim mystyle As Style
For Each mystyle In ActiveDocument.Styles
   Debug.Print "Processing " & mystyle.NameLocal
   With mystyle.Font
      .Spacing = 0
      .Scaling = 100
      .Position = 0
      .Kerning = 0
   End With
   ActiveDocument.UndoClear
Next
End Sub