https://bugs.documentfoundation.org/show_bug.cgi?id=93438
--- Comment #3 from Mark Hung <[email protected]> --- Created attachment 118076 --> https://bugs.documentfoundation.org/attachment.cgi?id=118076&action=edit Style with empty name was created. Pasting Chinese text in Windows ( not sure if this happens under other language settings ) creates a style with empty name. It raise an exception in XMLStyleExport::exportStyleFamily(). Following macro helps ( if newer version isn't available ): Sub FixODPEmptyStyleName Dim oStyleFamilies As Variant Dim oStylePool As Variant Dim oStyle As Variant Dim sName As String Dim nCount As Long Dim nIndex As Long nIndex = 0 oStyleFamilies = ThisComponent.getStyleFamilies() oStylePool = oStyleFamilies.getByName("graphics") nCount = oStylePool.getCount() For i = 0 to nCount-1 oStyle = oStylePool.getByIndex(i) sName = oStyle.getName() if sName = "" then oStyle.setName("Style"+Int(Rnd()*100000)) end if Next i End Sub -- You are receiving this mail because: You are the assignee for the bug.
_______________________________________________ Libreoffice-bugs mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
