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

Sub MovingChr()
Set oRng = ActiveDocument.range
    With oRng.Find
    .text = "<p class=MyPar>"
    .Execute
    End With
    If oRng.Characters.Last.Next Like "<" Then
        oRng.MoveEnd unit:=wdCharacter, count:=1
        oRng.MoveEndUntil Cset:="<"
        oRng.Collapse wdcollapsend
        oRng.Select 'to see the cursor psn; if you are going to work with oRng, this line can be deleted
    End If
End Sub

Sub MovingChr()
Set oRng = ActiveDocument.range
    With oRng.Find
    .text = "<p class=MyPar>"
    .Execute
    End With
    oRng.Collapse wdcollapsend
    If oRng.Characters.First Like "<" Then
        oRng.Move unit:=wdCharacter, count:=1
        oRng.MoveUntil Cset:="<"
        oRng.Select 'to see the cursor psn; if you are going to work with oRng, this line can be deleted
    End If
End Sub