expression.ShrinkDiscontiguousSelection
expression Required. An expression that returns a Selection object.
Example
This example deselects all but the most recently selected text and formats with bold and small caps the text remaining in the selection. This example assumes there are multiple selections in the document.
Sub ShrinkMultipleSelection()
With Selection
.ShrinkDiscontiguousSelection
.Font.Bold = True
.Font.SmallCaps = True
End With
End Sub