I am seeing a bug when enumerating text portions within a paragraph. I have 
created a paragraph consisting of the word "Delete". I then turned on Change 
Tracking and inserted the word "Insert" and deleted the original 
word "Delete". I now have 2 redlines, a Deletion and an Insertion.

The first macro below returns the following output:
   "Redline Start"
   "Delete"
   "Redline End"
   "Redline Start"
   "Insert"
   "Redline End"

The second macro just moves the start range by one but just returns:
   "eleteInsert"

No redline portion is being detected. Is this a bug? Am I doing something 
incorrectly?




rem First Macro
Sub Main
oDocument = ThisComponent
oText = oDocument.Text
oCursor = oText.createTextCursor
oCursor.goRight(0,False)
oCursor.GotoEnd(True)
enum = oCursor.createEnumeration()


While enum.hasMoreElements()
   element = enum.nextElement()
   newenum = element.createEnumeration()
   While newenum.hasMoreElements()
       newelement = newenum.nextElement()
       If newelement.supportsService( "com.sun.star.text.TextPortion") Then
           if newelement.TextPortionType = "Redline" Then
                   if newelement.IsStart Then
                        msgbox "Redline Start"
                    Else
                        msgbox "Redline End"
                    End IF
           Else
               msgbox newelement.getString()
           End If
       End If
wend
Wend

End Sub


rem Second Macro
Sub Main
oDocument = ThisComponent
oText = oDocument.Text
oCursor = oText.createTextCursor
oCursor.goRight(1,False)
oCursor.GotoEnd(True)
enum = oCursor.createEnumeration()


While enum.hasMoreElements()
   element = enum.nextElement()
   newenum = element.createEnumeration()
   While newenum.hasMoreElements()
       newelement = newenum.nextElement()
       If newelement.supportsService( "com.sun.star.text.TextPortion") Then
           if newelement.TextPortionType = "Redline" Then
                   if newelement.IsStart Then
                        msgbox "Redline Start"
                    Else
                        msgbox "Redline End"
                    End IF
           Else
               msgbox newelement.getString()
           End If
       End If
wend
Wend

End Sub