Selection.ShrinkDiscontiguousSelection (Word)

Cancela a seleção de todo o texto, exceto o que foi selecionado mais recentemente quando uma seleção contém várias seleções não conectadas.

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