Come indicato nell'oggetto vorrei inserire tramite macro un elenco puntato.
Il codice che ho scritto è il seguente:
---------------------------------------------------------------------
Doc = ThisComponent
oText = Doc.Text
Bookmarks = Doc.Bookmarks
Mark1 = Bookmarks.getByName("ImmedEsecut")
Curs = oText.createTextCursorByRange(Mark1.Anchor)
Curs.goToEndOfParagraph(True)
If LTrim(Curs.String) = "" then
Curs.goRight(1,True)
Curs.setString("")
else
StyleFams1 = Doc.StyleFamilies
ParaStyles1 = StyleFams1.getByName("NumberingStyles")
xray ParaStyles1
DefaultStyle = ParaStyles.getByName(com.sun.star.style.NumberingType.ARABIC)
'xray Curs
Curs.ParaStyleName = DefaultStyle
End If
---------------------------------------------------------------------------
Il mio problema è che DefaultStyle =
ParaStyles.getByName(com.sun.star.style.NumberingType.ARABIC) mi
restituisce un errore.
Come posso fare?
Grazie
Stefano
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
