Selection.Type (Word)

Devuelve el tipo de selección. Aquí puede ver valores posibles para WdSelectionType.

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