Sub EditStyle
    dim curs as Object
    dim ret as Object
    dim proceed as Boolean
    dim i as Integer

    proceed = True
    curs = ThisComponent.Text.createTextCursor()

    Do
        curs.goRight(1, true)
        curs.CharPosture = com.sun.star.awt.FontSlant.ITALIC
        curs.CharColor = RGB(255, 0, 0)

        i = 3
        while( not curs.isEndOfParagraph() And i <> 0)
            curs.goRight(1, false)
            i = i - 1
        Wend
        if(i = 0) Then
            curs.goRight(1, true)

            curs.CharPosture = com.sun.star.awt.FontSlant.ITALIC
            curs.CharColor = RGB(255, 0, 0)
        endif

    loop while curs.gotoNextParagraph(False)

End Sub