Selection.SelectCurrentFont (Word)

Extiende la selección hacia delante hasta que encuentra texto con una fuente distinta o con un tamaño de fuente diferente.

With Selection 
 .SelectCurrentFont 
 .Font.Grow 
End With