Selection.SelectCurrentIndent (Word)

Estende a seleção para frente até encontrar texto com recuos de parágrafo esquerdo ou direito diferentes.

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