Sub MovingChr()
Set oRng = ActiveDocument.Range
    With oRng.Find
    .Text = "<p class=MyPar>"
    .Execute
    End With
oRng.Collapse wdCollapseEnd
'If Selection is between > and < then move on to next <
If oRng.Characters.First = "<" Then
oRng.Collapse wdCollapseEnd
oRng.Select
      oRng.MoveEndUntil Cset:="<"
          oRng.Select
End If
End Sub