Looking for help with some text editing.

junaid2323 Assuming that each entry in the list is in a separate paragraph (Terminated with a pilcrow ¶ when the display of non-printing characters is actived), I would use a macro containing the following code

Dim i As Long, j As Long
Dim rng As Range
With ActiveDocument
    For i = 1 To .Paragraphs.Count
        With .Paragraphs(i)
            j = InStrRev(.Range.Text, ">")
            Set rng = .Range
            rng.End = rng.Start + j
            rng.Delete
        End With
    Next i
End With