Selection.SelectCurrentTabs (Word)

Extiende la selección hacia delante hasta que encuentra un párrafo con tabulaciones distintas.

Set myRange = ActiveDocument.Paragraphs(2).Range 
myRange.Select 
Selection.SelectCurrentTabs