SelectCurrentFont Method Example
This example extends the selection until text in a different font or font size is encountered. The example uses the Grow method to increase the size of the selected text to the next available font size.
With Selection
.SelectCurrentFont
.Font.Grow
End With