Styles used IN a document

[Nick Lee]

Hi,
Can anybody tell me how to show a list of Styles that are ACTUALLY IN USE in
an Office 2000 Word document? The use of ‘Format / Style / List / Styles in
use’, shows both Styles actually in the document, plus Styles which are
available for use in the document.
Thanks,

 

[Cooz]

Hi Nick,

This macro produces a message box with all paragraph styles used in the
document:

Sub StyleList()
Dim aPar As Paragraph, strStyleList As String

strStyleList = ""

For Each aPar In ActiveDocument.Paragraphs
If InStr(strStyleList, aPar.Style & Chr(13)) = 0 Then
strStyleList = strStyleList & aPar.Style & Chr(13)
End If
Next

MsgBox strStyleList

End Sub

Success,
Cooz