Selection.ShrinkDiscontiguousSelection (Word)

Hebt die Markierung aller Textstellen mit Ausnahme des zuletzt markierten Texts auf, wenn eine Markierung mehrere nicht verbundene Markierungen enthält.

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