The following code snippet traverses a document noticing each used paragraph
style.
Sub PrintAllParagraphStyles
Dim s As String
Dim vCurCursor As Variant
Dim vText As Variant
Dim sCurStyle As String
vText = ThisComponent.Text
vCurCursor = vText.CreateTextCursor()
vCurCursor.GoToStart(False)
Do
If NOT vCurCursor.gotoEndOfParagraph( True ) Then Exit Do
sCurStyle = vCurCursor.ParaStyleName
s = s & """" & sCurStyle & """" & CHR$(10)
Loop Until NOT vCurCursor.gotoNextParagraph( False )
MsgBox s, 0, "Styles in Document"
End Sub