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