openoffice 获取当前文档的所有的样式

可以通过oo新建一篇字处理或者其他类型的文档，然后新建宏，将该代码copy到宏窗口

Sub DisplayAllStyles
  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)
      sMsg=sMsg + i + " : " + mStyleNames(i) + Chr(13)
      If ((i + 1) Mod 21 = 0) Then
        MsgBox sMsg,0,mFamilyNames(n)
        sMsg = ""
      End If
    Next i
    MsgBox sMsg,0,mFamilyNames(n)
  Next n
End Sub

运行后会发现，会显示出当前文档的所有样式，包括：characterstyles,paragraphstyles,framestyles,pagestyles,numberingstyles