Selection.ShrinkDiscontiguousSelection (Word)

Annule la sélection de l'ensemble du texte, à l'exception de celui qui a été sélectionné en dernier lorsqu'une sélection est composée de sélections multiples non reliées entre elles.

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