Selection.IsEqual (Word)

True if the selection to which this method is applied is equal to the range specified by the Range argument.

This method compares the starting and ending character positions and the story type. If all three of these items are the same for both the selection and the object specified by the Range argument, the objects are equal.

IsEqual (Range)

Range: The range to compare with the current selection.

If Selection.IsEqual(ActiveDocument _ 
 .Paragraphs(2).Range) = False Then 
 ActiveDocument.Paragraphs(2).Range.Select 
End If