'******************************************************************
'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