Selection.Type (Word)

Returns the selection type. Here you can find possible values for WdSelectionType.

If Selection.Type <> wdSelectionIP Then 
 Selection.Font.Engrave = True 
Else 
 MsgBox "You need to select some text." 
End If