Selection Property 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