Look at all of the styles and call the isInUse() method
'******************************************************************
'Author: Andrew Pitonyak
'email: andrew@pitonyak.org
Sub DisplayAllStylesInUse
Dim mFamilyNames As Variant, mStyleNames As Variant
Dim sMsg As String, n%, i%
Dim oFamilies As Object, oStyle As Object, oStyles As Object
oFamilies = ThisComponent.StyleFamilies
mFamilyNames = oFamilies.getElementNames()
For n = LBound(mFamilyNames) To UBound(mFamilyNames)
sMsg = ""
oStyles = oFamilies.getByName(mFamilyNames(n))
mStyleNames = oStyles.getElementNames()
For i = LBound(mStyleNames) To UBound (mStyleNames)
If oStyles.getByName(mStyleNames(i)).isInUse() Then
sMsg=sMsg + i + " : " + mStyleNames(i) + Chr(13)
If ((i + 1) Mod 20 = 0) Then
MsgBox sMsg,0,mFamilyNames(n)
sMsg = ""
End If
End If
Next i
MsgBox sMsg,0,mFamilyNames(n)
Next n
End Sub