Selection.Type (Word)

Renvoie le type de sélection. Ici on trouve valeurs possible pour WdSelectionType.

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