Selection.SelectCurrentFont (Word)

Cette méthode étend la sélection au premier caractère ayant une police ou une taille différente.

With Selection 
 .SelectCurrentFont 
 .Font.Grow 
End With