Hello,
in a calc-document i need the names (display-names) of all existing
cellstyles.
When i use:
'...
Dim liste_tmp()
liste_tmp() = ThisComponent.getStyleFamilies().getByName("CellStyles")
ReDim liste_x(liste_tmp.Count-1) As String
For i = 0 To liste_tmp.Count - 1
liste_x(i) = liste_tmp(i).DisplayName
Next i
'...
i get a Error-message in a englisch OOo because .DisplayName is not
exist.
So i use:
'...
Dim liste_tmp()
liste_tmp() = ThisComponent.getStyleFamilies().getByName("CellStyles")
ReDim liste_x(liste_tmp.Count-1) As String
For i = 0 To liste_tmp.Count - 1
'Msgbox liste_tmp.Count
If IsEmpty(liste_tmp(i).getPropertyValue("DisplayName")) Then
liste_x(i) = liste_tmp(i).Name
Else
liste_x(i) = liste_tmp(i).getPropertyValue("DisplayName")
End If
Next i
'...
this works fine under normally circumstances, but works not in OOo 3.0.0
Beta german(!) Version, and i get in this case the intern names for the
cellstyles (Default, Result, ...) and not the german names (Standard,
Ergebnis, ...)
Is this a problem in OOo 3.0 Beta? What can i do to get the german
names?
greetings
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
