Sub Del_Test()
Dim oRng As range
    Set oRng = selection.Paragraphs(2).range
    If InStr(oRng, "Example") Then
        oRng.Collapse
        oRng.MoveEndUntil cset:="Example" 
    Else
        oRng.Collapse
        oRng.MoveEnd unit:=wdCharacter, count:=8
    End If
    oRng.Delete
Set oRng = Nothing
End Sub