Selection.ShrinkDiscontiguousSelection (Word)

Cancela la selección de todo el texto menos el seleccionado más recientemente, si una selección contiene varias selecciones sin relación entre sí.

Sub ShrinkMultipleSelection() 
 With Selection 
 .ShrinkDiscontiguousSelection 
 .Font.Bold = True 
 .Font.SmallCaps = True 
 End With 
End Sub