Normalising styles with +condensed

slaycock · #8 02-12-2017, 03:41 AM

Macropod

Thanks for the suggestion. Unfortunately when iterating through the style collection the troublesome styles are not found. i.e. the following code prints nothing.

Code:

Sub findplus()

Dim myindex As Long
    For myindex = 1 To ActiveDocument.Styles.Count
        If InStr(ActiveDocument.Styles(myindex).NameLocal, "+") > 0 Then
            Debug.Print ActiveDocument.Styles(myindex).NameLocal
        End If
    Next
End Sub

The troublesome styles disappear from view (but not from the document) in the style task pane if the show paragaph level formatting check box is unchecked (Style Pane Options dialog box - options from the style task pane)

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