Normalising styles with +condensed

slaycock · #1 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
different hyperlink-styles in two superior styles	-SLIME-	Word	1	04-09-2016 08:51 AM
Need some urgent condensed Project knowledge!!	Halesowenmum	Project	1	10-06-2014 06:18 PM
Restricting paragraph styles without restricting character styles	Red Pill	Word	5	05-25-2012 01:06 PM
Can't Display "Recently Used Styles" in Styles Pane	mwildem	Word	2	05-23-2012 01:42 PM
Quick Styles Set saved but it doesnt appear at the styles list!	Pedro77	Word	3	10-15-2011 05:17 AM