Selection.ShrinkDiscontiguousSelection (Word)

Cancels the selection of all but the most recently selected text when a selection contains multiple, unconnected selections.

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