Deselects all but the most recently selected text when a selection contains multiple, unconnected selections.
expression Required. An expression that returns a Selection object.
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
Applies to | Selection Object