Selection.SelectCurrentFont (Word)

Extends the selection forward until text in a different font or font size is encountered.

With Selection 
 .SelectCurrentFont 
 .Font.Grow 
End With