Selection.SelectCurrentTabs (Word)

Estende a seleção para frente até encontrar um parágrafo com tabulações diferentes.

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