本示例对活动文档第二段和所选内容进行比较。如果所选内容与第二段不相同,则选定第二段。

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