Selection.SelectCurrentIndent (Word)

Extends the selection forward until text with different left or right paragraph indents is encountered.

With Selection 
 .HomeKey Unit:=wdStory, Extend:=wdMove 
 .SelectCurrentIndent 
 .Collapse Direction:=wdCollapseEnd 
End With