Selection.SelectCurrentIndent (Word)

Extiende la selección hacia delante hasta que encuentra texto con una sangría de párrafo izquierda o derecha distinta.

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