Logged In: YES
user_id=726932

I have the same problem with french styles.
I found a generic solution to this problem by using the
ObjBlockFormatInfo Active X.

At the end of visualeditor_edit.pt add this line :

<script language="VBScript">SetTimeOut "TBPopulateStyle",
500, "VBSCRIPT"</script>

At beginning of visualeditor_init.js.dtml add :

<script language="VBScript">

// Populate combobox with local styles
// Jean-Charles Rogez
Function TBPopulateStyle()
tbContentElement.ExecCommand DECMD_GETBLOCKFMTNAMES,
OLECMDEXECOPT_DODEFAULT, ObjBlockFormatInfo
For Each ft in ObjBlockFormatInfo.Names
Set myoption = document.createElement("OPTION")
myoption.Text = ft
myoption.Value = ft
ParagraphStyle.options.add myoption
Next
End Function
</script>

Now, the combobox ParagrapStyle will be populate with local
styles !