Selection.SelectCurrentFont (Word)

Erweitert die Markierung nach vorn, bis Text mit einer anderen Schriftart oder einem anderen Schriftgrad auftritt. 


With Selection 
 .SelectCurrentFont 
 .Font.Grow 
End With