Microsoft Office Forums - View Single Post - [Solved] Normalising styles with +condensed

slaycock · 02-09-2017, 03:31 PM

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.

Code:

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