Selection.SelectCurrentFont (Word)

Estende a seleção para frente até encontrar texto com uma fonte ou tamanho de fonte diferente.

With Selection 
 .SelectCurrentFont 
 .Font.Grow 
End With