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