Returns a Selection object that represents the selection in the specified document window. Read-only.
Example
If there's text selected in the active window, this example makes the text italic.
With Application.ActiveWindow.Selection
If .Type = ppSelectionText Then
.TextRange.Font.Italic = True
End If
End With