Selection.Shrink Method (Word)
Shrinks the selection to the next smaller unit of text.
Syntax
expression .Shrink
expression A variable that represents a Selection object.
Remarks
The unit progression for this method is as follows: entire document, section, paragraph, sentence, word, insertion point.
Example
This example collapses the selected text to the next smaller unit of text.
If Selection.Type = wdSelectionNormal Then
Selection.Shrink
Else
MsgBox "You need to select some text."
End If